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

* setjmp on sparc improved

Browse Source
This commit is contained in:
florian 2004-05-30 12:08:32 +00:00
parent ba8730f13b
commit d748857500
1 changed files with 46 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
rtl/sparc/setjump.inc
View File

@ -20,67 +20,64 @@
} }
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'];
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 [%i0+4], %g3 // Cache target FP in register %g3.
mov %i0, %g1 // s in %g1 mov %i0, %g1 // s in %g1
orcc %i1, %g0, %g2 // value in %g2 orcc %i1, %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:
xor %fp, %g3, %o0 xor %fp, %g3, %o0
add %fp, 512, %o1 add %fp, 512, %o1
andncc %o0, 4095, %o0 andncc %o0, 4095, %o0
bne .Lthread bne .Lthread
cmp %o1, %g3 cmp %o1, %g3
bl .Lthread bl .Lthread
// Now we will loop, unwinding the register windows up the stack // Now we will loop, unwinding the register windows up the stack
// until the restored %fp value matches the target value in %g3. // until the restored %fp value matches the target value in %g3.
.Lloop: .Lloop:
cmp %fp, %g3 // Have we reached the target frame? cmp %fp, %g3 // Have we reached the target frame?
bl,a .Lloop // Loop while current fp is below target. bl,a .Lloop // Loop while current fp is below target.
restore // Unwind register window in delay slot. restore // Unwind register window in delay slot.
be,a .Lfound // Better have hit it exactly. be,a .Lfound // Better have hit it exactly.
ld [%g1], %o0 // Delay slot: extract target SP. ld [%g1], %o0 // Delay slot: extract target SP.
.Lthread: .Lthread:
{ {
* Do a "flush register windows trap". The trap handler in the * Do a "flush register windows trap". The trap handler in the
* kernel writes all the register windows to their stack slots, and * kernel writes all the register windows to their stack slots, and
* marks them all as invalid (needing to be sucked up from the * marks them all as invalid (needing to be sucked up from the
* stack when used). This ensures that all information needed to * stack when used). This ensures that all information needed to
* unwind to these callers is in memory, not in the register * unwind to these callers is in memory, not in the register
* windows. * windows.
} }
ta 3 ta 3
ld [%g1+8], %o7 // Set return PC. ld [%g1+8], %o7 // Set return PC.
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 ret
restore %g2, 0, %o0 // Restore values from above register frame. restore %g2, 0, %o0 // Restore values from above register frame.
.Lfound: .Lfound:
// We have unwound register windows so %fp matches the target. // We have unwound register windows so %fp matches the target.
mov %o0, %sp // OK, install new SP. mov %o0, %sp // OK, install new SP.
.Lsp_ok: .Lsp_ok:
ld [%g1+8], %o0 // Extract target return PC. ld [%g1+8], %o0 // Extract target return PC.
jmp %o0+8 // Return there. jmp %o0+8 // Return there.
mov %g2, %o0 // Delay slot: set return value. mov %g2, %o0 // Delay slot: set return value.
end; end;
function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP']; function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP'];
asm asm
// Save our PC, SP and FP. Save the signal mask if requested with // Save our PC, SP and FP.
// a tail-call for simplicity; it always returns zero.
ta 3
st %i7, [%i0+8] st %i7, [%i0+8]
st %sp, [%i0] st %sp, [%i0]
st %fp, [%i0+4] st %fp, [%i0+4]
@ -89,7 +86,10 @@ function setjmp(var S:jmp_buf):longint;assembler;[Public,alias:'FPC_SETJMP'];
{ {
$Log$ $Log$
Revision 1.6 2004-05-25 21:38:11 peter Revision 1.7 2004-05-30 12:08:32 florian
* setjmp on sparc improved
Revision 1.6 2004/05/25 21:38:11 peter
* fixed input registers * fixed input registers
Revision 1.5 2004/05/18 19:36:37 florian Revision 1.5 2004/05/18 19:36:37 florian