paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 03:28:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* manually fix unwanted stripping of exception frame info based on a patch by Gareth J. Moreton

Browse Source
This commit is contained in:
Florian Klämpfl 2022-01-23 17:31:55 +01:00
parent 08bb8c8dfc
commit 5cd1c4f5bc
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/aoptobj.pas
View File

@ -1506,7 +1506,15 @@ Unit AoptObj;
var
p,hp1,hp2 : tai;
stoploop:boolean;
begin
const
{$ifdef JVM}
TaiFence = SkipInstr + [ait_const, ait_realconst, ait_typedconst, ait_label, ait_jcatch];
{$else JVM}
{ Stop if it reaches SEH directive information in the form of
consts, which may occur if RemoveDeadCodeAfterJump is called on
the final RET instruction on x86, for example }
TaiFence = SkipInstr + [ait_const, ait_realconst, ait_typedconst, ait_label, ait_align];
{$endif JVM} begin
repeat
stoploop:=true;
p := BlockStart;
@ -1545,7 +1553,7 @@ Unit AoptObj;
and (hp1.typ <> ait_jcatch)
{$endif}
do
if not(hp1.typ in ([ait_label,ait_align]+skipinstr)) then
if not(hp1.typ in TaiFence) then
begin
if (hp1.typ = ait_instruction) and
taicpu(hp1).is_jmp and