diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-08-31 10:30:10 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-08-31 10:30:10 -0300 |
| commit | 10b4799ce57100545cd27bc7c7b2fd83c6c30ab8 (patch) | |
| tree | 5c940c7e2d023b48a5406a18714b6ed7339747fc | |
| parent | a0de89d62a71b944e56264ec948e01cad12d5602 (diff) | |
| download | lua-10b4799ce57100545cd27bc7c7b2fd83c6c30ab8.tar.gz lua-10b4799ce57100545cd27bc7c7b2fd83c6c30ab8.tar.bz2 lua-10b4799ce57100545cd27bc7c7b2fd83c6c30ab8.zip | |
details
| -rw-r--r-- | liolib.c | 7 |
1 files changed, 4 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: liolib.c,v 1.73 2000/08/29 14:33:31 roberto Exp roberto $ | 2 | ** $Id: liolib.c,v 1.74 2000/08/29 20:43:28 roberto Exp roberto $ |
| 3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -159,7 +159,7 @@ static int file_collect (lua_State *L) { | |||
| 159 | IOCtrl *ctrl = (IOCtrl *)lua_touserdata(L, -1); | 159 | IOCtrl *ctrl = (IOCtrl *)lua_touserdata(L, -1); |
| 160 | lua_settop(L, -1); /* remove upvalue */ | 160 | lua_settop(L, -1); /* remove upvalue */ |
| 161 | if (ctrl == (IOCtrl *)lua_touserdata(L, 1)) { | 161 | if (ctrl == (IOCtrl *)lua_touserdata(L, 1)) { |
| 162 | /* collectig `ctrl' itself */ | 162 | /* collecting `ctrl' itself */ |
| 163 | lua_unref(L, ctrl->ref[INFILE]); | 163 | lua_unref(L, ctrl->ref[INFILE]); |
| 164 | lua_unref(L, ctrl->ref[OUTFILE]); | 164 | lua_unref(L, ctrl->ref[OUTFILE]); |
| 165 | free(ctrl); | 165 | free(ctrl); |
| @@ -372,7 +372,8 @@ static int io_read (lua_State *L) { | |||
| 372 | firstarg = lastarg = 1; /* correct indices */ | 372 | firstarg = lastarg = 1; /* correct indices */ |
| 373 | lua_pushstring(L, "*l"); /* push default argument */ | 373 | lua_pushstring(L, "*l"); /* push default argument */ |
| 374 | } | 374 | } |
| 375 | luaL_checkstack(L, lastarg-firstarg+1, "too many results"); | 375 | else |
| 376 | luaL_checkstack(L, lastarg-firstarg+1, "too many arguments"); | ||
| 376 | for (n = firstarg; n<=lastarg; n++) { | 377 | for (n = firstarg; n<=lastarg; n++) { |
| 377 | size_t l; | 378 | size_t l; |
| 378 | int success; | 379 | int success; |
