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

* in delphi mode const sets from enumerations with values > 255 are allowed if these elements aren't used

Browse Source
This commit is contained in:
florian 2005-02-03 18:43:59 +00:00
parent 583d4a750d
commit a2a4985896
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ncnv.pas
View File

@ -427,11 +427,23 @@ implementation
end
else
begin
{ Single value }
{ Single value }
if p2.nodetype=ordconstn then
begin
if not(is_integer(p2.resulttype.def)) then
update_constsethi(p2.resulttype)
begin
{ for constant set elements, delphi allows the usage of elements of enumerations which
have value>255 if there is no element with a value > 255 used }
if (m_delphi in aktmodeswitches) and (p2.resulttype.def.deftype=enumdef) then
begin
if tordconstnode(p2).value>constsethi then
constsethi:=tordconstnode(p2).value;
if htype.def=nil then
htype:=p2.resulttype;
end
else
update_constsethi(p2.resulttype)
end
else
inserttypeconv(p2,u8inttype);
@ -2583,7 +2595,10 @@ begin
end.
{
$Log$
Revision 1.175 2005-01-30 11:26:40 peter
Revision 1.176 2005-02-03 18:43:59 florian
* in delphi mode const sets from enumerations with values > 255 are allowed if these elements aren't used
Revision 1.175 2005/01/30 11:26:40 peter
* add info that a procedure is local in error messages
Revision 1.174 2005/01/09 15:04:36 peter