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

* reset fpu on win64 as well, certain operations like ln use it

Browse Source 
git-svn-id: trunk@6920 -
This commit is contained in:
florian 2007-03-18 20:25:58 +00:00
parent c127753bb8
commit 605e82489a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/x86_64/x86_64.inc
View File

@ -595,11 +595,12 @@ const
Procedure SysResetFPU;
begin
asm
{$ifndef WIN64}
{ Win64 uses the fpu for ln etc. so we've to reset it as well
$ifndef WIN64}
{ initialize fpu }
fninit
fwait
{$endif WIN64}
{ $endif WIN64}
{$ifdef FPC_PIC}
movq fpucw@GOTPCREL(%rip),%rax
fldcw (%rax)