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

__emit: Take in account local symbols for arguments of type 'function'

Browse Source
This commit is contained in:
Daniel_Cortez 2018-11-25 19:11:43 +07:00
parent f6c9db9269
commit 1ad14487a3
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
source/compiler/sc1.c
View File

@ -6368,18 +6368,26 @@ static void SC_FASTCALL emit_param_function(emit_outval *p,int isnative)
switch (tok)
{
case tSYMBOL:
sym=findglb(str,sSTATEVAR);
sym=findloc(str);
if (sym==NULL)
sym=findglb(str,sSTATEVAR);
if (sym==NULL) {
error(17,str); /* undefined symbol */
return;
} /* if */
markusage(sym,uREAD);
if (sym->ident==iFUNCTN || sym->ident==iREFFUNC) {
markusage(sym,uREAD);
if (!!(sym->usage & uNATIVE)==isnative)
break;
tok=(isnative!=FALSE) ? teFUNCTN : teNATIVE;
} else {
tok=(sym->ident==iCONSTEXPR) ? teNUMERIC : teDATA;
markusage(sym,uREAD | uWRITTEN);
if (sym->ident==iLABEL)
tok=tLABEL;
else if (sym->ident==iCONSTEXPR)
tok=teNUMERIC;
else
tok=(sym->vclass==sLOCAL) ? teLOCAL : teDATA;
} /* if */
/* fallthrough */
default: