_ERRORMESSAGE called through get global tag method

This commit is contained in:
Roberto Ierusalimschy 2001-02-23 10:38:56 -03:00
parent 2cc94ac81b
commit d164e2294f
1 changed files with 3 additions and 4 deletions

7
ldo.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 1.125 2001/02/22 17:15:18 roberto Exp roberto $ ** $Id: ldo.c,v 1.126 2001/02/22 18:59:59 roberto Exp roberto $
** Stack and Call structure of Lua ** Stack and Call structure of Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -335,9 +335,8 @@ struct lua_longjmp {
static void message (lua_State *L, const char *s) { static void message (lua_State *L, const char *s) {
const TObject *em = luaH_getstr(L->gt, luaS_newliteral(L, LUA_ERRORMESSAGE)); luaV_getglobal(L, luaS_newliteral(L, LUA_ERRORMESSAGE), L->top);
if (ttype(em) == LUA_TFUNCTION) { if (ttype(L->top) == LUA_TFUNCTION) {
setobj(L->top, em);
incr_top; incr_top;
setsvalue(L->top, luaS_new(L, s)); setsvalue(L->top, luaS_new(L, s));
incr_top; incr_top;