1berry/pawn-compiler
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Revert "triggers an error for issue #129"

Browse Source 
This reverts commit 9e4a2b283fd01549d05058c8946ecee974e30dbe.

Reverting because of #198.
This commit is contained in:
Zeex 2017-10-23 08:04:02 +06:00
parent bf514bcd7d
commit 17ebeb8ebe
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
source/compiler/sc3.c
View File

@ -1064,7 +1064,6 @@ static int hier13(value *lval)
int flab2=getlabel(); int flab2=getlabel();
value lval2={0}; value lval2={0};
int array1,array2; int array1,array2;
int asize1 = -1, asize2 = -1; /* -1 indicates that the value is not an array */
if (lvalue) { if (lvalue) {
rvalue(lval); rvalue(lval);
@ -1120,17 +1119,6 @@ static int hier13(value *lval)
error(33,ptr); /* array must be indexed */ error(33,ptr); /* array must be indexed */
} /* if */ } /* if */
/* ??? if both are arrays, should check dimensions */ /* ??? if both are arrays, should check dimensions */
if (lval->ident == iARRAY)
asize1 = (lval->sym == NULL) ? (lval->constval > 0 ? lval->constval : -lval->constval) : lval->sym->dim.array.length;
if (lval->ident == iREFARRAY)
asize1 = lval->sym->dim.array.length;
if (lval2.ident == iARRAY)
asize2 = (lval2.sym == NULL) ? (lval2.constval > 0 ? lval2.constval : -lval2.constval) : lval2.sym->dim.array.length;
if (lval2.ident == iREFARRAY)
asize2 = lval2.sym->dim.array.length;
if (asize1 != -1 && asize2 != -1)
if (asize1 != asize2)
error(47);
if (!matchtag(lval->tag,lval2.tag,FALSE)) if (!matchtag(lval->tag,lval2.tag,FALSE))
error(213); /* tagname mismatch ('true' and 'false' expressions) */ error(213); /* tagname mismatch ('true' and 'false' expressions) */
setlabel(flab2); setlabel(flab2);