From d82335bf9a833519e0b140c666e7851f6afdf226 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 13 Nov 2019 21:13:05 +0000
Subject: [PATCH]   * do not remove cfi_endproc after jmps

git-svn-id: trunk@43462 -
---
 compiler/aoptobj.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas
index d0f4422a27..f2e2eb04cd 100644
--- a/compiler/aoptobj.pas
+++ b/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