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

Merge pull request #377 from Y-Less/Branch_pragma_unwritten

Browse Source 
Branch pragma unwritten
This commit is contained in:
Zeex 2019-06-17 10:56:39 +06:00 committed by GitHub
commit 599415444b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 24 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;
} else if (strcmp(str,"align")==0) {
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];
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;
do {
/* get the name */
@ -1254,10 +1258,11 @@ static int command(void)
if (sym==NULL)
sym=findglb(name,sSTATEVAR);
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
|| sym->ident==iARRAY || sym->ident==iREFARRAY)
sym->usage |= uWRITTEN;
sym->usage |= write;
} else {
error(17,name); /* undefined symbol */
} /* if */

5
source/compiler/tests/gh_373.meta Normal file
View File

@ -0,0 +1,5 @@
{
'test_type': 'output_check',
'errors': """
"""
}

11
source/compiler/tests/gh_373.pwn Normal file
View File

@ -0,0 +1,11 @@
Func(a[])
{
#pragma unwritten a
return a[0];
}
main() {
new a[2];
Func(a);
}