* some safecall issues fixed

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/debug_eh@41406 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 1 deletions

diff --git a/compiler/ncgflw.pas b/compiler/ncgflw.pas
index 6567b5f73b..903d473e5f 100644
--- a/compiler/ncgflw.pas
+++ b/compiler/ncgflw.pas
@@ -1354,7 +1354,11 @@ implementation
                    if-branch -> fc_inflowcontrol) }
                  if (tf_safecall_exceptions in target_info.flags) and
                     (current_procinfo.procdef.proccalloption=pocall_safecall) then
-                   handle_safecall_exception
+                   begin
+                     handle_safecall_exception;
+                     { we have to jump immediatly as we have to return the value of FPC_SAFECALL }
+                     hlcg.a_jmp_always(current_asmdata.CurrAsmList,oldCurrExitLabel);
+                   end
                  else
                    cexceptionstatehandler.handle_reraise(current_asmdata.CurrAsmList,excepttemps,finallyexceptionstate,exceptframekind);
                  { we have to load 0 into the execepttemp, else the program thinks an exception happended }