nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small bug if LUA_USERINIT leaves garbage on the stack

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-03-27 15:00:13 -03:00
parent d1f220217b
commit c371413530
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lua.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lua.c,v 1.77 2002/02/14 22:23:43 roberto Exp roberto $ ** $Id: lua.c,v 1.78 2002/02/15 15:15:10 roberto Exp roberto $
** Lua stand-alone interpreter ** Lua stand-alone interpreter
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -243,6 +243,7 @@ static int lcall (lua_State *l, const char *name) {
static void manual_input (int version) { static void manual_input (int version) {
if (version) print_version(); if (version) print_version();
lua_settop(L, 0);
lua_pushcfunction(L, trap_eof); /* set up handler for incomplete lines */ lua_pushcfunction(L, trap_eof); /* set up handler for incomplete lines */
while (load_string()) { while (load_string()) {
ldo(lcall, NULL, 0); ldo(lcall, NULL, 0);
@@ -255,7 +256,7 @@ static void manual_input (int version) {
lua_settop(L, 1); /* remove eventual results */ lua_settop(L, 1); /* remove eventual results */
} }
printf("\n"); printf("\n");
lua_settop(L, 0); /* remove trap_eof */ lua_pop(L, 1); /* remove trap_eof */
} }