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

* Disable range and overflow checking inside softfpu implementation

Browse Source 
git-svn-id: trunk@46682 -
This commit is contained in:
pierre 2020-08-25 06:34:29 +00:00
parent c73c98d995
commit 1e8aa99f81
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/softfpu.pp
View File

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