paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 13:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix problems in xtensa fpc_setjmp/fpc_longjmp for linux

Browse Source 
git-svn-id: trunk@46925 -
This commit is contained in:
pierre 2020-09-23 12:07:06 +00:00
parent 56fbaf23da
commit 37f1d08510
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/xtensa/setjump.inc
View File

@ -55,16 +55,19 @@ procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias
end; end;
{$else} {$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 asm
entry a1,16 entry a1,16
movi.n a2,0 movi.n a2,0
end; 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 asm
entry a1,16 entry a1,16
movi.n a2,1
movnez a2,value,value
end; end;
{$endif} {$endif}