diff options
Diffstat (limited to 'lcode.c')
| -rw-r--r-- | lcode.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lcode.c,v 1.107 2002/06/12 14:51:31 roberto Exp roberto $ | 2 | ** $Id: lcode.c,v 1.108 2002/06/13 13:39:55 roberto Exp $ |
| 3 | ** Code generator for Lua | 3 | ** Code generator for Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -206,7 +206,7 @@ static void freeexp (FuncState *fs, expdesc *e) { | |||
| 206 | 206 | ||
| 207 | static int addk (FuncState *fs, TObject *k, TObject *v) { | 207 | static int addk (FuncState *fs, TObject *k, TObject *v) { |
| 208 | const TObject *index = luaH_get(fs->h, k); | 208 | const TObject *index = luaH_get(fs->h, k); |
| 209 | if (ttype(index) == LUA_TNUMBER) { | 209 | if (ttisnumber(index)) { |
| 210 | lua_assert(luaO_rawequalObj(&fs->f->k[cast(int, nvalue(index))], v)); | 210 | lua_assert(luaO_rawequalObj(&fs->f->k[cast(int, nvalue(index))], v)); |
| 211 | return cast(int, nvalue(index)); | 211 | return cast(int, nvalue(index)); |
| 212 | } | 212 | } |
| @@ -573,7 +573,7 @@ void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k) { | |||
| 573 | void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e) { | 573 | void luaK_prefix (FuncState *fs, UnOpr op, expdesc *e) { |
| 574 | if (op == OPR_MINUS) { | 574 | if (op == OPR_MINUS) { |
| 575 | luaK_exp2val(fs, e); | 575 | luaK_exp2val(fs, e); |
| 576 | if (e->k == VK && ttype(&fs->f->k[e->info]) == LUA_TNUMBER) | 576 | if (e->k == VK && ttisnumber(&fs->f->k[e->info])) |
| 577 | e->info = luaK_numberK(fs, -nvalue(&fs->f->k[e->info])); | 577 | e->info = luaK_numberK(fs, -nvalue(&fs->f->k[e->info])); |
| 578 | else { | 578 | else { |
| 579 | luaK_exp2anyreg(fs, e); | 579 | luaK_exp2anyreg(fs, e); |
