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

* fixed previous commit of setjmp

Browse Source
This commit is contained in:
florian 2003-04-26 20:00:24 +00:00
parent fbea62cf74
commit 6c836488dd
1 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/powerpc/setjump.inc
View File

@ -64,54 +64,57 @@ function setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJM
procedure longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP'];
asm
lwz r1,(r3)
lwz r1,0(r3)
lwz r2,4(r3)
lwz r0,8(r3)
lwz r14,12(r3)
lfd fp14,88(r3)
lfd f14,88(r3)
lwz r15,16(r3)
lfd fp15,96(r3)
lfd f15,96(r3)
lwz r16,20(r3)
lfd fp16,104(r3)
lfd f16,104(r3)
lwz r17,24(r3)
lfd fp17,112(r3)
lfd f17,112(r3)
lwz r18,28(r3)
lfd fp18,120(r3)
lfd f18,120(r3)
lwz r19,32(r3)
lfd fp19,128(r3)
lfd f19,128(r3)
lwz r20,36(r3)
lfd fp20,136(r3)
lfd f20,136(r3)
mtlr r0
lwz r21,40(r3)
lfd fp21,144(r3)
lfd f21,144(r3)
lwz r22,44(r3)
lfd fp22,152(r3)
lfd f22,152(r3)
lwz r0,84(r3)
lwz r23,48(r3)
lfd fp23,160(r3)
lfd f23,160(r3)
lwz r24,52(r3)
lfd fp24,168(r3)
lfd f24,168(r3)
lwz r25,56(r3)
lfd fp25,176(r3)
lfd f25,176(r3)
mtcrf 0xff,r0
lwz r26,60(r3)
lfd fp26,184(r3)
lfd f26,184(r3)
lwz r27,64(r3)
lfd fp27,192(r3)
lfd f27,192(r3)
lwz r28,68(r3)
lfd fp28,200(r3)
lfd f28,200(r3)
lwz r29,72(r3)
lfd fp29,208(r3)
lfd f29,208(r3)
lwz r30,76(r3)
lfd fp30,216(r3)
lfd f30,216(r3)
lwz r31,80(r3)
lfd fp31,224(r3)
lfd f31,224(r3)
mr r3,r4
end;
{
$Log$
Revision 1.7 2003-04-26 19:52:07 florian
Revision 1.8 2003-04-26 20:00:24 florian
* fixed previous commit of setjmp
Revision 1.7 2003/04/26 19:52:07 florian
+ implemented longjmp
Revision 1.6 2003/04/26 18:54:30 florian