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

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2002-01-11 18:27:11 -02:00
parent d56d4cf776
commit 5d14ce612b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lvm.c
View File

@ -64,7 +64,7 @@ int luaV_tostring (lua_State *L, TObject *obj) {
static void traceexec (lua_State *L, lua_Hook linehook) {
CallInfo *ci = L->ci;
int *lineinfo = ci_func(ci)->l.p->lineinfo;
int pc = (*ci->pc - ci_func(ci)->l.p->code) - 1;
int pc = (int)(*ci->pc - ci_func(ci)->l.p->code) - 1;
int newline;
if (pc == 0) { /* may be first time? */
ci->line = 1;
@ -97,7 +97,7 @@ static void callTM (lua_State *L, const TObject *f,
setobj(base+3, p3); /* 3th argument */
L->top++;
}
luaD_call(L, base, (result ? 1 : 0));
luaD_call(L, base, 1);
if (result) { /* need a result? */
setobj(result, base); /* get it */
}
@ -326,6 +326,7 @@ StkId luaV_execute (lua_State *L) {
traceexec(L, linehook);
lua_assert(L->top == L->ci->top || GET_OPCODE(i) == OP_CALL ||
GET_OPCODE(i) == OP_RETURN || GET_OPCODE(i) == OP_SETLISTO);
lua_assert(L->ci->savedpc == NULL);
switch (GET_OPCODE(i)) {
case OP_MOVE: {
setobj(ra, RB(i));