Showing the changes to src/lparser.c (1 of 11 files). Show all
Unified · Split
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lparser.c,v 1.116 2000/10/27 11:39:52 roberto Exp $ | 2 | ** $Id: lparser.c,v 1.117 2000/11/29 11:57:42 roberto Exp $ |
| 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 | */ |
| @@ -997,7 +997,7 @@ static void retstat (LexState *ls) { · 991 unmodified lines | |||
| 997 | /* stat -> RETURN explist */ | 997 | /* stat -> RETURN explist */ |
| 998 | FuncState *fs = ls->fs; | 998 | FuncState *fs = ls->fs; |
| 999 | next(ls); /* skip RETURN */ | 999 | next(ls); /* skip RETURN */ |
| 1000 | if (!block_follow(ls->t.token)) | 1000 | if (!block_follow(ls->t.token) && ls->t.token != ';') |
| 1001 | explist1(ls); /* optional return values */ | 1001 | explist1(ls); /* optional return values */ |
| 1002 | luaK_code1(fs, OP_RETURN, ls->fs->nactloc); | 1002 | luaK_code1(fs, OP_RETURN, ls->fs->nactloc); |
| 1003 | fs->stacklevel = fs->nactloc; /* removes all temp values */ | 1003 | fs->stacklevel = fs->nactloc; /* removes all temp values */ |