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

__emit: Properly display error messages on type mismatch for arguments of type 'label'

Browse Source
This commit is contained in:
Daniel_Cortez 2018-11-25 03:48:45 +07:00
parent 4c798112bd
commit f6c9db9269
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
source/compiler/sc1.c
View File

@ -6330,13 +6330,29 @@ static void SC_FASTCALL emit_param_label(emit_outval *p)
goto invalid_token; goto invalid_token;
/* fallthrough */ /* fallthrough */
case tSYMBOL: case tSYMBOL:
sym=fetchlab(str); sym=findloc(str);
if (sym==NULL)
sym=findglb(str,sSTATEVAR);
if (sym!=NULL) {
markusage(sym,(sym->ident==iFUNCTN || sym->ident==iREFFUNC) ? uREAD : (uREAD | uWRITTEN));
if (sym->ident!=iLABEL) {
if (sym->ident==iFUNCTN || sym->ident==iREFFUNC)
tok=((sym->usage & uNATIVE)!=0) ? teNATIVE : teFUNCTN;
else if (sym->ident==iCONSTEXPR)
tok=teNUMERIC;
else
tok=(sym->vclass==sLOCAL) ? teLOCAL : teDATA;
goto invalid_token;
} /* if */
} else {
sym=fetchlab(str);
} /* if */
sym->usage|=uREAD; sym->usage|=uREAD;
p->value.ucell=(ucell)sym->addr; p->value.ucell=(ucell)sym->addr;
break; break;
default: default:
invalid_token: invalid_token:
emit_invalid_token(tSYMBOL,tok); emit_invalid_token(tLABEL,tok);
} }
} }