DrSocalkwe3n/luajit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add table.new().

Browse Source
This commit is contained in:
Mike Pall
2013-10-09 17:01:22 +02:00
parent 47df3ae513
commit c8cfca0557
11 changed files with 55 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/lib_table.c
View File

@@ -18,6 +18,7 @@
#include "lj_err.h"
#include "lj_buf.h"
#include "lj_tab.h"
#include "lj_ff.h"
#include "lj_lib.h"
/* ------------------------------------------------------------------------ */
@@ -264,6 +265,24 @@ LJLIB_CF(table_pack)
}
#endif
LJLIB_NOREG LJLIB_CF(table_new) LJLIB_REC(.)
{
int32_t a = lj_lib_checkint(L, 1);
int32_t h = lj_lib_checkint(L, 2);
lua_createtable(L, a, h);
return 1;
}
static int luaopen_table_new(lua_State *L)
{
GCfunc *fn = lj_lib_pushcc(L, lj_cf_table_new, FF_table_new, 0);
GCtab *t = tabref(curr_func(L)->c.env); /* Reference to "table". */
setfuncV(L, lj_tab_setstr(L, t, lj_str_newlit(L, "new")), fn);
lj_gc_anybarriert(L, t);
setfuncV(L, L->top++, fn);
return 1;
}
/* ------------------------------------------------------------------------ */
#include "lj_libdef.h"
@@ -275,6 +294,7 @@ LUALIB_API int luaopen_table(lua_State *L)
lua_getglobal(L, "unpack");
lua_setfield(L, -2, "unpack");
#endif
lj_lib_prereg(L, LUA_TABLIBNAME ".new", luaopen_table_new, tabV(L->top-1));
return 1;
}