diff options
Diffstat (limited to 'lvm.c')
-rw-r--r-- | lvm.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 1.43 1999/02/02 19:41:17 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 1.44 1999/02/04 16:36:16 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 | */ |
@@ -317,7 +317,7 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base) { | |||
317 | struct Stack *S = &L->stack; /* to optimize */ | 317 | struct Stack *S = &L->stack; /* to optimize */ |
318 | register Byte *pc = tf->code; | 318 | register Byte *pc = tf->code; |
319 | TObject *consts = tf->consts; | 319 | TObject *consts = tf->consts; |
320 | if (lua_callhook) | 320 | if (L->callhook) |
321 | luaD_callHook(base, tf, 0); | 321 | luaD_callHook(base, tf, 0); |
322 | luaD_checkstack((*pc++)+EXTRA_STACK); | 322 | luaD_checkstack((*pc++)+EXTRA_STACK); |
323 | if (*pc < ZEROVARARG) | 323 | if (*pc < ZEROVARARG) |
@@ -335,7 +335,7 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base) { | |||
335 | S->top = S->stack + base; | 335 | S->top = S->stack + base; |
336 | /* goes through */ | 336 | /* goes through */ |
337 | case RETCODE: | 337 | case RETCODE: |
338 | if (lua_callhook) | 338 | if (L->callhook) |
339 | luaD_callHook(base, NULL, 1); | 339 | luaD_callHook(base, NULL, 1); |
340 | return base + (aux ? 0 : *pc); | 340 | return base + (aux ? 0 : *pc); |
341 | 341 | ||
@@ -615,7 +615,7 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base) { | |||
615 | (S->stack+base-1)->ttype = LUA_T_LINE; | 615 | (S->stack+base-1)->ttype = LUA_T_LINE; |
616 | } | 616 | } |
617 | (S->stack+base-1)->value.i = aux; | 617 | (S->stack+base-1)->value.i = aux; |
618 | if (lua_linehook) | 618 | if (L->linehook) |
619 | luaD_lineHook(aux); | 619 | luaD_lineHook(aux); |
620 | break; | 620 | break; |
621 | 621 | ||