paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:59:11 +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 if IsConsole then
writeln(stderr,'In JumpToHandleErrorFrame error=',error); writeln(stderr,'In JumpToHandleErrorFrame error=',error);
{$endif SYSTEMEXCEPTIONDEBUG} {$endif SYSTEMEXCEPTIONDEBUG}
if resetFPU[exceptLevel] then asm if resetFPU[exceptLevel] then
fninit SysResetFPU;
fldcw fpucw
end;
{ build a fake stack } { build a fake stack }
asm asm
{$ifdef REGCALL} {$ifdef REGCALL}
@ -1002,11 +1000,7 @@ procedure fpc_cpucodeinit;
sse_check:=false; sse_check:=false;
has_sse_support:=sse_support; has_sse_support:=sse_support;
has_mmx_support:=mmx_support; has_mmx_support:=mmx_support;
{ reset FPU } SysResetFPU;
asm
fninit
fldcw fpucw
end;
setup_fastmove; setup_fastmove;
end; end;