Explorar o código

* do not remove cfi_endproc after jmps

git-svn-id: trunk@43462 -
florian %!s(int64=5) %!d(string=hai) anos
pai
achega
d82335bf9a
Modificáronse 1 ficheiros con 3 adicións e 1 borrados
  1. 3 1
      compiler/aoptobj.pas

+ 3 - 1
compiler/aoptobj.pas

@@ -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