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

Fix the compiler crash with #emit

Browse Source 
Signed-off-by: VVWVV <d0u61ev@gmail.com>
This commit is contained in:
VVWVV 2017-01-27 18:30:01 +03:00
parent 5bedccc36d
commit 5ee186223f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
source/compiler/sc2.c
View File

@ -1318,6 +1318,8 @@ static int command(void)
error(17,str); /* undefined symbol */ error(17,str); /* undefined symbol */
} else { } else {
if (sym->ident==iFUNCTN || sym->ident==iREFFUNC) { if (sym->ident==iFUNCTN || sym->ident==iREFFUNC) {
int count;
if ((sym->usage & uNATIVE)!=0) { if ((sym->usage & uNATIVE)!=0) {
/* reserve a SYSREQ id if called for the first time */ /* reserve a SYSREQ id if called for the first time */
if (sc_status==statWRITE && (sym->usage & uREAD)==0 && sym->addr>=0) if (sc_status==statWRITE && (sym->usage & uREAD)==0 && sym->addr>=0)
@ -1333,7 +1335,11 @@ static int command(void)
/* mark function as "used" */ /* mark function as "used" */
/* do NOT mark it as written as that has a different meaning for /* do NOT mark it as written as that has a different meaning for
* functions (marks them as "should return a value") */ * functions (marks them as "should return a value") */
markusage(sym,uREAD);
for (count=0; count<curfunc->numrefers && curfunc->refer[count]; count++)
/* nothing */;
if (count!=0 || (curfunc->usage & uPUBLIC)!=0)
markusage(sym,uREAD);
} else { } else {
outval(sym->addr,FALSE); outval(sym->addr,FALSE);
/* mark symbol as "used", unknown whether for read or write */ /* mark symbol as "used", unknown whether for read or write */