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

tinsert gets 3d argument instead of last one

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2001-08-30 17:54:51 -03:00
parent 9fca43f5b0
commit b0d5bd8c70
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lbaselib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.38 2001/06/20 17:25:30 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.39 2001/07/12 18:11:58 roberto Exp $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -544,14 +544,16 @@ static int luaB_getn (lua_State *L) {
static int luaB_tinsert (lua_State *L) { static int luaB_tinsert (lua_State *L) {
int v = lua_gettop(L); /* last argument: to be inserted */ int v = lua_gettop(L); /* number of arguments */
int n, pos; int n, pos;
luaL_checktype(L, 1, LUA_TTABLE); luaL_checktype(L, 1, LUA_TTABLE);
n = lua_getn(L, 1); n = lua_getn(L, 1);
if (v == 2) /* called with only 2 arguments */ if (v == 2) /* called with only 2 arguments */
pos = n+1; pos = n+1;
else else {
v = 3; /* function may be called with more than 3 args */
pos = luaL_check_int(L, 2); /* 2nd argument is the position */ pos = luaL_check_int(L, 2); /* 2nd argument is the position */
}
aux_setn(L, 1, n+1); /* t.n = n+1 */ aux_setn(L, 1, n+1); /* t.n = n+1 */
for (; n>=pos; n--) { for (; n>=pos; n--) {
lua_rawgeti(L, 1, n); lua_rawgeti(L, 1, n);