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

__emit: Change the format of errors related to invalid use of the '-' sign

Browse Source 
Example:
  L1:
  __emit const.pri -L1;
Before:
  error 001: expected token: "-any value-", but found "-L1"
After:
  error 001: expected token: "-any value-", but found "-(-label-)"
This commit is contained in:
Daniel_Cortez 2019-04-03 20:52:38 +07:00
parent 4b490e8ec2
commit 40dace770f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
source/compiler/sc1.c
View File

@ -6078,8 +6078,10 @@ fetchtok:
} /* if */
if (sym->ident==iLABEL) {
sym->usage|=uREAD;
if (negate)
if (negate) {
tok=tLABEL;
goto invalid_token_neg;
} /* if */
if (!allow_nonint) {
tok=tLABEL;
goto invalid_token;
@ -6089,8 +6091,10 @@ fetchtok:
} else if (sym->ident==iFUNCTN || sym->ident==iREFFUNC) {
const int ntvref=sym->usage & uREAD;
markusage(sym,uREAD);
if (negate)
if (negate) {
tok=teFUNCTN;
goto invalid_token_neg;
} /* if */
if (!allow_nonint) {
tok=(sym->usage & uNATIVE) ? teNATIVE : teFUNCTN;
goto invalid_token;
@ -6149,7 +6153,10 @@ fetchtok:
extern char *sc_tokens[];
char ival[sNAMEMAX+2];
invalid_token_neg:
sprintf(ival,"-%s",str);
if (tok<tFIRST)
sprintf(ival,"-%c",tok);
else
sprintf(ival,"-(%s)",sc_tokens[tok-tFIRST]);
error(1,sc_tokens[expected_tok-tFIRST],ival);
return FALSE;
} /* if */