Fix problems in xtensa fpc_setjmp/fpc_longjmp for linux

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@46925 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 2 deletions

diff --git a/rtl/xtensa/setjump.inc b/rtl/xtensa/setjump.inc
index 17bfb5723c..cfd5720dbe 100644
--- a/rtl/xtensa/setjump.inc
+++ b/rtl/xtensa/setjump.inc
@@ -55,16 +55,19 @@ procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias
   end;
 
 {$else}
-function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP']; compilerproc; external;
+
+function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP']; compilerproc; nostackframe;
   asm
     entry a1,16
     movi.n a2,0
   end;
 
 
-procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP']; compilerproc; external;
+procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP']; compilerproc; nostackframe;
   asm
     entry a1,16
+    movi.n a2,1
+    movnez a2,value,value
   end;
 {$endif}