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

- i386 and x86_64: Once softfloat stuff has been cleaned up, SysResetFPU and SysInitFPU end up doing exactly the same. Removed one of them.

Browse Source 
git-svn-id: trunk@27280 -
This commit is contained in:
sergei 2014-03-25 10:52:07 +00:00
parent bd75abb64b
commit d1348d3f9b
2 changed files with 0 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/i386/i386.inc
View File

@ -1327,10 +1327,6 @@ 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;
MM_MaskDivZero = %0000001000000000;
@ -1343,25 +1339,7 @@ const
{$define FPC_SYSTEM_HAS_SYSINITFPU}
Procedure SysInitFPU;
var
{ these locals are so we don't have to hack pic code in the assembler }
localmxcsr: dword;
localfpucw: word;
begin
localfpucw:=Default8087CW;
asm
fninit
fldcw localfpucw
fwait
end;
if has_sse_support then
begin
localmxcsr:=mxcsr;
asm
{ setup sse exceptions }
ldmxcsr localmxcsr
end;
end;
end;
@ -1432,8 +1410,6 @@ procedure fpc_cpucodeinit;
end;
SysResetFPU;
if not(IsLibrary) then
SysInitFPU;
{$ifdef USE_FASTMOVE}
setup_fastmove;
{$endif}

16
rtl/x86_64/x86_64.inc
View File

@ -925,8 +925,6 @@ const
FPU_StackOverflow = $40;
FPU_ExceptionMask = $ff;
fpucw : word = $1300 or FPU_StackUnderflow or FPU_Underflow or FPU_Denormal;
MM_MaskInvalidOp = %0000000010000000;
MM_MaskDenorm = %0000000100000000;
MM_MaskDivZero = %0000001000000000;
@ -945,25 +943,11 @@ procedure fpc_cpuinit;
mxcsr:=GetSSECSR;
end;
SysResetFPU;
if not(IsLibrary) then
SysInitFPU;
end;
{$define FPC_SYSTEM_HAS_SYSINITFPU}
Procedure SysInitFPU;
var
{ these locals are so we don't have to hack pic code in the assembler }
localmxcsr: dword;
localfpucw: word;
begin
localmxcsr:=mxcsr;
localfpucw:=fpucw;
asm
fldcw localfpucw
{ set sse exceptions }
ldmxcsr localmxcsr
end ['RAX'];
end;