diff options
Diffstat (limited to 'lparser.c')
| -rw-r--r-- | lparser.c | 10 |
1 files changed, 5 insertions, 5 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lparser.c,v 2.38 2005/10/24 17:38:47 roberto Exp roberto $ | 2 | ** $Id: lparser.c,v 2.39 2005/12/07 15:43:05 roberto Exp roberto $ |
| 3 | ** Lua Parser | 3 | ** Lua Parser |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -166,7 +166,7 @@ static void new_localvar (LexState *ls, TString *name, int n) { | |||
| 166 | 166 | ||
| 167 | static void adjustlocalvars (LexState *ls, int nvars) { | 167 | static void adjustlocalvars (LexState *ls, int nvars) { |
| 168 | FuncState *fs = ls->fs; | 168 | FuncState *fs = ls->fs; |
| 169 | fs->nactvar = cast(lu_byte, fs->nactvar + nvars); | 169 | fs->nactvar = cast_byte(fs->nactvar + nvars); |
| 170 | for (; nvars; nvars--) { | 170 | for (; nvars; nvars--) { |
| 171 | getlocvar(fs, fs->nactvar - nvars).startpc = fs->pc; | 171 | getlocvar(fs, fs->nactvar - nvars).startpc = fs->pc; |
| 172 | } | 172 | } |
| @@ -198,8 +198,8 @@ static int indexupvalue (FuncState *fs, TString *name, expdesc *v) { | |||
| 198 | f->upvalues[f->nups] = name; | 198 | f->upvalues[f->nups] = name; |
| 199 | luaC_objbarrier(fs->L, f, name); | 199 | luaC_objbarrier(fs->L, f, name); |
| 200 | lua_assert(v->k == VLOCAL || v->k == VUPVAL); | 200 | lua_assert(v->k == VLOCAL || v->k == VUPVAL); |
| 201 | fs->upvalues[f->nups].k = cast(lu_byte, v->k); | 201 | fs->upvalues[f->nups].k = cast_byte(v->k); |
| 202 | fs->upvalues[f->nups].info = cast(lu_byte, v->u.s.info); | 202 | fs->upvalues[f->nups].info = cast_byte(v->u.s.info); |
| 203 | return f->nups++; | 203 | return f->nups++; |
| 204 | } | 204 | } |
| 205 | 205 | ||
| @@ -567,7 +567,7 @@ static void parlist (LexState *ls) { | |||
| 567 | } while (!f->is_vararg && testnext(ls, ',')); | 567 | } while (!f->is_vararg && testnext(ls, ',')); |
| 568 | } | 568 | } |
| 569 | adjustlocalvars(ls, nparams); | 569 | adjustlocalvars(ls, nparams); |
| 570 | f->numparams = fs->nactvar - (f->is_vararg & VARARG_HASARG); | 570 | f->numparams = cast_byte(fs->nactvar - (f->is_vararg & VARARG_HASARG)); |
| 571 | luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */ | 571 | luaK_reserveregs(fs, fs->nactvar); /* reserve register for parameters */ |
| 572 | } | 572 | } |
| 573 | 573 | ||
