| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144 |
- {
- $Id$
- 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.
- **********************************************************************}
- function setjmp(var S : jmp_buf) : longint;assembler;[Public, alias : 'FPC_SETJMP']; nostackframe;
- asm
- stw r1,0(r3)
- mflr r0
- stw r2,4(r3)
- stw r14,12(r3)
- stfd f14,88(r3)
- stw r0,8(r3)
- stw r15,16(r3)
- stfd f15,96(r3)
- mfcr r0
- stw r16,20(r3)
- stfd f16,104(r3)
- stw r0,84(r3)
- stw r17,24(r3)
- stfd f17,112(r3)
- stw r18,28(r3)
- stfd f18,120(r3)
- stw r19,32(r3)
- stfd f19,128(r3)
- stw r20,36(r3)
- stfd f20,136(r3)
- stw r21,40(r3)
- stfd f21,144(r3)
- stw r22,44(r3)
- stfd f22,152(r3)
- stw r23,48(r3)
- stfd f23,160(r3)
- stw r24,52(r3)
- stfd f24,168(r3)
- stw r25,56(r3)
- stfd f25,176(r3)
- stw r26,60(r3)
- stfd f26,184(r3)
- stw r27,64(r3)
- stfd f27,192(r3)
- stw r28,68(r3)
- stfd f28,200(r3)
- stw r29,72(r3)
- stfd f29,208(r3)
- stw r30,76(r3)
- stfd f30,216(r3)
- stw r31,80(r3)
- stfd f31,224(r3)
- li r3,0
- end;
- procedure longjmp(var S : jmp_buf;value : longint);assembler;[Public, alias : 'FPC_LONGJMP']; nostackframe;
- asm
- lwz r1,0(r3)
- lwz r2,4(r3)
- lwz r0,8(r3)
- lwz r14,12(r3)
- lfd f14,88(r3)
- lwz r15,16(r3)
- lfd f15,96(r3)
- lwz r16,20(r3)
- lfd f16,104(r3)
- lwz r17,24(r3)
- lfd f17,112(r3)
- lwz r18,28(r3)
- lfd f18,120(r3)
- lwz r19,32(r3)
- lfd f19,128(r3)
- lwz r20,36(r3)
- lfd f20,136(r3)
- mtlr r0
- lwz r21,40(r3)
- lfd f21,144(r3)
- lwz r22,44(r3)
- lfd f22,152(r3)
- lwz r0,84(r3)
- lwz r23,48(r3)
- lfd f23,160(r3)
- lwz r24,52(r3)
- lfd f24,168(r3)
- lwz r25,56(r3)
- lfd f25,176(r3)
- mtcrf 0xff,r0
- lwz r26,60(r3)
- lfd f26,184(r3)
- lwz r27,64(r3)
- lfd f27,192(r3)
- lwz r28,68(r3)
- lfd f28,200(r3)
- lwz r29,72(r3)
- lfd f29,208(r3)
- lwz r30,76(r3)
- lfd f30,216(r3)
- lwz r31,80(r3)
- lfd f31,224(r3)
- mr r3,r4
- end;
- {
- $Log$
- Revision 1.9 2004-10-19 18:51:15 jonas
- + "nostackframe" modifier, because the automatic detection in the
- compiler to determine that a stack frame is not needed no longer works
- 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
- + implemented setjmp record and longjmp
- Revision 1.5 2002/09/07 16:01:26 peter
- * old logs removed and tabs fixed
- Revision 1.4 2002/08/31 14:27:40 florian
- + public and alias directive added to *jmp
- Revision 1.3 2002/08/10 17:14:36 jonas
- * various fixes, mostly changing the names of the modifies registers to
- upper case since that seems to be required by the compiler
- Revision 1.2 2002/07/30 17:29:53 florian
- + dummy setjmp and longjmp added
- + dummy implemtation of the destructor helper
- Revision 1.1 2002/07/28 20:43:49 florian
- * several fixes for linux/powerpc
- * several fixes to MT
- }
|
