Browse Source

* fixed PreviousFramePointer() for ppc

Jonas Maebe 21 years ago
parent
commit
e15a198928
1 changed files with 5 additions and 4 deletions
  1. 5 4
      rtl/inc/objects.pp

+ 5 - 4
rtl/inc/objects.pp

@@ -727,9 +727,7 @@ end;
 {$define FPC_PreviousFramePointer_Implemented}
 {$define FPC_PreviousFramePointer_Implemented}
 {$warning FIX ME !!!! }
 {$warning FIX ME !!!! }
 asm
 asm
-    (* getting the previous stack frame is quite hard for the standard powerpc calling conventions
-      because we don't know the size of the locals, it seems that we need some compiler magic for this
-    *)
+    lwz  r3,0(r1)
 end;
 end;
 {$endif cpupowerpc}
 {$endif cpupowerpc}
 {$ifdef cpuarm}
 {$ifdef cpuarm}
@@ -2942,7 +2940,10 @@ BEGIN
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.26  2003-11-30 19:48:20  florian
+  Revision 1.27  2004-01-01 15:30:04  jonas
+    * fixed PreviousFramePointer() for ppc
+
+  Revision 1.26  2003/11/30 19:48:20  florian
     * fixed some arm stuff
     * fixed some arm stuff
 
 
   Revision 1.25  2003/11/03 17:46:37  peter
   Revision 1.25  2003/11/03 17:46:37  peter