From 5d14ce612baf55c4f019842947388b44f8732d34 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 11 Jan 2002 18:27:11 -0200
Subject: details
---
lvm.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
(limited to 'lvm.c')
diff --git a/lvm.c b/lvm.c
index bec488f1..b1dad7a8 100644
--- a/lvm.c
+++ b/lvm.c
@@ -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));
--
cgit v1.2.3-55-g6feb