diff options
| -rw-r--r-- | ldo.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.45 1999/06/22 20:37:23 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.46 1999/08/16 20:52:00 roberto Exp roberto $ |
| 3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -190,7 +190,7 @@ void luaD_calln (int nArgs, int nResults) { | |||
| 190 | break; | 190 | break; |
| 191 | case LUA_T_CLOSURE: { | 191 | case LUA_T_CLOSURE: { |
| 192 | Closure *c = clvalue(func); | 192 | Closure *c = clvalue(func); |
| 193 | TObject *proto = &(c->consts[0]); | 193 | TObject *proto = c->consts; |
| 194 | ttype(func) = LUA_T_CLMARK; | 194 | ttype(func) = LUA_T_CLMARK; |
| 195 | firstResult = (ttype(proto) == LUA_T_CPROTO) ? | 195 | firstResult = (ttype(proto) == LUA_T_CPROTO) ? |
| 196 | callCclosure(c, fvalue(proto), base) : | 196 | callCclosure(c, fvalue(proto), base) : |
