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

#pragma unwritten and #pragma unread.

Browse Source
This commit is contained in:
Y_Less 2018-10-04 10:18:44 +02:00
parent 35fa8d4485
commit e9d61e29f5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
source/compiler/sc2.c
View File

@ -1238,9 +1238,13 @@ static int command(void)
sc_tabsize=(int)val; sc_tabsize=(int)val;
} else if (strcmp(str,"align")==0) { } else if (strcmp(str,"align")==0) {
sc_alignnext=TRUE; sc_alignnext=TRUE;
} else if (strcmp(str,"unused")==0) { } else if (strcmp(str,"unused")==0 || strcmp(str,"unread")==0 || strcmp(str,"unwritten")==0) {
char name[sNAMEMAX+1]; char name[sNAMEMAX+1];
int i,comma; int i,comma;
/* mark as read if the pragma wasn't `unwritten` */
int read = str[2] == 'w' ? 0 : uREAD;
/* mark as written if the pragma wasn't `unread` */
int write = str[2] == 'r' ? 0 : uWRITTEN;
symbol *sym; symbol *sym;
do { do {
/* get the name */ /* get the name */
@ -1254,10 +1258,11 @@ static int command(void)
if (sym==NULL) if (sym==NULL)
sym=findglb(name,sSTATEVAR); sym=findglb(name,sSTATEVAR);
if (sym!=NULL) { if (sym!=NULL) {
sym->usage |= uREAD; /* mark as read if the pragma wasn't `unwritten` */
sym->usage |= read;
if (sym->ident==iVARIABLE || sym->ident==iREFERENCE if (sym->ident==iVARIABLE || sym->ident==iREFERENCE
|| sym->ident==iARRAY || sym->ident==iREFARRAY) || sym->ident==iARRAY || sym->ident==iREFARRAY)
sym->usage |= uWRITTEN; sym->usage |= write;
} else { } else {
error(17,name); /* undefined symbol */ error(17,name); /* undefined symbol */
} /* if */ } /* if */