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

* don't create stackframes so we can retrieve the info from

Browse Source 
the caller
This commit is contained in:
peter 2004-05-31 10:43:00 +00:00
parent 56c04b20d3
commit 7ac68f6283
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/sparc/setjump.inc
View File

@ -18,14 +18,14 @@
#define ST_FLUSH_WINDOWS 3 #define ST_FLUSH_WINDOWS 3
#define RW_FP [%fp + 0x48] #define RW_FP [%fp + 0x48]
} }
procedure longjmp(var s : jmp_buf;value:longint);assembler;[Public,alias:'FPC_LONGJMP']; procedure longjmp(var s : jmp_buf;value:longint);assembler;nostackframe;[Public,alias:'FPC_LONGJMP'];
asm asm
// Store our arguments in global registers so we can still // Store our arguments in global registers so we can still
// use them while unwinding frames and their register windows. // use them while unwinding frames and their register windows.
ld [%i0+4], %g3 // Cache target FP in register %g3. ld [%o0+4], %g3 // Cache target FP in register %g3.
mov %i0, %g1 // s in %g1 mov %o0, %g1 // s in %g1
orcc %i1, %g0, %g2 // value in %g2 orcc %o1, %g0, %g2 // value in %g2
be,a .L0 // Branch if zero; else skip delay slot. be,a .L0 // Branch if zero; else skip delay slot.
mov 1, %g2 // Delay slot only hit if zero: VAL = 1. mov 1, %g2 // Delay slot only hit if zero: VAL = 1.
.L0: .L0:
@ -61,7 +61,7 @@ procedure longjmp(var s : jmp_buf;value:longint);assembler;[Public,alias:'FPC_LO
ld [%g1], %fp // Set saved SP on restore below. ld [%g1], %fp // Set saved SP on restore below.
sub %fp, 64, %sp // Allocate a register frame. sub %fp, 64, %sp // Allocate a register frame.
st %g3, [%fp+48] // Set saved FP on restore below. st %g3, [%fp+48] // Set saved FP on restore below.
ret retl
restore %g2, 0, %o0 // Restore values from above register frame. restore %g2, 0, %o0 // Restore values from above register frame.
.Lfound: .Lfound:
@ -75,18 +75,22 @@ procedure longjmp(var s : jmp_buf;value:longint);assembler;[Public,alias:'FPC_LO
end; end;
function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP']; function setjmp(var S:jmp_buf):longint;assembler;nostackframe;[Public,alias:'FPC_SETJMP'];
asm asm
// Save our PC, SP and FP. // We don't create a stackframe so we can save PC,SP and FP of the caller
st %i7, [%i0+8] st %o7, [%o0+8]
st %sp, [%i0] st %sp, [%o0]
st %fp, [%i0+4] st %fp, [%o0+4]
mov %g0, %i0 mov %g0, %o0
end; end;
{ {
$Log$ $Log$
Revision 1.7 2004-05-30 12:08:32 florian Revision 1.8 2004-05-31 10:43:00 peter
* don't create stackframes so we can retrieve the info from
the caller
Revision 1.7 2004/05/30 12:08:32 florian
* setjmp on sparc improved * setjmp on sparc improved
Revision 1.6 2004/05/25 21:38:11 peter Revision 1.6 2004/05/25 21:38:11 peter