浏览代码

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

git-svn-id: trunk@26154 -
nickysn 11 年之前
父节点
当前提交
fcfb73f508
共有 1 个文件被更改,包括 7 次插入7 次删除
  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}