fixed constant dimension size bug

--HG--
extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%40158
This commit is contained in:
David Anderson 2006-11-07 11:50:30 +00:00
parent 0bdf321d67
commit 1dc2662a62

View File

@ -2027,7 +2027,7 @@ static int declloc(int fstatic)
if (all_constant) {
/* Change the last dimension to be based on chars instead if we have a string */
if (tag == pc_tag_string && dim[numdim-1])
dim[numdim-1] = (size + sizeof(cell)-1) / sizeof(cell);
dim[numdim-1] = (dim[numdim-1] + sizeof(cell)-1) / sizeof(cell);
/* Scrap the code generated */
ident = iARRAY;
stgdel(_index, _code);