* Get8087CW: Make sure that high bits of result are clear.

git-svn-id: trunk@19465 -
2025-09-04 06:54:05 +02:00 · 2011-10-11 10:34:52 +00:00 · 2011-10-11 10:34:52 +00:00 · 369725f2c4
commit 369725f2c4
parent 9df8be501a
1 changed files with 2 additions and 1 deletions
--- a/rtl/x86_64/math.inc
+++ b/rtl/x86_64/math.inc
@ -51,7 +51,8 @@ FPC_ABSMASK_DOUBLE:
        tmp: word;
      asm
        fnstcw tmp
-        movq   tmp,%rax
+        movw   tmp,%ax
+        andl   $0xffff,%eax  { clears bits 32-63 }
      end;