diff options
Diffstat (limited to 'Build/source/libs/luajit/LuaJIT-2.0.2/src/lj_udata.c')
-rw-r--r-- | Build/source/libs/luajit/LuaJIT-2.0.2/src/lj_udata.c | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/Build/source/libs/luajit/LuaJIT-2.0.2/src/lj_udata.c b/Build/source/libs/luajit/LuaJIT-2.0.2/src/lj_udata.c new file mode 100644 index 00000000000..df5e7f30bf5 --- /dev/null +++ b/Build/source/libs/luajit/LuaJIT-2.0.2/src/lj_udata.c @@ -0,0 +1,34 @@ +/* +** Userdata handling. +** Copyright (C) 2005-2013 Mike Pall. See Copyright Notice in luajit.h +*/ + +#define lj_udata_c +#define LUA_CORE + +#include "lj_obj.h" +#include "lj_gc.h" +#include "lj_udata.h" + +GCudata *lj_udata_new(lua_State *L, MSize sz, GCtab *env) +{ + GCudata *ud = lj_mem_newt(L, sizeof(GCudata) + sz, GCudata); + global_State *g = G(L); + newwhite(g, ud); /* Not finalized. */ + ud->gct = ~LJ_TUDATA; + ud->udtype = UDTYPE_USERDATA; + ud->len = sz; + /* NOBARRIER: The GCudata is new (marked white). */ + setgcrefnull(ud->metatable); + setgcref(ud->env, obj2gco(env)); + /* Chain to userdata list (after main thread). */ + setgcrefr(ud->nextgc, mainthread(g)->nextgc); + setgcref(mainthread(g)->nextgc, obj2gco(ud)); + return ud; +} + +void LJ_FASTCALL lj_udata_free(global_State *g, GCudata *ud) +{ + lj_mem_free(g, ud, sizeudata(ud)); +} + |