paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 21:49:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed sse exception handling

Browse Source
This commit is contained in:
florian 2004-11-02 15:26:21 +00:00
parent efc6c7793e
commit 07c28067aa
6 changed files with 91 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/i386/mathu.inc
View File

@ -24,6 +24,28 @@ function arctan2(y,x : float) : float;assembler;
end;
procedure SetSSECSR(w : dword);
var
_w : dword;
begin
_w:=w;
asm
ldmxcsr _w
end;
end;
function GetSSECSR : dword;
var
_w : dword;
begin
asm
stmxcsr _w
end;
result:=_w;
end;
function GetRoundMode: TFPURoundingMode;
begin
Result := TFPURoundingMode((Get8087CW shr 10) and 3);
@ -77,7 +99,10 @@ end;
{
$Log$
Revision 1.4 2004-05-09 15:47:56 peter
Revision 1.5 2004-11-02 15:26:21 florian
* fixed sse exception handling
Revision 1.4 2004/05/09 15:47:56 peter
* fixed wrong typecasts
Revision 1.3 2003/10/31 09:20:11 mazen
@ -88,4 +113,4 @@ end;
Revision 1.1 2003/04/24 09:16:31 florian
* initial implementation with code from math.pp
}
}

11
rtl/i386/mathuh.inc
View File

@ -29,8 +29,15 @@ function GetExceptionMask: TFPUExceptionMask;
function SetExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
procedure ClearExceptions(RaisePending: Boolean {$ifndef VER1_0}=true{$endif});
procedure SetSSECSR(w : dword);
function GetSSECSR : dword;
{
$Log$
Revision 1.1 2003-04-24 09:16:31 florian
Revision 1.2 2004-11-02 15:26:21 florian
* fixed sse exception handling
Revision 1.1 2003/04/24 09:16:31 florian
* initial implementation with code from math.pp
}
}

9
rtl/linux/x86_64/prt0.as
View File

@ -49,8 +49,6 @@ _start:
movq %rax,operatingsystem_parameter_envp
andq $~15,%rsp /* Align the stack to a 16 byte boundary to follow the ABI. */
/* !!!! CPU initialization? */
xorq %rbp, %rbp
call PASCALMAIN
jmp _haltproc
@ -95,7 +93,10 @@ __data_start:
#
# $Log$
# Revision 1.8 2004-07-03 21:50:31 daniel
# Revision 1.9 2004-11-02 15:26:21 florian
# * fixed sse exception handling
#
# Revision 1.8 2004/07/03 21:50:31 daniel
# * Modified bootstrap code so separate prt0.as/prt0_10.as files are no
# longer necessary
#
@ -122,4 +123,4 @@ __data_start:
# Revision 1.1 2003/01/06 19:33:10 florian
# + initial revision
#
#
#

29
rtl/x86_64/mathu.inc
View File

@ -23,6 +23,28 @@ function arctan2(y,x : float) : float;assembler;
end;
procedure SetSSECSR(w : dword);
var
_w : dword;
begin
_w:=w;
asm
ldmxcsr _w
end;
end;
function GetSSECSR : dword;
var
_w : dword;
begin
asm
stmxcsr _w
end;
result:=_w;
end;
function GetRoundMode: TFPURoundingMode;
begin
Result := TFPURoundingMode((Get8087CW shr 10) and 3);
@ -76,6 +98,9 @@ end;
{
$Log$
Revision 1.1 2004-02-21 22:53:50 florian
Revision 1.2 2004-11-02 15:26:21 florian
* fixed sse exception handling
Revision 1.1 2004/02/21 22:53:50 florian
* several 64 bit/x86-64 fixes
}
}

11
rtl/x86_64/mathuh.inc
View File

@ -29,8 +29,15 @@ function GetExceptionMask: TFPUExceptionMask;
function SetExceptionMask(const Mask: TFPUExceptionMask): TFPUExceptionMask;
procedure ClearExceptions(RaisePending: Boolean {$ifndef VER1_0}=true{$endif});
procedure SetSSECSR(w : dword);
function GetSSECSR : dword;
{
$Log$
Revision 1.1 2004-02-21 22:53:50 florian
Revision 1.2 2004-11-02 15:26:21 florian
* fixed sse exception handling
Revision 1.1 2004/02/21 22:53:50 florian
* several 64 bit/x86-64 fixes
}
}

20
rtl/x86_64/x86_64.inc
View File

@ -26,9 +26,9 @@
****************************************************************************}
procedure fpc_cpuinit;
begin
end;
begin
SysResetFPU;
end;
{$define FPC_SYSTEM_HAS_SPTR}
Function Sptr : Pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
@ -329,6 +329,7 @@ procedure inclocked(var l : int64);assembler;
const
fpucw : word = $1332;
mxcsr : dword = %0001100000000000;
{ Internal constants for use in system unit }
FPU_Invalid = 1;
FPU_Denormal = 2;
@ -342,13 +343,20 @@ const
{$define FPC_SYSTEM_HAS_SYSRESETFPU}
Procedure SysResetFPU;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
fninit
fldcw fpucw
{ initialize fpu }
fninit
fwait
fldcw fpucw
{ set sse exceptions }
ldmxcsr mxcsr
end;
{
$Log$
Revision 1.14 2004-11-01 20:31:35 florian
Revision 1.15 2004-11-02 15:26:21 florian
* fixed sse exception handling
Revision 1.14 2004/11/01 20:31:35 florian
* another fix for locked reference counting
Revision 1.13 2004/06/05 07:55:22 peter