diff options
Diffstat (limited to 'lparser.c')
| -rw-r--r-- | lparser.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lparser.c,v 1.43 1999/11/22 13:12:07 roberto Exp roberto $ | 2 | ** $Id: lparser.c,v 1.44 1999/11/25 18:59:43 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 | */ |
| @@ -581,8 +581,8 @@ static void init_state (LexState *ls, FuncState *fs, TaggedString *source) { | |||
| 581 | code_byte(ls, 0); /* to be filled with maxstacksize */ | 581 | code_byte(ls, 0); /* to be filled with maxstacksize */ |
| 582 | code_byte(ls, 0); /* to be filled with arg information */ | 582 | code_byte(ls, 0); /* to be filled with arg information */ |
| 583 | /* push function (to avoid GC) */ | 583 | /* push function (to avoid GC) */ |
| 584 | tfvalue(L->stack.top) = f; | 584 | tfvalue(L->top) = f; |
| 585 | ttype(L->stack.top) = LUA_T_PROTO; | 585 | ttype(L->top) = LUA_T_PROTO; |
| 586 | incr_top; | 586 | incr_top; |
| 587 | } | 587 | } |
| 588 | 588 | ||
| @@ -599,7 +599,7 @@ static void close_func (LexState *ls) { | |||
| 599 | luaM_reallocvector(ls->L, f->locvars, fs->nvars, LocVar); | 599 | luaM_reallocvector(ls->L, f->locvars, fs->nvars, LocVar); |
| 600 | } | 600 | } |
| 601 | ls->fs = fs->prev; | 601 | ls->fs = fs->prev; |
| 602 | ls->L->stack.top--; /* pop function */ | 602 | ls->L->top--; /* pop function */ |
| 603 | } | 603 | } |
| 604 | 604 | ||
| 605 | 605 | ||
