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

* set SSE CSR if sse is supported by the CPU

Browse Source 
git-svn-id: trunk@6021 -
This commit is contained in:
florian 2007-01-17 08:27:48 +00:00
parent 5d2b592ed4
commit 685844b61c
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/i386/mathu.inc
View File

@ -21,8 +21,8 @@ function arctan2(y,x : float) : float;assembler;
fpatan
fwait
end;
{$define FPC_MATH_HAS_SINCOS}
procedure sincos(theta : float;out sinus,cosinus : float);assembler;
asm
@ -34,7 +34,7 @@ procedure sincos(theta : float;out sinus,cosinus : float);assembler;
end;
{$define FPC_MATH_HAS_TAN}
{$define FPC_MATH_HAS_TAN}
function tan(x : float) : float;assembler;
asm
fldt X
@ -42,7 +42,7 @@ function tan(x : float) : float;assembler;
fstp %st
fwait
end;
{$define FPC_MATH_HAS_COTAN}
function cotan(x : float) : float;assembler;
@ -65,6 +65,8 @@ var
begin
CtlWord := Get8087CW;
Set8087CW((CtlWord and $F3FF) or (Ord(RoundMode) shl 10));
if has_sse_support then
SetSSECSR((GetSSECSR and $ffff9fff) or (dword(RoundMode) shl 13));
Result := TFPURoundingMode((CtlWord shr 10) and 3);
end;
@ -93,6 +95,9 @@ var
begin
CtlWord := Get8087CW;
Set8087CW( (CtlWord and $FFC0) or Byte(Longint(Mask)) );
if has_sse_support then
SetSSECSR((GetSSECSR and $ffffe07f) or (dword(Mask) shl 7));
softfloat_exception_mask:=dword(Mask);
Result := TFPUExceptionMask(Longint(CtlWord and $3F));
end;
@ -104,4 +109,3 @@ asm
.Lclear:
fnclex
end;