Forráskód Böngészése

* macos: refs to globals in asm adapted to macos

olle 23 éve
szülő
commit
757728dcd8
1 módosított fájl, 22 hozzáadás és 2 törlés
  1. 22 2
      rtl/powerpc/math.inc

+ 22 - 2
rtl/powerpc/math.inc

@@ -222,16 +222,26 @@ asm
            stw    r0,temp
            xoris  r3,r3,0x8000
            stw    r3,4+temp
+           {$ifndef macos}
            lis    r3,longint_to_real_helper@ha
            lfd    f1,longint_to_real_helper@l(r3)
+           {$else}
+           lfd    f1,longint_to_real_helper(r2)
+           {$endif}
            lfd    f0,temp
            stw    r4,4+temp
            fsub   f0,f0,f1
+           {$ifndef macos}
            lis    r4,cardinal_to_real_helper@ha
            lfd    f1,cardinal_to_real_helper@l(r4)
            lis    r3,int_to_real_factor@ha
            lfd    f3,temp
            lfd    f2,int_to_real_factor@l(r3)
+           {$else}
+           lfd    f1,cardinal_to_real_helper(r2)
+           lfd    f3,temp
+           lfd    f2,int_to_real_factor(r2)
+           {$endif}
            fsub   f3,f3,f1
            fmadd  f1,f0,f2,f3
 end ['R0','R3','R4','F0','F1','F2','F3'];
@@ -252,22 +262,32 @@ asm
            stw    r0,temp
            stw    r3,4+temp
            lfd    f0,temp
+           {$ifndef macos}
            lis    r3,cardinal_to_real_helper@ha
            lfd    f1,cardinal_to_real_helper@l(r3)
+           {$else}
+           lfd    f1,cardinal_to_real_helper(r2)
+           {$endif}
            stw    r4,4+temp
            fsub   f0,f0,f1
            lfd    f3,temp
+           {$ifndef macos}
            lis    r3,int_to_real_factor@ha
            lfd    f2,int_to_real_factor@l(r3)
+           {$else}
+           lfd    f2,int_to_real_factor(r2)
+           {$endif}
            fsub   f3,f3,f1
            fmadd  f1,f0,f2,f3
 end ['R0','R3','F0','F1','F2','F3'];
 
 
-
 {
   $Log$
-  Revision 1.13  2002-10-21 18:08:28  jonas
+  Revision 1.14  2002-11-28 11:04:16  olle
+    * macos: refs to globals in asm adapted to macos
+
+  Revision 1.13  2002/10/21 18:08:28  jonas
     * round has int64 instead of longint result
 
   Revision 1.12  2002/09/08 13:00:21  jonas