paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ initial implementation of setjmp/longjmp

Browse Source 
git-svn-id: trunk@46537 -
This commit is contained in:
florian 2020-08-21 21:15:36 +00:00
parent 1f073818ba
commit 8a36e63a56
2 changed files with 41 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
rtl/xtensa/setjump.inc
View File

@ -14,12 +14,43 @@
**********************************************************************} **********************************************************************}
function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP']; compilerproc;
function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP']; compilerproc; nostackframe;
{$ifdef fpc_abi_call0}
asm
s32i.n a0,S.a0
s32i.n a1,S.a1
s32i.n a8,S.a8
s32i.n a12,S.a12
s32i.n a13,S.a13
s32i.n a14,S.a14
s32i.n a15,S.a15
movi.n a2,0
end;
{$endif fpc_abi_call0}
{$ifdef fpc_abi_windowed}
asm asm
movi a2,0 movi a2,0
end; end;
{$endif fpc_abi_windowed}
procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP']; compilerproc; procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP']; compilerproc; nostackframe;
{$ifdef fpc_abi_call0}
asm
l32i.n a0,S.a0
l32i.n a1,S.a1
l32i.n a8,S.a8
l32i.n a12,S.a12
l32i.n a13,S.a13
l32i.n a14,S.a14
l32i.n a15,S.a15
movi.n a2,1
movnez a2,value,value
end;
{$endif fpc_abi_call0}
{$ifdef fpc_abi_windowed}
asm asm
end; end;
{$endif fpc_abi_windowed}

9
rtl/xtensa/setjumph.inc
View File

@ -15,8 +15,15 @@
**********************************************************************} **********************************************************************}
type type
jmp_buf = packed record {$ifdef fpc_abi_call0}
jmp_buf = record
a0,a1,a8,a12,a13,a14,a15 : DWord;
end; end;
{$endif fpc_abi_call0}
{$ifdef fpc_abi_windowed}
jmp_buf = record
end;
{$endif fpc_abi_windowed}
pjmp_buf = ^jmp_buf; pjmp_buf = ^jmp_buf;
function setjmp(var S : jmp_buf) : longint;[external name 'FPC_SETJMP']; function setjmp(var S : jmp_buf) : longint;[external name 'FPC_SETJMP'];