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

* constant evaluation of trunc() and round() now also gives 64 bit

Browse Source 
results
This commit is contained in:
Jonas Maebe 2003-05-31 21:29:04 +00:00
parent a6d430204c
commit 4d70aebb1b
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ninl.pas
View File

@ -1173,31 +1173,31 @@ implementation
begin
if isreal then
begin
if (vr>=2147483648.0) or (vr<=-2147483649.0) then
if (vr>=9223372036854775808.0) or (vr<=-9223372036854775809.0) then
begin
CGMessage(parser_e_range_check_error);
hp:=cordconstnode.create(1,s32bittype,false)
hp:=cordconstnode.create(1,cs64bittype,false)
end
else
hp:=cordconstnode.create(trunc(vr),s32bittype,true)
hp:=cordconstnode.create(trunc(vr),cs64bittype,true)
end
else
hp:=cordconstnode.create(trunc(vl),s32bittype,true);
hp:=cordconstnode.create(trunc(vl),cs64bittype,true);
end;
in_const_round :
begin
if isreal then
begin
if (vr>=2147483647.5) or (vr<=-2147483648.5) then
if (vr>=9223372036854775807.5) or (vr<=-9223372036854775808.5) then
begin
CGMessage(parser_e_range_check_error);
hp:=cordconstnode.create(1,s32bittype,false)
hp:=cordconstnode.create(1,cs64bittype,false)
end
else
hp:=cordconstnode.create(round(vr),s32bittype,true)
hp:=cordconstnode.create(round(vr),cs64bittype,true)
end
else
hp:=cordconstnode.create(round(vl),s32bittype,true);
hp:=cordconstnode.create(round(vl),cs64bittype,true);
end;
in_const_frac :
begin
@ -2351,7 +2351,11 @@ begin
end.
{
$Log$
Revision 1.112 2003-05-17 13:30:08 jonas
Revision 1.113 2003-05-31 21:29:04 jonas
* constant evaluation of trunc() and round() now also gives 64 bit
results
Revision 1.112 2003/05/17 13:30:08 jonas
* changed tt_persistant to tt_persistent :)
* tempcreatenode now doesn't accept a boolean anymore for persistent
temps, but a ttemptype, so you can also create ansistring temps etc