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

* Avoid promotion to 64 bits due to mixing signed and unsigned expressions.

Browse Source 
git-svn-id: trunk@28510 -
This commit is contained in:
sergei 2014-08-22 17:21:26 +00:00
parent 26d53cfa55
commit 6807812997
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/genmath.inc
View File

@ -1466,7 +1466,7 @@ type
k := 0; k := 0;
if (hx < $00100000) then { x < 2**-1022 } if (hx < $00100000) then { x < 2**-1022 }
begin begin
if (((hx and $7fffffff) or lx)=0) then if (((hx and $7fffffff) or longint(lx))=0) then
exit(-two54/zero); { log(+-0)=-inf } exit(-two54/zero); { log(+-0)=-inf }
if (hx<0) then if (hx<0) then
exit((d-d)/zero); { log(-#) = NaN } exit((d-d)/zero); { log(-#) = NaN }