mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 01:29:19 +02:00
* sse instructions should mask overflow by default
This commit is contained in:
parent
0ad4b9d394
commit
cef9542133
@ -329,7 +329,12 @@ procedure inclocked(var l : int64);assembler;
|
|||||||
|
|
||||||
const
|
const
|
||||||
fpucw : word = $1332;
|
fpucw : word = $1332;
|
||||||
mxcsr : dword = %0001100000000000;
|
|
||||||
|
MM_MaskOverflow = %0000010000000000;
|
||||||
|
MM_MaskUnderflow = %0000100000000000;
|
||||||
|
MM_MaskPrecision = %0001000000000000;
|
||||||
|
mxcsr : dword = MM_MaskOverflow or MM_MaskUnderflow or MM_MaskPrecision;
|
||||||
|
|
||||||
{ Internal constants for use in system unit }
|
{ Internal constants for use in system unit }
|
||||||
FPU_Invalid = 1;
|
FPU_Invalid = 1;
|
||||||
FPU_Denormal = 2;
|
FPU_Denormal = 2;
|
||||||
@ -353,7 +358,10 @@ end;
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.15 2004-11-02 15:26:21 florian
|
Revision 1.16 2004-12-25 11:50:46 florian
|
||||||
|
* sse instructions should mask overflow by default
|
||||||
|
|
||||||
|
Revision 1.15 2004/11/02 15:26:21 florian
|
||||||
* fixed sse exception handling
|
* fixed sse exception handling
|
||||||
|
|
||||||
Revision 1.14 2004/11/01 20:31:35 florian
|
Revision 1.14 2004/11/01 20:31:35 florian
|
||||||
|
Loading…
Reference in New Issue
Block a user