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

* setjmp fixed

Browse Source
This commit is contained in:
florian 2004-03-23 19:13:09 +00:00
parent 8004c68a42
commit f5c99d9e2d
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/arm/setjump.inc
View File

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