paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 12:29:19 +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; Procedure SysResetFPU;
begin begin
asm asm
{$ifndef WIN64} { Win64 uses the fpu for ln etc. so we've to reset it as well
$ifndef WIN64}
{ initialize fpu } { initialize fpu }
fninit fninit
fwait fwait
{$endif WIN64} { $endif WIN64}
{$ifdef FPC_PIC} {$ifdef FPC_PIC}
movq fpucw@GOTPCREL(%rip),%rax movq fpucw@GOTPCREL(%rip),%rax
fldcw (%rax) fldcw (%rax)