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

* support enums in property array ranges

Browse Source
This commit is contained in:
peter 2004-03-04 17:24:42 +00:00
parent f8c0dd3a62
commit 7ff979cdc9
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/pdecvar.pas
View File

@ -73,6 +73,7 @@ implementation
sym : tsym; sym : tsym;
srsymtable : tsymtable; srsymtable : tsymtable;
st : tsymtable; st : tsymtable;
p : tnode;
begin begin
result:=true; result:=true;
def:=nil; def:=nil;
@ -156,7 +157,21 @@ implementation
repeat repeat
if def.deftype=arraydef then if def.deftype=arraydef then
begin begin
idx:=get_intconst; idx:=0;
p:=comp_expr(true);
if (not codegenerror) then
begin
if (p.nodetype=ordconstn) then
begin
if compare_defs(p.resulttype.def,tarraydef(def).rangetype.def,nothingn)>=te_equal then
idx:=tordconstnode(p).value
else
IncompatibleTypes(p.resulttype.def,tarraydef(def).rangetype.def);
end
else
Message(cg_e_illegal_expression)
end;
p.free;
pl.addconst(sl_vec,idx); pl.addconst(sl_vec,idx);
def:=tarraydef(def).elementtype.def; def:=tarraydef(def).elementtype.def;
end end
@ -1150,7 +1165,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.68 2004-02-26 16:10:23 peter Revision 1.69 2004-03-04 17:24:42 peter
* support enums in property array ranges
Revision 1.68 2004/02/26 16:10:23 peter
* another procvar directive fix, this time for initialized vars * another procvar directive fix, this time for initialized vars
Revision 1.67 2004/02/20 21:55:59 peter Revision 1.67 2004/02/20 21:55:59 peter