mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-29 16:13:17 +03:00
Code Issues Packages Projects Releases Wiki Activity

small bug building error messages

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2002-06-20 17:39:44 -03:00
parent 5893fcb71a
commit e572dffa15
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ldebug.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldebug.c,v 1.120 2002/06/18 15:19:27 roberto Exp roberto $ ** $Id: ldebug.c,v 1.121 2002/06/18 17:10:43 roberto Exp roberto $
** Debug Interface ** Debug Interface
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -517,8 +517,9 @@ void luaG_ordererror (lua_State *L, const TObject *p1, const TObject *p2) {
static void addinfo (lua_State *L, int internal) { static void addinfo (lua_State *L, int internal) {
CallInfo *ci = (internal) ? L->ci : L->ci - 1;
const char *msg = svalue(L->top - 1); const char *msg = svalue(L->top - 1);
CallInfo *ci = L->ci;
if (!internal && ci > L->base_ci) ci--;
if (strchr(msg, '\n')) return; /* message already `formatted' */ if (strchr(msg, '\n')) return; /* message already `formatted' */
if (!isLmark(ci)) { /* no Lua code? */ if (!isLmark(ci)) { /* no Lua code? */
luaO_pushfstring(L, "%s\n", msg); /* no extra info */ luaO_pushfstring(L, "%s\n", msg); /* no extra info */
@ -543,6 +544,9 @@ void luaG_errormsg (lua_State *L, int internal) {
L->top += 2; L->top += 2;
luaD_call(L, L->top - 2, 1); /* call error function? */ luaD_call(L, L->top - 2, 1); /* call error function? */
} }
else {
setnilvalue(L->top++);
}
luaD_throw(L, LUA_ERRRUN); luaD_throw(L, LUA_ERRRUN);
} }