mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-01-07 10:02:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2001-11-27 18:56:47 -02:00
parent 657f65211a
commit dfaf8c5291
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ldo.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 1.142 2001/10/02 16:45:03 roberto Exp $ ** $Id: ldo.c,v 1.143 2001/10/17 21:12:57 roberto Exp $
** Stack and Call structure of Lua ** Stack and Call structure of Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -219,7 +219,6 @@ static void f_parser (lua_State *L, void *ud) {
luaF_LConlist(L, cl); luaF_LConlist(L, cl);
setclvalue(L->top, cl); setclvalue(L->top, cl);
incr_top; incr_top;
} }
@ -287,7 +286,7 @@ LUA_API int lua_loadbuffer (lua_State *L, const l_char *buff, size_t size,
/* /*
** {====================================================== ** {======================================================
** Error-recover functions (based on long jumps) ** Error-recovery functions (based on long jumps)
** ======================================================= ** =======================================================
*/ */

4
lua.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lua.c,v 1.70 2001/09/25 17:06:34 roberto Exp $ ** $Id: lua.c,v 1.71 2001/10/17 21:12:57 roberto Exp $
** Lua stand-alone interpreter ** Lua stand-alone interpreter
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -81,9 +81,9 @@ static int ldo (int (*f)(lua_State *l, const l_char *), const l_char *name,
handler h = lreset(); handler h = lreset();
int top = lua_gettop(L); int top = lua_gettop(L);
res = f(L, name); /* dostring | dofile */ res = f(L, name); /* dostring | dofile */
signal(SIGINT, h); /* restore old action */
if (clear) if (clear)
lua_settop(L, top); /* remove eventual results */ lua_settop(L, top); /* remove eventual results */
signal(SIGINT, h); /* restore old action */
/* Lua gives no message in such cases, so lua.c provides one */ /* Lua gives no message in such cases, so lua.c provides one */
if (res == LUA_ERRMEM) { if (res == LUA_ERRMEM) {
fprintf(stderr, LUA_PROGNAME l_s("memory allocation error\n")); fprintf(stderr, LUA_PROGNAME l_s("memory allocation error\n"));