mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:49:43 +02:00
24fea58b92
* made setjmp/longjmp accessible to the compiler by compiler proc, they are used by the iso goto code git-svn-id: trunk@15711 -
126 lines
3.4 KiB
PHP
126 lines
3.4 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2002 by Jonas Maebe and other members of the
|
|
Free Pascal development team
|
|
|
|
SetJmp and LongJmp implementation for exception handling
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
{
|
|
jmp_buf = packed record
|
|
r1, r2, lr,r14,r15,
|
|
r16,r17,r18,r19,r20,
|
|
r21,r22,r23,r24,r25,
|
|
r26,r27,r28,r29,r30,
|
|
r31,cr : int64;
|
|
// 176
|
|
f14,f15,f16,
|
|
// 200
|
|
f17,f18,f19,f20,f21,
|
|
f22,f23,f24,f25,f26,
|
|
f27,f28,f29,f30,f31 : double;
|
|
end;
|
|
pjmp_buf = ^jmp_buf;}
|
|
|
|
function fpc_setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP']; nostackframe; compilerproc;
|
|
asm
|
|
std r1,0(r3) // store r1
|
|
mflr r0
|
|
std r2,8(r3) // store r2
|
|
std r14,24(r3) // store r14
|
|
stfd f14,176(r3) // store f14
|
|
std r0,16(r3) // store lr
|
|
std r15,32(r3) // store r15
|
|
stfd f15,184(r3) // store f15
|
|
mfcr r0
|
|
std r16,40(r3) // store r16
|
|
stfd f16,192(r3) // store f16
|
|
stw r0,168(r3) // store cr
|
|
std r17,48(r3) // store r17
|
|
stfd f17,200(r3) // store f17
|
|
std r18,56(r3) // ...
|
|
stfd f18,208(r3)
|
|
std r19,64(r3)
|
|
stfd f19,216(r3)
|
|
std r20,72(r3)
|
|
stfd f20,224(r3)
|
|
std r21,80(r3)
|
|
stfd f21,232(r3)
|
|
std r22,88(r3)
|
|
stfd f22,240(r3)
|
|
std r23,96(r3)
|
|
stfd f23,248(r3)
|
|
std r24,104(r3)
|
|
stfd f24,256(r3)
|
|
std r25,112(r3)
|
|
stfd f25,264(r3)
|
|
std r26,120(r3)
|
|
stfd f26,272(r3)
|
|
std r27,128(r3)
|
|
stfd f27,280(r3)
|
|
std r28,136(r3)
|
|
stfd f28,288(r3)
|
|
std r29,144(r3)
|
|
stfd f29,296(r3)
|
|
std r30,152(r3)
|
|
stfd f30,304(r3)
|
|
std r31,160(r3)
|
|
stfd f31,312(r3)
|
|
li r3,0
|
|
end;
|
|
|
|
procedure fpc_longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP']; nostackframe; compilerproc;
|
|
asm
|
|
ld r1,0(r3) // load r1
|
|
ld r2,8(r3) // load r2
|
|
ld r0,16(r3) // load lr
|
|
ld r14,24(r3) // load r14
|
|
lfd f14,176(r3)
|
|
ld r15,32(r3) // load r15
|
|
lfd f15,184(r3)
|
|
ld r16,40(r3)
|
|
lfd f16,192(r3)
|
|
ld r17,48(r3)
|
|
lfd f17,200(r3)
|
|
ld r18,56(r3)
|
|
lfd f18,208(r3)
|
|
ld r19,64(r3)
|
|
lfd f19,216(r3)
|
|
ld r20,72(r3)
|
|
lfd f20,224(r3)
|
|
mtlr r0
|
|
ld r21,80(r3)
|
|
lfd f21,232(r3)
|
|
ld r22,88(r3)
|
|
lfd f22,240(r3)
|
|
lwz r0,168(r3)
|
|
ld r23,96(r3)
|
|
lfd f23,248(r3)
|
|
ld r24,104(r3)
|
|
lfd f24,256(r3)
|
|
ld r25,112(r3)
|
|
lfd f25,264(r3)
|
|
mtcrf 0xff,r0
|
|
ld r26,120(r3)
|
|
lfd f26,272(r3)
|
|
ld r27,128(r3)
|
|
lfd f27,280(r3)
|
|
ld r28,136(r3)
|
|
lfd f28,288(r3)
|
|
ld r29,144(r3)
|
|
lfd f29,296(r3)
|
|
ld r30,152(r3)
|
|
lfd f30,304(r3)
|
|
ld r31,160(r3)
|
|
lfd f31,312(r3)
|
|
mr r3,r4
|
|
end;
|
|
|