From 1ea6e8064cdfa13ba2298783eb87de58568ea998 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Thu, 3 Apr 1997 15:27:06 -0300 Subject: "setintmethod" returns old method (to be coerent with seterrormethod). BUG: wrong pointer arithmetic (index out of range when comparing). obs: version 4 is due to internal methods. --- opcode.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/opcode.c b/opcode.c index e36ba184..590c0ef7 100644 --- a/opcode.c +++ b/opcode.c @@ -3,7 +3,7 @@ ** TecCGraf - PUC-Rio */ -char *rcs_opcode="$Id: opcode.c,v 3.92 1997/04/02 22:52:42 roberto Exp roberto $"; +char *rcs_opcode="$Id: opcode.c,v 3.93 1997/04/02 23:04:12 roberto Exp roberto $"; #include #include @@ -412,9 +412,9 @@ static void getglobal (Word n) */ void lua_travstack (int (*fn)(TObject *)) { - TObject *o; - for (o = top-1; o >= stack; o--) - fn (o); + StkId i; + for (i = (top-1)-stack; i>=0; i--) + fn (stack+i); } @@ -671,7 +671,7 @@ void lua_setintmethod (int tag, char *event, lua_CFunction method) lua_pushcfunction (method); else lua_pushnil(); - do_unprotectedrun(luaI_setintmethod, 3, 0); + do_unprotectedrun(luaI_setintmethod, 3, 1); } void lua_seterrormethod (lua_CFunction method) -- cgit v1.2.3-55-g6feb