lua

commit 61f97a8ace5b0df8de8da4e7473643a35956c2a7
parent d1ea38580ae35a3a34e7122c41682af7f9901030
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri,  3 Mar 2000 17:29:03 -0300

maybe a concat right associative allows some optimizations...

Diffstat:
M
lparser.c
 | 
14
+++++++-------

1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lparser.c b/lparser.c
@@ -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);