Software /
code /
prosody
Comparison
util-src/table.c @ 7936:582bfb39337f
Backed out changeset a3a4ed0d34f4 C99 is ok
author | Kim Alvefur <zash@zash.se> |
---|---|
date | Thu, 02 Mar 2017 00:46:32 +0100 |
parent | 7889:b8d694646597 |
child | 7969:1c6a07606309 |
comparison
equal
deleted
inserted
replaced
7935:96fa5ef5d613 | 7936:582bfb39337f |
---|---|
5 lua_createtable(L, luaL_checkinteger(L, 1), luaL_checkinteger(L, 2)); | 5 lua_createtable(L, luaL_checkinteger(L, 1), luaL_checkinteger(L, 2)); |
6 return 1; | 6 return 1; |
7 } | 7 } |
8 | 8 |
9 static int Lpack(lua_State *L) { | 9 static int Lpack(lua_State *L) { |
10 int arg; | |
11 unsigned int n_args = lua_gettop(L); | 10 unsigned int n_args = lua_gettop(L); |
12 lua_createtable(L, n_args, 1); | 11 lua_createtable(L, n_args, 1); |
13 lua_insert(L, 1); | 12 lua_insert(L, 1); |
14 | 13 |
15 for(arg = n_args; arg >= 1; arg--) { | 14 for(int arg = n_args; arg >= 1; arg--) { |
16 lua_rawseti(L, 1, arg); | 15 lua_rawseti(L, 1, arg); |
17 } | 16 } |
18 | 17 |
19 lua_pushinteger(L, n_args); | 18 lua_pushinteger(L, n_args); |
20 lua_setfield(L, -2, "n"); | 19 lua_setfield(L, -2, "n"); |