GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-28 06:03:00 +08:00
Code Issues Projects Releases Wiki Activity

maybe a concat right associative allows some optimizations...

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2000-03-03 17:29:25 -03:00
parent d1ea38580a
commit 61f97a8ace
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lparser.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lparser.c,v 1.62 2000/03/03 14:58:26 roberto Exp roberto $ ** $Id: lparser.c,v 1.63 2000/03/03 18:53:17 roberto Exp roberto $
** LL(1) Parser and code generator for Lua ** LL(1) Parser and code generator for Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -717,14 +717,14 @@ static int get_priority (int op, int *rp) {
case '>': case '<': case LE: case GE: case '>': case '<': case LE: case GE:
*rp = 2; return 2; *rp = 2; return 2;
case CONC: case CONC:
*rp = 3; return 3; *rp = 4; return 4; /* left associative (?) */
case '+': case '-': case '+': case '-':
*rp = 4; return 4;
case '*': case '/':
*rp = 5; return 5; *rp = 5; return 5;
/* priority 6 is for unary operators */ case '*': case '/':
*rp = 6; return 6;
#define UNARY_PRIORITY 7
case '^': case '^':
*rp = 7; return 8; /* right associative */ *rp = 8; return 9; /* right associative */
default: default:
*rp = -1; return -1; *rp = -1; return -1;
} }
@ -740,7 +740,7 @@ static void operator_expr (LexState *ls, expdesc *v, int limit) {
if (ls->token == '-' || ls->token == NOT) { if (ls->token == '-' || ls->token == NOT) {
int op = ls->token; /* operator */ int op = ls->token; /* operator */
next(ls); next(ls);
operator_expr(ls, v, 6); /* 6 == priority of NOT and unary `-' */ operator_expr(ls, v, UNARY_PRIORITY);
luaK_prefix(ls, op, v); luaK_prefix(ls, op, v);
} }
else simpleexp(ls, v); else simpleexp(ls, v);