Parcourir la source

* small bugfix macos

olle il y a 22 ans
Parent
commit
4eac90e5d4
1 fichiers modifiés avec 6 ajouts et 3 suppressions
  1. 6 3
      rtl/powerpc/math.inc

+ 6 - 3
rtl/powerpc/math.inc

@@ -4,7 +4,7 @@
     Copyright (c) 2000 by Jonas Maebe and other members of the
     Free Pascal development team
 
-    Implementation of mathamatical Routines (only for real)
+    Implementation of mathematical Routines (only for real)
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -208,7 +208,7 @@ LTruncPositive:
         lis    r4,longint_to_real_helper@ha
         lfd    f0,longint_to_real_helper@l(r4)
         {$else}
-        lwz    r3,longint_to_real_helper[TC](r2)
+        lwz    r4,longint_to_real_helper[TC](r2)
         lfd    f0,0(r4)
         {$endif}
         lfd    f3,temp
@@ -424,7 +424,10 @@ end;
 
 {
   $Log$
-  Revision 1.26  2003-06-14 12:41:08  jonas
+  Revision 1.27  2003-08-08 22:02:05  olle
+    * small bugfix macos
+
+  Revision 1.26  2003/06/14 12:41:08  jonas
     * fixed compilation problems (removed unnecessary modified registers
       lists from procedures)