Browse Source

- i386 and x86_64 no longer use any softfloat stuff.

git-svn-id: trunk@27182 -
sergei 11 years ago
parent
commit
4952754184
4 changed files with 0 additions and 8 deletions
  1. 0 2
      rtl/i386/i386.inc
  2. 0 1
      rtl/i386/mathu.inc
  3. 0 1
      rtl/x86_64/mathu.inc
  4. 0 4
      rtl/x86_64/x86_64.inc

+ 0 - 2
rtl/i386/i386.inc

@@ -1362,7 +1362,6 @@ Procedure SysInitFPU;
           ldmxcsr localmxcsr
           ldmxcsr localmxcsr
         end;
         end;
       end;
       end;
-    softfloat_exception_mask:=float_flag_underflow or float_flag_inexact or float_flag_denormal;
   end;
   end;
 
 
 
 
@@ -1387,7 +1386,6 @@ Procedure SysResetFPU;
           ldmxcsr localmxcsr
           ldmxcsr localmxcsr
         end;
         end;
       end;
       end;
-    softfloat_exception_flags:=0;
   end;
   end;
 
 
 
 

+ 0 - 1
rtl/i386/mathu.inc

@@ -181,7 +181,6 @@ begin
   Set8087CW( (CtlWord and $FFC0) or Byte(Longint(Mask)) );
   Set8087CW( (CtlWord and $FFC0) or Byte(Longint(Mask)) );
   if has_sse_support then
   if has_sse_support then
     SetSSECSR((GetSSECSR and $ffffe07f) or (dword(Mask) shl 7));
     SetSSECSR((GetSSECSR and $ffffe07f) or (dword(Mask) shl 7));
-  softfloat_exception_mask:=dword(Mask);
   Result := TFPUExceptionMask(Longint(CtlWord and $3F));
   Result := TFPUExceptionMask(Longint(CtlWord and $3F));
 end;
 end;
 
 

+ 0 - 1
rtl/x86_64/mathu.inc

@@ -150,7 +150,6 @@ begin
   CtlWord:=Get8087CW;
   CtlWord:=Get8087CW;
   Set8087CW((CtlWord and $FFC0) or Byte(Longint(Mask)));
   Set8087CW((CtlWord and $FFC0) or Byte(Longint(Mask)));
   SetSSECSR((GetSSECSR and $ffffe07f) or (dword(Mask) shl 7));
   SetSSECSR((GetSSECSR and $ffffe07f) or (dword(Mask) shl 7));
-  softfloat_exception_mask:=dword(Mask);
   Result:=GetExceptionMask;
   Result:=GetExceptionMask;
 end;
 end;
 
 

+ 0 - 4
rtl/x86_64/x86_64.inc

@@ -964,8 +964,6 @@ begin
     { set sse exceptions }
     { set sse exceptions }
     ldmxcsr localmxcsr
     ldmxcsr localmxcsr
   end ['RAX'];
   end ['RAX'];
-  { x86-64 might use softfloat code }
-  softfloat_exception_mask:=float_flag_underflow or float_flag_inexact or float_flag_denormal;
 end;
 end;
 
 
 
 
@@ -984,8 +982,6 @@ Procedure SysResetFPU;
       fldcw   localfpucw
       fldcw   localfpucw
       ldmxcsr localmxcsr
       ldmxcsr localmxcsr
     end;
     end;
-    { x86-64 might use softfloat code }
-    softfloat_exception_flags:=0;
   end;
   end;