From 6c836488dd7ec7ed84915e3b54f1787290d4e7e0 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 26 Apr 2003 20:00:24 +0000
Subject: [PATCH]   * fixed previous commit of setjmp

---
 rtl/powerpc/setjump.inc | 43 ++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 20 deletions(-)

diff --git a/rtl/powerpc/setjump.inc b/rtl/powerpc/setjump.inc
index f867731017..d614e066e5 100644
--- a/rtl/powerpc/setjump.inc
+++ b/rtl/powerpc/setjump.inc
@@ -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