aboutsummaryrefslogtreecommitdiff
path: root/lparser.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-01-12 14:24:39 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>2000-01-12 14:24:39 -0200
commit62787f1b1f9bb745afbf28b04241c9020a74b7a2 (patch)
treef659203faca4a14ff82ecfa9321f5b5f1b505c7d /lparser.c
parentdcb7bb514e1d1e3ee0f56b380cb1cbb45f52b304 (diff)
downloadlua-62787f1b1f9bb745afbf28b04241c9020a74b7a2.tar.gz
lua-62787f1b1f9bb745afbf28b04241c9020a74b7a2.tar.bz2
lua-62787f1b1f9bb745afbf28b04241c9020a74b7a2.zip
`exp' is "reserved word" in Visual-C++ ;-)
Diffstat (limited to 'lparser.c')
-rw-r--r--lparser.c20
1 files changed, 10 insertions, 10 deletions
diff --git a/lparser.c b/lparser.c
index 4fa70ea4..2ba1213f 100644
--- a/lparser.c
+++ b/lparser.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lparser.c,v 1.52 1999/12/29 18:07:10 roberto Exp roberto $ 2** $Id: lparser.c,v 1.53 2000/01/10 17:34:38 roberto Exp roberto $
3** LL(1) Parser and code generator for Lua 3** LL(1) Parser and code generator for Lua
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -114,7 +114,7 @@ typedef struct FuncState {
114static void body (LexState *ls, int needself, int line); 114static void body (LexState *ls, int needself, int line);
115static void chunk (LexState *ls); 115static void chunk (LexState *ls);
116static void constructor (LexState *ls); 116static void constructor (LexState *ls);
117static void exp (LexState *ls, vardesc *v); 117static void expr (LexState *ls, vardesc *v);
118static void exp1 (LexState *ls); 118static void exp1 (LexState *ls);
119 119
120 120
@@ -740,13 +740,13 @@ static int cond (LexState *ls) {
740 740
741static void explist1 (LexState *ls, listdesc *d) { 741static void explist1 (LexState *ls, listdesc *d) {
742 vardesc v; 742 vardesc v;
743 exp(ls, &v); 743 expr(ls, &v);
744 d->n = 1; 744 d->n = 1;
745 while (ls->token == ',') { 745 while (ls->token == ',') {
746 d->n++; 746 d->n++;
747 lua_pushvar(ls, &v); 747 lua_pushvar(ls, &v);
748 next(ls); 748 next(ls);
749 exp(ls, &v); 749 expr(ls, &v);
750 } 750 }
751 if (v.k == VEXP) 751 if (v.k == VEXP)
752 d->pc = v.info; 752 d->pc = v.info;
@@ -935,7 +935,7 @@ static void constructor_part (LexState *ls, constdesc *cd) {
935 935
936 case NAME: { 936 case NAME: {
937 vardesc v; 937 vardesc v;
938 exp(ls, &v); 938 expr(ls, &v);
939 if (ls->token == '=') { 939 if (ls->token == '=') {
940 switch (v.k) { 940 switch (v.k) {
941 case VGLOBAL: 941 case VGLOBAL:
@@ -1088,9 +1088,9 @@ static void simpleexp (LexState *ls, vardesc *v, stack_op *s) {
1088 body(ls, 0, ls->linenumber); 1088 body(ls, 0, ls->linenumber);
1089 break; 1089 break;
1090 1090
1091 case '(': /* simpleexp -> '(' exp ')' */ 1091 case '(': /* simpleexp -> '(' expr ')' */
1092 next(ls); 1092 next(ls);
1093 exp(ls, v); 1093 expr(ls, v);
1094 check(ls, ')'); 1094 check(ls, ')');
1095 return; 1095 return;
1096 1096
@@ -1140,15 +1140,15 @@ static void arith_exp (LexState *ls, vardesc *v) {
1140 1140
1141static void exp1 (LexState *ls) { 1141static void exp1 (LexState *ls) {
1142 vardesc v; 1142 vardesc v;
1143 exp(ls, &v); 1143 expr(ls, &v);
1144 lua_pushvar(ls, &v); 1144 lua_pushvar(ls, &v);
1145 if (is_in(ls->token, expfollow) < 0) 1145 if (is_in(ls->token, expfollow) < 0)
1146 luaX_error(ls, "malformed expression"); 1146 luaX_error(ls, "malformed expression");
1147} 1147}
1148 1148
1149 1149
1150static void exp (LexState *ls, vardesc *v) { 1150static void expr (LexState *ls, vardesc *v) {
1151 /* exp -> arith_exp {(AND | OR) arith_exp} */ 1151 /* expr -> arith_exp {(AND | OR) arith_exp} */
1152 arith_exp(ls, v); 1152 arith_exp(ls, v);
1153 while (ls->token == AND || ls->token == OR) { 1153 while (ls->token == AND || ls->token == OR) {
1154 OpCode op = (ls->token == AND) ? ONFJMP : ONTJMP; 1154 OpCode op = (ls->token == AND) ? ONFJMP : ONTJMP;