paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-05 15:50:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

* IsNan, IsInfinite for Extended and Double

Browse Source 
git-svn-id: trunk@6462 -
This commit is contained in:
michael 2007-02-12 20:57:24 +00:00
parent 11ab5d496d
commit 3275f36b8f
1 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
rtl/objpas/math.pp
View File

@ -207,6 +207,14 @@ function IsZero(const A: Extended): Boolean;inline;
function IsNan(const d : Double): Boolean;
function IsInfinite(const d : Double): Boolean;
{$ifdef FPC_HAS_TYPE_EXTENDED}
function IsNan(const E : Extended): Boolean;
function IsInfinite(const E : Extended): Boolean;
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_SINGLE}
function IsNan(const s : Single): Boolean;
function IsInfinite(const s : Single): Boolean;
{$endif FPC_HAS_TYPE_SINGLE}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function SameValue(const A, B: Extended): Boolean;inline;
@ -2107,6 +2115,72 @@ function IsInfinite(const d : Double): Boolean;
Result:=expMaximal and fraczero;
end;
{$ifdef FPC_HAS_TYPE_EXTENDED}
type
TSplitExtended = packed record
case byte of
0: (bytes: Array[0..9] of byte);
1: (words: Array[0..4] of word);
2: (cards: Array[0..1] of cardinal; w: word);
end;
function IsNan(const E : Extended): Boolean;
var
fraczero, expMaximal: boolean;
begin
expMaximal := (TSplitExtended(e).w and $7fff) = 32767;
fraczero := (TSplitExtended(e).cards[0] = 0) and
((TSplitExtended(e).cards[1] and $7fffffff) = 0);
Result:=expMaximal and not FracZero;
end;
function IsInfinite(const E : Extended): Boolean;
Var
fraczero, expMaximal: boolean;
begin
expMaximal := (TSplitExtended(e).w and $7fff) = 32767;
fraczero := (TSplitExtended(e).cards[0] = 0) and
((TSplitExtended(e).cards[1] and $7fffffff) = 0);
Result:=expMaximal and fraczero;
end;
{$endif FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_SINGLE}
type
TSplitSingle = packed record
case byte of
0: (bytes: Array[0..3] of byte);
1: (words: Array[0..1] of word);
2: (cards: Array[0..0] of cardinal);
end;
function IsNan(const s : Single): Boolean;
Var
fraczero, expMaximal: boolean;
begin
expMaximal := ((TSplitSingle(s).words[1] shr 7) and $ff) = 255;
fraczero := (TSplitSingle(s).cards[0] and $7fffff = 0);
Result:=expMaximal and not fraczero;
end;
function IsInfinite(const s : Single): Boolean;
Var
fraczero, expMaximal: boolean;
begin
expMaximal := ((TSplitSingle(s).words[1] shr 7) and $ff) = 255;
fraczero := (TSplitSingle(s).cards[0] and $7fffff = 0);
Result:=expMaximal and fraczero;
end;
{$endif}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;