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

* fixed warnings.

Browse Source 
git-svn-id: trunk@5855 -
This commit is contained in:
yury 2007-01-08 19:14:51 +00:00
parent 702685717f
commit b04c30dfb8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/genmath.inc
View File

@ -781,13 +781,13 @@ type
if k >= -1021 then if k >= -1021 then
begin begin
hy:=float64(y).high; hy:=float64(y).high;
float64(y).high:=hy+(k shl 20); { add k to y's exponent } float64(y).high:=longint(hy)+(k shl 20); { add k to y's exponent }
result:=y; result:=y;
end end
else else
begin begin
hy:=float64(y).high; hy:=float64(y).high;
float64(y).high:=hy+((k+1000) shl 20); { add k to y's exponent } float64(y).high:=longint(hy)+((k+1000) shl 20); { add k to y's exponent }
result:=y*twom1000; result:=y*twom1000;
end; end;
end; end;