Browse Source

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

git-svn-id: trunk@26154 -
nickysn 11 years ago
parent
commit
fcfb73f508
1 changed files with 7 additions and 7 deletions
  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}