rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

details

This commit is contained in:
Roberto Ierusalimschy 2000-08-31 10:30:10 -03:00
parent a0de89d62a
commit 10b4799ce5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
liolib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 1.73 2000/08/29 14:33:31 roberto Exp roberto $ ** $Id: liolib.c,v 1.74 2000/08/29 20:43:28 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -159,7 +159,7 @@ static int file_collect (lua_State *L) {
IOCtrl *ctrl = (IOCtrl *)lua_touserdata(L, -1); IOCtrl *ctrl = (IOCtrl *)lua_touserdata(L, -1);
lua_settop(L, -1); /* remove upvalue */ lua_settop(L, -1); /* remove upvalue */
if (ctrl == (IOCtrl *)lua_touserdata(L, 1)) { if (ctrl == (IOCtrl *)lua_touserdata(L, 1)) {
/* collectig `ctrl' itself */ /* collecting `ctrl' itself */
lua_unref(L, ctrl->ref[INFILE]); lua_unref(L, ctrl->ref[INFILE]);
lua_unref(L, ctrl->ref[OUTFILE]); lua_unref(L, ctrl->ref[OUTFILE]);
free(ctrl); free(ctrl);
@ -372,7 +372,8 @@ static int io_read (lua_State *L) {
firstarg = lastarg = 1; /* correct indices */ firstarg = lastarg = 1; /* correct indices */
lua_pushstring(L, "*l"); /* push default argument */ lua_pushstring(L, "*l"); /* push default argument */
} }
luaL_checkstack(L, lastarg-firstarg+1, "too many results"); else
luaL_checkstack(L, lastarg-firstarg+1, "too many arguments");
for (n = firstarg; n<=lastarg; n++) { for (n = firstarg; n<=lastarg; n++) {
size_t l; size_t l;
int success; int success;