lua

commit 12c764ed1ed37179f123af6ab225ba38e6d405d7
parent e99e9a94732dcb7407777b724fb61e548d51ba33
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Sat, 15 May 2010 10:31:38 -0300

semicolons now represent the empty statement

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

1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lparser.c b/lparser.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lparser.c,v 2.84 2010/05/13 12:03:26 roberto Exp roberto $
+** $Id: lparser.c,v 2.85 2010/05/14 15:03:43 roberto Exp roberto $
 ** Lua Parser
 ** See Copyright Notice in lua.h
 */
@@ -1346,7 +1346,8 @@ static void retstat (LexState *ls) {
 static int statement (LexState *ls) {
   int line = ls->linenumber;  /* may be needed for error messages */
   switch (ls->t.token) {
-    case ';': {  /* stat -> <empty statement> */
+    case ';': {  /* stat -> ';' (empty statement) */
+      luaX_next(ls);  /* skip ';' */
       return 0;
     }
     case TK_IF: {  /* stat -> ifstat */
@@ -1407,7 +1408,8 @@ static void chunk (LexState *ls) {
   enterlevel(ls);
   while (!islast && !block_follow(ls->t.token)) {
     islast = statement(ls);
-    testnext(ls, ';');
+    if (islast)
+      testnext(ls, ';');
     lua_assert(ls->fs->f->maxstacksize >= ls->fs->freereg &&
                ls->fs->freereg >= ls->fs->nactvar);
     ls->fs->freereg = ls->fs->nactvar;  /* free registers */