Explorar el Código

* Disable range and overflow checking inside softfpu implementation

git-svn-id: trunk@46682 -
pierre hace 5 años
padre
commit
1e8aa99f81
Se han modificado 1 ficheros con 17 adiciones y 0 borrados
  1. 17 0
      rtl/inc/softfpu.pp

+ 17 - 0
rtl/inc/softfpu.pp

@@ -562,6 +562,17 @@ implementation
 
 
 {$if not(defined(fpc_softfpu_interface))}
+
+{$ifdef FPC}
+  { disable range and overflow checking explicitly }
+  { This might be more essential for x80 and 128-bit
+    floating point types and could, maybe be
+    restricted to code handle flatx80 and float128 }
+  {$push}
+  {$R-}
+  {$Q-}
+{$endif FPC}
+
 (*****************************************************************************)
 (*----------------------------------------------------------------------------*)
 (* Primitive arithmetic functions, including multi-word arithmetic, and       *)
@@ -9373,4 +9384,10 @@ end;
 
 end.
 
+{$ifdef FPC}
+  { restore context modified at implmentation start
+    to possibly re-enable range and overflow checking explicitly}
+  {$pop}
+{$endif FPC}
+
 {$endif not(defined(fpc_softfpu_interface)) and not(defined(fpc_softfpu_implementation))}