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

__emit: Allow negative offsets for arguments of type 'local variable'

Browse Source
This commit is contained in:
Daniel_Cortez 2019-04-04 21:11:53 +07:00
parent 3c370ffde2
commit 4c260e6c60
1 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
source/compiler/sc1.c
View File

@ -6286,9 +6286,11 @@ static void SC_FASTCALL emit_param_local(emit_outval *p,int allow_ref)
cell val;
char *str;
symbol *sym;
int tok;
int tok,negate;
negate=FALSE;
p->type=eotNUMBER;
fetchtok:
tok=lex(&val,&str);
switch (tok) {
case tNUMBER:
@ -6309,6 +6311,10 @@ static void SC_FASTCALL emit_param_local(emit_outval *p,int allow_ref)
tok=teREFERENCE;
goto invalid_token;
} /* if */
if (negate && sym->ident!=iCONSTEXPR) {
tok=(sym->ident==iREFERENCE || sym->ident==iREFARRAY) ? teREFERENCE : teLOCAL;
goto invalid_token_neg;
} /* if */
} else {
sym=findglb(str,sSTATEVAR);
if (sym==NULL) {
@ -6326,15 +6332,33 @@ static void SC_FASTCALL emit_param_local(emit_outval *p,int allow_ref)
} /* if */
val=sym->addr;
break;
case '-':
if (!negate) {
negate=TRUE;
goto fetchtok;
} else {
extern char *sc_tokens[];
char ival[sNAMEMAX+2];
invalid_token_neg:
if (tok<tFIRST)
sprintf(ival,"-%c",tok);
else
sprintf(ival,"-(%s)",sc_tokens[tok-tFIRST]);
error(1,sc_tokens[teLOCAL-tFIRST],ival);
return;
}
default:
invalid_token:
if (negate)
goto invalid_token_neg;
emit_invalid_token(teLOCAL,tok);
return;
} /* switch */
if ((val % sizeof(cell))==0)
p->value.ucell=(ucell)val;
else
if ((val % sizeof(cell))!=0) {
error(11); /* must be a multiple of cell size */
return;
}
p->value.ucell=(ucell)(negate ? -val : val);
}
static void SC_FASTCALL emit_param_label(emit_outval *p)