Pārlūkot izejas kodu

Fix problems in xtensa fpc_setjmp/fpc_longjmp for linux

git-svn-id: trunk@46925 -
pierre 4 gadi atpakaļ
vecāks
revīzija
37f1d08510
1 mainītis faili ar 5 papildinājumiem un 2 dzēšanām
  1. 5 2
      rtl/xtensa/setjump.inc

+ 5 - 2
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}