mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-12-24 19:36:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

no more linehook field in CallInfo

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2002-01-18 15:39:06 -02:00
parent 931ee346e3
commit 448517e47e
3 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ldo.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ldo.c,v 1.1 2001/11/29 22:14:34 rieru Exp rieru $
** $Id: ldo.c,v 1.154 2002/01/11 20:27:41 roberto Exp $
** Stack and Call structure of Lua
** See Copyright Notice in lua.h
*/
@ -148,12 +148,12 @@ StkId luaD_precall (lua_State *L, StkId func) {
if (!cl->isC) { /* Lua function? prepare its call */
StkId base = func+1;
Proto *p = cl->p;
ci->linehook = L->linehook;
ci->savedpc = p->code; /* starting point */
if (p->is_vararg) /* varargs? */
adjust_varargs(L, base, p->numparams);
if (base > L->stack_last - p->maxstacksize)
luaD_stackerror(L);
ci->line = 0;
ci->top = base + p->maxstacksize;
while (L->top < ci->top)
setnilvalue(L->top++);

1
lstate.h
View File

@ -82,7 +82,6 @@ typedef struct stringtable {
typedef struct CallInfo {
StkId base; /* base for called function */
const Instruction *savedpc;
lua_Hook linehook;
StkId top; /* top for this function (when it's a Lua function) */
const Instruction **pc;
/* extra information for line tracing */

18
lvm.c
View File

@ -66,10 +66,17 @@ static void traceexec (lua_State *L, lua_Hook linehook) {
int *lineinfo = ci_func(ci)->l.p->lineinfo;
int pc = cast(int, *ci->pc - ci_func(ci)->l.p->code) - 1;
int newline;
if (pc == 0) { /* may be first time? */
ci->line = 1;
ci->refi = 0;
ci->lastpc = pc+1; /* make sure it will call linehook */
if (ci->line == -1) return; /* no linehooks for this function */
else if (ci->line == 0) { /* first linehook? */
if (pc == 0) { /* function is starting now? */
ci->line = 1;
ci->refi = 0;
ci->lastpc = pc+1; /* make sure it will call linehook */
}
else { /* function started without hooks: */
ci->line = -1; /* keep it that way */
return;
}
}
newline = luaG_getline(lineinfo, pc, ci->line, &ci->refi);
/* calls linehook when enters a new line or jumps back (loop) */
@ -315,7 +322,7 @@ StkId luaV_execute (lua_State *L) {
base = L->ci->base;
cl = &clvalue(base - 1)->l;
k = cl->p->k;
linehook = L->ci->linehook;
linehook = L->linehook;
L->ci->pc = &pc;
pc = L->ci->savedpc;
L->ci->savedpc = NULL;
@ -513,7 +520,6 @@ StkId luaV_execute (lua_State *L) {
int nresults;
lua_assert(ttype(ci->base-1) == LUA_TFUNCTION);
base = ci->base; /* restore previous values */
linehook = ci->linehook;
cl = &clvalue(base - 1)->l;
k = cl->p->k;
pc = ci->savedpc;