paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 19:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@19465 -
This commit is contained in:
sergei 2011-10-11 10:34:52 +00:00
parent 9df8be501a
commit 369725f2c4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/x86_64/math.inc
View File

@ -51,7 +51,8 @@ FPC_ABSMASK_DOUBLE:
tmp: word; tmp: word;
asm asm
fnstcw tmp fnstcw tmp
movq tmp,%rax movw tmp,%ax
andl $0xffff,%eax { clears bits 32-63 }
end; end;