diff options
-rw-r--r-- | lcode.c | 4 | ||||
-rw-r--r-- | ldblib.c | 7 |
2 files changed, 5 insertions, 6 deletions
@@ -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 | ||
633 | static const OpCode cmp_masks[] = { /* ORDER OPR */ | 633 | static 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 | ||
@@ -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 */ |