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

* fpc_trunc_real: explicitly cast float64.high and float32 to longint, fixes test suite regressions on softfloat targets. These targets have different definitions of float64/float32 (with unsigned fields), causing comparisons like "float64.high<0" to be optimized out.

Browse Source 
git-svn-id: trunk@26095 -
This commit is contained in:
sergei 2013-11-15 13:26:09 +00:00
parent bca2c464da
commit 4f0b3f61ec
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/genmath.inc
View File

@ -158,7 +158,7 @@ type
if (a.high<>$C3E00000) or (a.low<>0) then
begin
float_raise(float_flag_invalid);
if (a.high>=0) or ((aExp=$7FF) and
if (longint(a.high)>=0) or ((aExp=$7FF) and
(aSig<>$0010000000000000 )) then
begin
result:=$7FFFFFFFFFFFFFFF;
@ -183,7 +183,7 @@ type
float_exception_flags |= float_flag_inexact;
}
end;
if a.high<0 then
if longint(a.high)<0 then
z:=-z;
result:=z;
end;
@ -205,7 +205,7 @@ type
if ( a <> Float32($DF000000) ) then
Begin
float_raise( float_flag_invalid );
if ( (a>=0) or ( ( aExp = $FF ) and (aSig<>0) ) ) then
if ( (longint(a)>=0) or ( ( aExp = $FF ) and (aSig<>0) ) ) then
Begin
result:=$7fffffffffffffff;
exit;
@ -222,7 +222,7 @@ type
End;
aSig64 := int64( aSig or $00800000 ) shl 40;
z := aSig64 shr ( - shiftCount );
if ( a<0 ) then z := - z;
if ( longint(a)<0 ) then z := - z;
result := z;
End;
{$endif SUPPORT_DOUBLE}