fixed a potential bug in tag matching (should this one go to thiadmer)

--HG--
extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%40159
This commit is contained in:
David Anderson 2006-11-07 12:34:27 +00:00
parent 1dc2662a62
commit 2348f9106a

View File

@ -1782,7 +1782,7 @@ restart:
if (lval2.ident==iARRAY || lval2.ident==iREFARRAY)
error(33,lval2.sym->name); /* array must be indexed */
needtoken(close);
if (!matchtag(sym->x.tags.index,lval2.tag,TRUE))
if ((sym->usage & uENUMROOT) && !matchtag(sym->x.tags.index,lval2.tag,TRUE))
error(213);
if (lval2.ident==iCONSTEXPR) { /* constant expression */
stgdel(index,cidx); /* scratch generated code */