diff options
Diffstat (limited to '')
| -rw-r--r-- | lvm.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lvm.c,v 1.78 1999/12/30 18:28:40 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.79 2000/01/13 15:56:03 roberto Exp roberto $ |
| 3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -308,7 +308,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, | |||
| 308 | register const Byte *pc = tf->code; | 308 | register const Byte *pc = tf->code; |
| 309 | const TObject *consts = tf->consts; | 309 | const TObject *consts = tf->consts; |
| 310 | if (L->callhook) | 310 | if (L->callhook) |
| 311 | luaD_callHook(L, base-1, L->callhook, 0); | 311 | luaD_callHook(L, base-1, L->callhook, "call"); |
| 312 | luaD_checkstack(L, (*pc++)+EXTRA_STACK); | 312 | luaD_checkstack(L, (*pc++)+EXTRA_STACK); |
| 313 | if (*pc < ZEROVARARG) | 313 | if (*pc < ZEROVARARG) |
| 314 | luaD_adjusttop(L, base, *(pc++)); | 314 | luaD_adjusttop(L, base, *(pc++)); |
| @@ -617,7 +617,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, const TProtoFunc *tf, | |||
| 617 | (base-2)->value.i = aux; | 617 | (base-2)->value.i = aux; |
| 618 | if (L->linehook) { | 618 | if (L->linehook) { |
| 619 | L->top = top; | 619 | L->top = top; |
| 620 | luaD_lineHook(L, aux); | 620 | luaD_lineHook(L, base-3, aux); |
| 621 | } | 621 | } |
| 622 | break; | 622 | break; |
| 623 | 623 | ||
