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

* use DefaultCW to reload fpu settings

Browse Source 
git-svn-id: trunk@5169 -
This commit is contained in:
florian 2006-11-02 08:58:01 +00:00
parent 53e7596e3d
commit 4ee9f1b394
2 changed files with 4 additions and 6 deletions
rtl
i386
i386.inc
win32
signals.pp

4
rtl/i386/i386.inc
View File

@ -1180,7 +1180,9 @@ const
FPU_StackOverflow = $40;
FPU_ExceptionMask = $ff;
{ use Default8087CW instead
fpucw : word = $1300 or FPU_StackUnderflow or FPU_Underflow or FPU_Denormal;
}
MM_MaskInvalidOp = %0000000010000000;
MM_MaskDenorm = %0000000100000000;
@ -1196,7 +1198,7 @@ Procedure SysResetFPU;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
asm
fninit
fldcw fpucw
fldcw Default8087CW
fwait
end;
if has_sse_support then

6
rtl/win32/signals.pp
View File

@ -175,7 +175,6 @@ var
_SS : cardinal;
const
fpucw : word = $1332;
Exception_handler_installed : boolean = false;
MAX_Level = 16;
except_level : byte = 0;
@ -205,10 +204,7 @@ var
sigtype:=except_signal[except_level];
if reset_fpu[except_level] then
asm
fninit
fldcw fpucw
end;
SysResetFPU;
if assigned(System_exception_frame) then
{ get the handler in front again }
asm