paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 12:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add overloads of IsInfinite() for Single and Extended (compatible with Delphi)

Browse Source 
git-svn-id: trunk@39135 -
This commit is contained in:
svenbarth 2018-05-28 15:36:18 +00:00
parent ee2c573deb
commit 8a195c44ba
1 changed files with 32 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
rtl/objpas/math.pp
View File

@ -245,7 +245,14 @@ function IsNan(const d : Double): Boolean; overload;
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
function IsNan(const d : Extended): Boolean; overload; function IsNan(const d : Extended): Boolean; overload;
{$endif FPC_HAS_TYPE_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}
function IsInfinite(const d : Double): Boolean;
function IsInfinite(const d : Single): Boolean; overload;
{$ifdef FPC_HAS_TYPE_DOUBLE}
function IsInfinite(const d : Double): Boolean; overload;
{$endif FPC_HAS_TYPE_DOUBLE}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function IsInfinite(const d : Extended): Boolean; overload;
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef FPC_HAS_TYPE_EXTENDED}
function SameValue(const A, B: Extended): Boolean;inline; overload; function SameValue(const A, B: Extended): Boolean;inline; overload;
@ -2252,7 +2259,13 @@ function IsNan(const d : Extended): Boolean; overload;
end; end;
{$endif FPC_HAS_TYPE_EXTENDED} {$endif FPC_HAS_TYPE_EXTENDED}
function IsInfinite(const d : Double): Boolean; function IsInfinite(const d : Single): Boolean; overload;
begin
result:=(longword(d) and $7fffffff)=$7f800000;
end;
{$ifdef FPC_HAS_TYPE_DOUBLE}
function IsInfinite(const d : Double): Boolean; overload;
var var
fraczero, expMaximal: boolean; fraczero, expMaximal: boolean;
begin begin
@ -2267,6 +2280,23 @@ function IsInfinite(const d : Double): Boolean;
{$endif FPC_BIG_ENDIAN} {$endif FPC_BIG_ENDIAN}
Result:=expMaximal and fraczero; Result:=expMaximal and fraczero;
end; end;
{$endif FPC_HAS_TYPE_DOUBLE}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function IsInfinite(const d : Extended): Boolean; overload;
var
fraczero, expMaximal: boolean;
begin
{$ifdef FPC_BIG_ENDIAN}
{$error no support for big endian extended type yet}
{$else FPC_BIG_ENDIAN}
expMaximal := (TSplitExtended(d).w and $7fff) = 32767;
fraczero := (TSplitExtended(d).cards[0] = 0) and
((TSplitExtended(d).cards[1] and $7fffffff) = 0);
{$endif FPC_BIG_ENDIAN}
Result:=expMaximal and fraczero;
end;
{$endif FPC_HAS_TYPE_EXTENDED}
function copysign(x,y: float): float; function copysign(x,y: float): float;
begin begin