luau-lang/luau
1
0
Fork 0
mirror of https://github.com/luau-lang/luau.git synced 2025-04-05 11:20:54 +01:00
Code Issues Projects Releases Packages Wiki Activity

Merge 9d0da62030 into 24cacc94ed

Browse source
This commit is contained in:
ccuser44 2025-01-16 23:18:03 +00:00 • committed by GitHub
commit 518a1ec517
Signed by: DevComp
GPG key ID: B5690EEEBB952194
4 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
CodeGen/src/NativeState.h
View file

@ -49,7 +49,7 @@ struct NativeContext
int (*luaH_getn)(Table* t) = nullptr;
Table* (*luaH_new)(lua_State* L, int narray, int lnhash) = nullptr;
Table* (*luaH_clone)(lua_State* L, Table* tt) = nullptr;
Table* (*luaH_clone)(lua_State* L, Table* tt, bool raw) = nullptr;
void (*luaH_resizearray)(lua_State* L, Table* t, int nasize) = nullptr;
TValue* (*luaH_setnum)(lua_State* L, Table* t, int key);

6
VM/src/ltable.cpp
View file

@ -793,11 +793,10 @@ int luaH_getn(Table* t)
}
}
Table* luaH_clone(lua_State* L, Table* tt)
Table* luaH_clone(lua_State* L, Table* tt, bool raw)
{
Table* t = luaM_newgco(L, Table, sizeof(Table), L->activememcat);
luaC_init(L, t, LUA_TTABLE);
t->metatable = tt->metatable;
t->tmcache = tt->tmcache;
t->array = NULL;
t->sizearray = 0;
@ -808,6 +807,9 @@ Table* luaH_clone(lua_State* L, Table* tt)
t->node = cast_to(LuaNode*, dummynode);
t->lastfree = 0;
if (!raw) // Prevent unauthorized assigning of locked metatables
t->metatable = tt->metatable;
if (tt->sizearray)
{
t->array = luaM_newarray(L, tt->sizearray, TValue, t->memcat);

2
VM/src/ltable.h
View file

@ -27,7 +27,7 @@ LUAI_FUNC void luaH_resizehash(lua_State* L, Table* t, int nhsize);
LUAI_FUNC void luaH_free(lua_State* L, Table* t, struct lua_Page* page);
LUAI_FUNC int luaH_next(lua_State* L, Table* t, StkId key);
LUAI_FUNC int luaH_getn(Table* t);
LUAI_FUNC Table* luaH_clone(lua_State* L, Table* tt);
LUAI_FUNC Table* luaH_clone(lua_State* L, Table* tt, bool raw);
LUAI_FUNC void luaH_clear(Table* tt);
#define luaH_setslot(L, t, slot, key) (invalidateTMcache(t), (slot == luaO_nilobject ? luaH_newkey(L, t, key) : cast_to(TValue*, slot)))

5
VM/src/ltablib.cpp
View file

@ -585,10 +585,7 @@ static int tisfrozen(lua_State* L)
static int tclone(lua_State* L)
{
luaL_checktype(L, 1, LUA_TTABLE);
luaL_argcheck(L, !luaL_getmetafield(L, 1, "__metatable"), 1, "table has a protected metatable");
Table* tt = luaH_clone(L, hvalue(L->base));
Table* tt = luaH_clone(L, hvalue(L->base), luaL_getmetafield(L, 1, "__metatable") ? true : false);
TValue v;
sethvalue(L, &v, tt);
luaA_pushobject(L, &v);