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

* use SysResetFPU instead of inline assembler

Browse Source 
git-svn-id: trunk@4545 -
This commit is contained in:
florian 2006-09-03 20:35:16 +00:00
parent bf1c390027
commit 8573d3679e
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win32/system.pp
View File

@ -805,10 +805,8 @@ begin
if IsConsole then
writeln(stderr,'In JumpToHandleErrorFrame error=',error);
{$endif SYSTEMEXCEPTIONDEBUG}
if resetFPU[exceptLevel] then asm
fninit
fldcw fpucw
end;
if resetFPU[exceptLevel] then
SysResetFPU;
{ build a fake stack }
asm
{$ifdef REGCALL}
@ -1002,11 +1000,7 @@ procedure fpc_cpucodeinit;
sse_check:=false;
has_sse_support:=sse_support;
has_mmx_support:=mmx_support;
{ reset FPU }
asm
fninit
fldcw fpucw
end;
SysResetFPU;
setup_fastmove;
end;