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

Merge pull request #151 from YashasSamaga/i129-fix

Browse Source 
triggers an error for issue #129
This commit is contained in:
Zeex 2017-10-08 02:47:20 +06:00 committed by GitHub
commit 9daeae3d1a
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
source/compiler/sc3.c
View File

@ -1064,6 +1064,7 @@ static int hier13(value *lval)
int flab2=getlabel();
value lval2={0};
int array1,array2;
int asize1 = -1, asize2 = -1; /* -1 indicates that the value is not an array */
if (lvalue) {
rvalue(lval);
@ -1119,6 +1120,17 @@ static int hier13(value *lval)
error(33,ptr); /* array must be indexed */
} /* if */
/* ??? 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))
error(213); /* tagname mismatch ('true' and 'false' expressions) */
setlabel(flab2);