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

+ added nostackframe directive

Browse Source
This commit is contained in:
florian 2005-01-04 16:22:05 +00:00
parent bb096fcec6
commit 1033fb1430
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/arm/setjump.inc
View File

@ -15,17 +15,15 @@
**********************************************************************}
function setjmp(var S : jmp_buf) : longint;assembler;
function setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP'];nostackframe;
label FPC_SETJMP;
asm
// the usual entry code would mix up things here
.globl FPC_SETJMP
FPC_SETJMP:
stmia r0,{v1-v6, sl, fp, sp, lr}
mov r0,#0
mov pc,lr
stmia r0,{v1-v6, sl, fp, sp, lr}
mov r0,#0
mov pc,lr
end;
procedure longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP'];
asm
mov ip, r0
@ -37,7 +35,10 @@ procedure longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'F
{
$Log$
Revision 1.4 2004-03-23 19:13:09 florian
Revision 1.5 2005-01-04 16:22:05 florian
+ added nostackframe directive
Revision 1.4 2004/03/23 19:13:09 florian
* setjmp fixed
Revision 1.3 2004/01/20 21:01:57 florian