Parcourir la source

+ i8086 asm implementation of math.arctan2, based on the i386 version

git-svn-id: trunk@26154 -
nickysn il y a 11 ans
Parent
commit
fcfb73f508
1 fichiers modifiés avec 7 ajouts et 7 suppressions
  1. 7 7
      rtl/i8086/mathu.inc

+ 7 - 7
rtl/i8086/mathu.inc

@@ -13,14 +13,14 @@
 **********************************************************************}
 
 {$ASMMODE intel}
-{//$define FPC_MATH_HAS_ARCTAN2}
-{function arctan2(y,x : float) : float;assembler;
+{$define FPC_MATH_HAS_ARCTAN2}
+function arctan2(y,x : float) : float;assembler;
   asm
-     fldt y
-     fldt x
-     fpatan
-     fwait
-  end;}
+    fld tbyte [y]
+    fld tbyte [x]
+    fpatan
+    fwait
+  end;
 
 
 {//$define FPC_MATH_HAS_SINCOS}