aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lcode.c4
-rw-r--r--ldblib.c7
2 files changed, 5 insertions, 6 deletions
diff --git a/lcode.c b/lcode.c
index 2bf050dc..af2a0838 100644
--- a/lcode.c
+++ b/lcode.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lcode.c,v 1.104 2002/05/14 17:52:22 roberto Exp roberto $ 2** $Id: lcode.c,v 1.105 2002/05/27 20:35:40 roberto Exp roberto $
3** Code generator for Lua 3** Code generator for Lua
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -630,7 +630,7 @@ void luaK_infix (FuncState *fs, BinOpr op, expdesc *v) {
630 630
631 631
632 632
633static const OpCode cmp_masks[] = { /* ORDER OPR */ 633static const int cmp_masks[] = { /* ORDER OPR */
634 CMP_LT, (CMP_LT | CMP_EQ), CMP_GT, (CMP_GT | CMP_EQ) 634 CMP_LT, (CMP_LT | CMP_EQ), CMP_GT, (CMP_GT | CMP_EQ)
635}; 635};
636 636
diff --git a/ldblib.c b/ldblib.c
index 5ef7d428..04f03aed 100644
--- a/ldblib.c
+++ b/ldblib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldblib.c,v 1.52 2002/05/15 18:57:44 roberto Exp roberto $ 2** $Id: ldblib.c,v 1.53 2002/05/16 18:39:46 roberto Exp roberto $
3** Interface from Lua to its debug API 3** Interface from Lua to its debug API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -188,11 +188,10 @@ static int errorfb (lua_State *L) {
188 luaL_check_string(L, 1); 188 luaL_check_string(L, 1);
189 lua_settop(L, 1); 189 lua_settop(L, 1);
190 lua_pushliteral(L, "\n"); 190 lua_pushliteral(L, "\n");
191 lua_pushliteral(L, "stack traceback:\n");
191 while (lua_getstack(L, level++, &ar)) { 192 while (lua_getstack(L, level++, &ar)) {
192 char buff[10]; 193 char buff[10];
193 if (level == 2) 194 if (level > LEVELS1 && firstpart) {
194 lua_pushliteral(L, "stack traceback:\n");
195 else if (level > LEVELS1 && firstpart) {
196 /* no more than `LEVELS2' more levels? */ 195 /* no more than `LEVELS2' more levels? */
197 if (!lua_getstack(L, level+LEVELS2, &ar)) 196 if (!lua_getstack(L, level+LEVELS2, &ar))
198 level--; /* keep going */ 197 level--; /* keep going */