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

* also adjust constsetlo when parsing a constant set in Delphi mode

Browse Source 
git-svn-id: trunk@10395 -
This commit is contained in:
Jonas Maebe 2008-02-27 15:42:49 +00:00
parent f9b80919e1
commit 179b840cea
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncnv.pas
View File

@ -488,6 +488,8 @@ implementation
begin begin
if tordconstnode(p2).value>constsethi then if tordconstnode(p2).value>constsethi then
constsethi:=tordconstnode(p2).value; constsethi:=tordconstnode(p2).value;
if tordconstnode(p2).value<constsetlo then
constsetlo:=tordconstnode(p2).value;
if hdef=nil then if hdef=nil then
hdef:=p2.resultdef; hdef:=p2.resultdef;
end end
@ -1957,7 +1959,7 @@ implementation
{ checks whether we can safely remove 64 bit typeconversions } { checks whether we can safely remove 64 bit typeconversions }
{ in case range and overflow checking are off, and in case } { in case range and overflow checking are off, and in case }
{ the result of thise node tree is downcasted again to a } { the result of this node tree is downcasted again to a }
{ 8/16/32 bit value afterwards } { 8/16/32 bit value afterwards }
function checkremove64bittypeconvs(n: tnode): boolean; function checkremove64bittypeconvs(n: tnode): boolean;