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

* sse instructions should mask overflow by default

Browse Source
This commit is contained in:
florian 2004-12-25 11:50:46 +00:00
parent 0ad4b9d394
commit cef9542133
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/x86_64/x86_64.inc
View File

@ -329,7 +329,12 @@ procedure inclocked(var l : int64);assembler;
const
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 }
FPU_Invalid = 1;
FPU_Denormal = 2;
@ -353,7 +358,10 @@ end;
{
$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
Revision 1.14 2004/11/01 20:31:35 florian