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

* fix longjmp/setjmp for sparc64

Browse Source 
git-svn-id: trunk@36634 -
This commit is contained in:
florian 2017-07-03 20:48:58 +00:00
parent 65c9e6c32e
commit 26b43e65c9
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/sparc64/setjump.inc
View File

@ -23,28 +23,28 @@ procedure fpc_longjmp(var s : jmp_buf;value:longint);assembler;nostackframe;[Pub
// 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 [%o0+4], %g3 // Cache target FP in register %g3. ldx [%o0+8], %g3 // Cache target FP in register %g3.
mov %o0, %g1 // s in %g1 mov %o0, %g1 // s in %g1
orcc %o1, %g0, %g2 // value in %g2 orcc %o1, %g0, %g2 // value in %g2
be,a .L0 // Branch if zero; else skip delay slot. be,a %xcc,.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 %xcc,.Lthread
cmp %o1, %g3 cmp %o1, %g3
bl .Lthread bl %xcc,.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 %xcc,.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 %xcc,.Lfound // Better have hit it exactly.
ld [%g1], %o0 // Delay slot: extract target SP. ldx [%g1], %o0 // Delay slot: extract target SP.
.Lthread: .Lthread:
{ {
@ -56,14 +56,14 @@ procedure fpc_longjmp(var s : jmp_buf;value:longint);assembler;nostackframe;[Pub
* windows. * windows.
} }
ta 3 flushw
mov %g1,%o1 // use %o1, since %g1 will be destroyed by the call below mov %g1,%o1 // use %o1, since %g1 will be destroyed by the call below
ld [%o1], %fp // Set saved SP on restore below. ldx [%o1], %fp // Set saved SP on restore below.
sub %fp, 64, %sp // Allocate a register frame. sub %fp, 128, %sp // Allocate a register frame.
st %g3, [%fp+48] // Set saved FP on restore below. stx %g3, [%fp+STACK_BIAS+96] // Set saved FP on restore below.
ld [%o1+8], %o7 // Set return PC. ldx [%o1+16], %o7 // Set return PC.
retl retl
restore %g2, 0, %o0 // Restore values from above register frame. restore %g2, 0, %o0 // Restore values from above register frame.
@ -73,7 +73,7 @@ procedure fpc_longjmp(var s : jmp_buf;value:longint);assembler;nostackframe;[Pub
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. ldx [%g1+16], %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;
@ -82,11 +82,11 @@ procedure fpc_longjmp(var s : jmp_buf;value:longint);assembler;nostackframe;[Pub
function fpc_setjmp(var S:jmp_buf):longint;assembler;nostackframe;[Public,alias:'FPC_SETJMP'];compilerproc; function fpc_setjmp(var S:jmp_buf):longint;assembler;nostackframe;[Public,alias:'FPC_SETJMP'];compilerproc;
asm asm
// We don't create a stackframe so we can save PC,SP and FP of the caller // We don't create a stackframe so we can save PC,SP and FP of the caller
st %o7, [%o0+8] stx %o7, [%o0+16]
st %sp, [%o0] stx %sp, [%o0]
st %fp, [%o0+4] stx %fp, [%o0+8]
ld [%o0+8], %o7 ldx [%o0+16], %o7
mov %g0, %o0 mov %g0, %o0
end; end;