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
** See Copyright Notice in lua.h
*/
@ -717,14 +717,14 @@ static int get_priority (int op, int *rp) {
case '>': case '<': case LE: case GE:
*rp = 2; return 2;
case CONC:
*rp = 3; return 3;
*rp = 4; return 4; /* left associative (?) */
case '+': case '-':
*rp = 4; return 4;
case '*': case '/':
*rp = 5; return 5;
/* priority 6 is for unary operators */
case '*': case '/':
*rp = 6; return 6;
#define UNARY_PRIORITY 7
case '^':
*rp = 7; return 8; /* right associative */
*rp = 8; return 9; /* right associative */
default:
*rp = -1; return -1;
}
@ -740,7 +740,7 @@ static void operator_expr (LexState *ls, expdesc *v, int limit) {
if (ls->token == '-' || ls->token == NOT) {
int op = ls->token; /* operator */
next(ls);
operator_expr(ls, v, 6); /* 6 == priority of NOT and unary `-' */
operator_expr(ls, v, UNARY_PRIORITY);
luaK_prefix(ls, op, v);
}
else simpleexp(ls, v);