diff options
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 5 |
1 files changed, 3 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.130 2001/03/02 17:27:50 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.131 2001/03/07 18:09:25 roberto Exp roberto $ |
| 3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -10,6 +10,7 @@ | |||
| 10 | #include <stdlib.h> | 10 | #include <stdlib.h> |
| 11 | #include <string.h> | 11 | #include <string.h> |
| 12 | 12 | ||
| 13 | #define LUA_PRIVATE | ||
| 13 | #include "lua.h" | 14 | #include "lua.h" |
| 14 | 15 | ||
| 15 | #include "ldebug.h" | 16 | #include "ldebug.h" |
| @@ -328,7 +329,7 @@ struct lua_longjmp { | |||
| 328 | 329 | ||
| 329 | 330 | ||
| 330 | static void message (lua_State *L, const l_char *s) { | 331 | static void message (lua_State *L, const l_char *s) { |
| 331 | luaV_getglobal(L, luaS_newliteral(L, LUA_ERRORMESSAGE), L->top); | 332 | luaV_getglobal(L, luaS_newliteral(L, l_s(LUA_ERRORMESSAGE)), L->top); |
| 332 | if (ttype(L->top) == LUA_TFUNCTION) { | 333 | if (ttype(L->top) == LUA_TFUNCTION) { |
| 333 | incr_top; | 334 | incr_top; |
| 334 | setsvalue(L->top, luaS_new(L, s)); | 335 | setsvalue(L->top, luaS_new(L, s)); |
