mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-01-21 00:22:04 +03:00
Code Issues Packages Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2000-06-27 16:00:36 -03:00
parent afef009fce
commit c07cebbbf6
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lvm.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lvm.c,v 1.116 2000/06/19 18:04:41 roberto Exp roberto $
** $Id: lvm.c,v 1.117 2000/06/26 19:28:31 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@ -67,17 +67,17 @@ int luaV_tostring (lua_State *L, TObject *obj) { /* LUA_NUMBER */
}
static void traceexec (lua_State *L, StkId base, int pc) {
static void traceexec (lua_State *L, StkId base, int pc, StkId top) {
CallInfo *ci = infovalue(base-1);
int oldpc = ci->pc;
pc--; /* pc has been already incremented */
ci->pc = pc;
if (L->linehook && ci->func->f.l->debug) {
int *lines = ci->func->f.l->lines;
LUA_ASSERT(L, lines, "must have debug information");
/* calls linehook when jumps back (a loop) or enters a new line */
/* calls linehook when jumps back (loop) or enters a new line */
if (pc <= oldpc || lines[pc] != ci->line) {
ci->line = lines[pc];
L->top = top;
luaD_lineHook(L, base-2, lines[pc]);
}
}
@ -359,11 +359,9 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
top = L->top;
/* main loop of interpreter */
for (;;) {
Instruction i = *pc++;
if (debug) {
L->top = top;
traceexec(L, base, pc - tf->code);
}
if (debug)
traceexec(L, base, pc - tf->code, top);
{const Instruction i = *pc++;
switch (GET_OPCODE(i)) {
case OP_END:
@ -707,5 +705,5 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
break;
}
}
}}
}