paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 23:22:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* IsNan(single): can be written much simpler, because representation of single casted to longint is the same on big-endian and little-endian targets.

Browse Source 
git-svn-id: trunk@25554 -
This commit is contained in:
sergei 2013-09-24 18:55:44 +00:00
parent 35c0c76034
commit d981861433
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/objpas/math.pp
View File

@ -2046,24 +2046,8 @@ type
function IsNan(const d : Single): Boolean; overload;
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;
var
fraczero, expMaximal: boolean;
begin
{$ifdef FPC_BIG_ENDIAN}
expMaximal := ((TSplitSingle(d).words[0] shr 7) and $ff) = 255;
fraczero:= (TSplitSingle(d).cards[0] and $7fffff = 0);
{$else FPC_BIG_ENDIAN}
expMaximal := ((TSplitSingle(d).words[1] shr 7) and $ff) = 255;
fraczero := (TSplitSingle(d).cards[0] and $7fffff = 0);
{$endif FPC_BIG_ENDIAN}
Result:=expMaximal and not(fraczero);
result:=(longword(d) and $7fffffff)>$7f800000;
end;
{$ifdef FPC_HAS_TYPE_DOUBLE}