Browse Source

* sse instructions should mask overflow by default

florian 20 years ago
parent
commit
cef9542133
1 changed files with 10 additions and 2 deletions
  1. 10 2
      rtl/x86_64/x86_64.inc

+ 10 - 2
rtl/x86_64/x86_64.inc

@@ -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