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

* do not remove cfi_endproc after jmps

Browse Source 
git-svn-id: trunk@43462 -
This commit is contained in:
florian 2019-11-13 21:13:05 +00:00
parent e1433adc2e
commit d82335bf9a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aoptobj.pas
View File

@ -1583,7 +1583,9 @@ Unit AoptObj;
TAsmLabel(JumpTargetOp(taicpu(hp1))^.ref^.symbol).decrefs;
{ don't kill start/end of assembler block,
no-line-info-start/end etc }
if (hp1.typ <> ait_marker) then
if (hp1.typ<>ait_marker) and
((hp1.typ<>ait_cfi) or
(tai_cfi_base(hp1).cfityp<>cfi_endproc)) then
begin
{$ifdef cpudelayslot}
if (hp1.typ=ait_instruction) and (taicpu(hp1).is_jmp) then