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

Add lua_cleartable

Browse source
This commit is contained in:
Petri Häkkinen 2022-09-22 09:57:32 +03:00
parent bdf7d8c185
commit a8705d801b
3 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
VM/include/lua.h
View file

@ -316,6 +316,8 @@ LUA_API void lua_setuserdatadtor(lua_State* L, int tag, void (*dtor)(lua_State*,
LUA_API void lua_clonefunction(lua_State* L, int idx);
LUA_API void lua_cleartable(lua_State* L, int idx);
/*
** reference system, can be used to pin objects
*/

10
VM/src/lapi.cpp
View file

@ -1376,6 +1376,16 @@ void lua_clonefunction(lua_State* L, int idx)
api_incr_top(L);
}
void lua_cleartable(lua_State* L, int idx)
{
StkId t = index2addr(L, idx);
api_check(L, ttistable(t));
Table* tt = hvalue(t);
if (tt->readonly)
luaG_runerror(L, "Attempt to modify a readonly table");
luaH_clear(tt);
}
lua_Callbacks* lua_callbacks(lua_State* L)
{
return &L->global->cb;

5
tests/Conformance.test.cpp
View file

@ -778,6 +778,11 @@ TEST_CASE("ApiTables")
CHECK(strcmp(lua_tostring(L, -1), "test") == 0);
lua_pop(L, 1);
// lua_cleartable
lua_cleartable(L, -1);
lua_pushnil(L);
CHECK(lua_next(L, -2) == 0);
lua_pop(L, 1);
}