Phase 122: Convert luaH_* functions to Table member methods

CHANGES:
- Removed all 22 luaH_* wrapper functions from ltable.cpp
- Updated ~48 call sites across 20 files to use Table member methods
- Moved fastGeti/fastSeti implementations to lobject.h as Table methods
- Added const overload for Table::HgetShortStr (metamethod lookup)
- Converted function pointer arguments to lambdas in hot paths

CALL SITE UPDATES:
- lapi.cpp: 11 conversions (luaH_getn → t->getn(), etc.)
- lstate.cpp: 5 conversions (registry initialization)
- ltm.cpp: 3 conversions (CRITICAL metamethod lookups)
- lvm.cpp: 10 conversions (bytecode interpreter hot path)
- ldebug.cpp, lcode.cpp, llex.cpp: Table::create usage
- ldump.cpp, lundump.cpp: serialization updates
- lvm_table.cpp: metamethod chain lambdas
- lvm_string.cpp, gc_core.cpp: getn/size conversions
- ltests.cpp: mainPosition conversion

TECHNICAL DETAILS:
- fastGeti/fastSeti in lobject.h (after ltm.h) due to TMS dependency
- Lambda parameter naming to avoid shadowing (tbl, k, v)
- Variable renaming in tableNext/getn to avoid member shadowing
- Internal rehash() now calls t->resize() instead of luaH_resize()

TESTING:
- All tests pass: "final OK !!!"
- Performance: 2.26s avg (5 runs) - excellent! ✅
- Target: ≤4.33s (well under target)
- Zero regressions

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude <noreply@anthropic.com>

Author: Peter Neiss

src/compiler/lcode.cpp

@@ -337,7 +337,7 @@ int FuncState::addk(Proto *proto, TValue *v) {
 int FuncState::k2proto(TValue *key, TValue *v) {
   TValue val;
   Proto *proto = getProto();
-  LuaT tag = luaH_get(getKCache(), key, &val);  /* query scanner table */
+  LuaT tag = getKCache()->get(key, &val);  /* query scanner table */
   if (!tagisempty(tag)) {  /* is there an index there? */
     auto k = cast_int(ivalue(&val));
     /* collisions can happen only for float keys */
@@ -349,7 +349,7 @@ int FuncState::k2proto(TValue *key, TValue *v) {
     /* cache it for reuse; numerical value does not need GC barrier;
        table is not a metatable, so it does not need to invalidate cache */
     val.setInt(k);
-    luaH_set(getLexState()->getLuaState(), getKCache(), key, &val);
+    getKCache()->set(getLexState()->getLuaState(), key, &val);
     return k;
   }
 }

src/compiler/llex.cpp

@@ -119,14 +119,14 @@ l_noret LexState::syntaxError(const char *msg) {
 TString* LexState::anchorStr(TString *ts) {
   lua_State *luaState = getLuaState();
   TValue oldts;
-  LuaT tag = luaH_getstr(getTable(), ts, &oldts);
+  LuaT tag = getTable()->getStr(ts, &oldts);
   if (!tagisempty(tag))  /* string already present? */
     return tsvalue(&oldts);  /* use stored value */
   else {  /* create a new entry */
     TValue *stv = s2v(luaState->getTop().p);  /* reserve stack space for string */
     luaState->getStackSubsystem().push();
     setsvalue(luaState, stv, ts);  /* push (anchor) the string on the stack */
-    luaH_set(luaState, getTable(), stv, stv);  /* t[string] = string */
+    getTable()->set(luaState, stv, stv);  /* t[string] = string */
     /* table is not a metatable, so it does not need to invalidate cache */
     luaC_checkGC(luaState);
     luaState->getStackSubsystem().pop();  /* remove string from stack */

src/compiler/parser.cpp

@@ -460,7 +460,7 @@ void Parser::open_func(FuncState *funcstate, BlockCnt *bl) {
   f->setSource(ls->getSource());
   luaC_objbarrier(state, f, f->getSource());
   f->setMaxStackSize(2);  /* registers 0/1 are always valid */
-  funcstate->setKCache(luaH_new(state));  /* create table for function */
+  funcstate->setKCache(Table::create(state));  /* create table for function */
   sethvalue2s(state, state->getTop().p, funcstate->getKCache());  /* anchor it */
   state->inctop();  /* Phase 25e */
   funcstate->enterblock(bl, 0);

src/compiler/parseutils.cpp

@@ -185,7 +185,7 @@ LClosure *luaY_parser (lua_State *L, ZIO *z, Mbuffer *buff,
   LClosure *cl = LClosure::create(L, 1);  /* create main closure */
   setclLvalue2s(L, L->getTop().p, cl);  /* anchor it (to avoid being collected) */
   L->inctop();  /* Phase 25e */
-  lexstate.setTable(luaH_new(L));  /* create table for scanner */
+  lexstate.setTable(Table::create(L));  /* create table for scanner */
   sethvalue2s(L, L->getTop().p, lexstate.getTable());  /* anchor it */
   L->inctop();  /* Phase 25e */
   funcstate.setProto(luaF_newproto(L));

src/core/lapi.cpp

@@ -389,7 +389,7 @@ LUA_API lua_Unsigned lua_rawlen (lua_State *L, int idx) {
     case LuaT::TABLE: {
       lua_Unsigned res;
       lua_lock(L);
-      res = luaH_getn(L, hvalue(o));
+      res = hvalue(o)->getn(L);
       lua_unlock(L);
       return res;
     }
@@ -614,7 +614,7 @@ LUA_API int lua_pushthread (lua_State *L) {
 static int auxgetstr (lua_State *L, const TValue *t, const char *k) {
   LuaT tag;
   TString *str = TString::create(L, k);
-  tag = luaV_fastget(t, str, s2v(L->getTop().p), luaH_getstr);
+  tag = luaV_fastget(t, str, s2v(L->getTop().p), [](Table* tbl, TString* strkey, TValue* res) { return tbl->getStr(strkey, res); });
   if (!tagisempty(tag))
     api_incr_top(L);
   else {
@@ -634,7 +634,7 @@ static int auxgetstr (lua_State *L, const TValue *t, const char *k) {
 */
 static void getGlobalTable (lua_State *L, TValue *gt) {
   Table *registry = hvalue(G(L)->getRegistry());
-  LuaT tag = luaH_getint(registry, LUA_RIDX_GLOBALS, gt);
+  LuaT tag = registry->getInt(LUA_RIDX_GLOBALS, gt);
   (void)tag;  /* avoid not-used warnings when checks are off */
   api_check(L, novariant(tag) == LUA_TTABLE, "global table must exist");
 }
@@ -652,7 +652,7 @@ LUA_API int lua_gettable (lua_State *L, int idx) {
   lua_lock(L);
   api_checkpop(L, 1);
   TValue *t = L->getStackSubsystem().indexToValue(L,idx);
-  LuaT tag = luaV_fastget(t, s2v(L->getTop().p - 1), s2v(L->getTop().p - 1), luaH_get);
+  LuaT tag = luaV_fastget(t, s2v(L->getTop().p - 1), s2v(L->getTop().p - 1), [](Table* tbl, const TValue* key, TValue* res) { return tbl->get(key, res); });
   if (tagisempty(tag))
     tag = luaV_finishget(L, t, s2v(L->getTop().p - 1), L->getTop().p - 1, tag);
   lua_unlock(L);
@@ -702,7 +702,7 @@ LUA_API int lua_rawget (lua_State *L, int idx) {
   lua_lock(L);
   api_checkpop(L, 1);
   Table *t = gettable(L, idx);
-  LuaT tag = luaH_get(t, s2v(L->getTop().p - 1), s2v(L->getTop().p - 1));
+  LuaT tag = t->get(s2v(L->getTop().p - 1), s2v(L->getTop().p - 1));
   L->getStackSubsystem().pop();  /* pop key */
   return finishrawget(L, tag);
 }
@@ -712,7 +712,7 @@ LUA_API int lua_rawgeti (lua_State *L, int idx, lua_Integer n) {
   lua_lock(L);
   Table *t = gettable(L, idx);
   LuaT tag;
-  luaH_fastgeti(t, n, s2v(L->getTop().p), tag);
+  t->fastGeti(n, s2v(L->getTop().p), tag);
   return finishrawget(L, tag);
 }
 
@@ -722,17 +722,17 @@ LUA_API int lua_rawgetp (lua_State *L, int idx, const void *p) {
   Table *t = gettable(L, idx);
   TValue k;
   setpvalue(&k, cast_voidp(p));
-  return finishrawget(L, luaH_get(t, &k, s2v(L->getTop().p)));
+  return finishrawget(L, t->get(&k, s2v(L->getTop().p)));
 }
 
 
 LUA_API void lua_createtable (lua_State *L, int narray, int nrec) {
   lua_lock(L);
-  Table *t = luaH_new(L);
+  Table *t = Table::create(L);
   sethvalue2s(L, L->getTop().p, t);
   api_incr_top(L);
   if (narray > 0 || nrec > 0)
-    luaH_resize(L, t, cast_uint(narray), cast_uint(nrec));
+    t->resize(L, cast_uint(narray), cast_uint(nrec));
   luaC_checkGC(L);
   lua_unlock(L);
 }
@@ -796,7 +796,7 @@ static void auxsetstr (lua_State *L, const TValue *t, const char *k) {
   int hres;
   TString *str = TString::create(L, k);
   api_checkpop(L, 1);
-  hres = luaV_fastset(t, str, s2v(L->getTop().p - 1), luaH_psetstr);
+  hres = luaV_fastset(t, str, s2v(L->getTop().p - 1), [](Table* tbl, TString* strkey, TValue* val) { return tbl->psetStr(strkey, val); });
   if (hres == HOK) {
     luaV_finishfastset(L, t, s2v(L->getTop().p - 1));
     L->getStackSubsystem().pop();  /* pop value */
@@ -823,7 +823,7 @@ LUA_API void lua_settable (lua_State *L, int idx) {
   lua_lock(L);
   api_checkpop(L, 2);
   TValue *t = L->getStackSubsystem().indexToValue(L,idx);
-  int hres = luaV_fastset(t, s2v(L->getTop().p - 2), s2v(L->getTop().p - 1), luaH_pset);
+  int hres = luaV_fastset(t, s2v(L->getTop().p - 2), s2v(L->getTop().p - 1), [](Table* tbl, const TValue* key, TValue* val) { return tbl->pset(key, val); });
   if (hres == HOK)
     luaV_finishfastset(L, t, s2v(L->getTop().p - 1));
   else
@@ -861,7 +861,7 @@ static void aux_rawset (lua_State *L, int idx, TValue *key, int n) {
   lua_lock(L);
   api_checkpop(L, n);
   Table *t = gettable(L, idx);
-  luaH_set(L, t, key, s2v(L->getTop().p - 1));
+  t->set(L, key, s2v(L->getTop().p - 1));
   invalidateTMcache(t);
   luaC_barrierback(L, obj2gco(t), s2v(L->getTop().p - 1));
   L->getStackSubsystem().popN(n);
@@ -885,7 +885,7 @@ LUA_API void lua_rawseti (lua_State *L, int idx, lua_Integer n) {
   lua_lock(L);
   api_checkpop(L, 1);
   Table *t = gettable(L, idx);
-  luaH_setint(L, t, n, s2v(L->getTop().p - 1));
+  t->setInt(L, n, s2v(L->getTop().p - 1));
   luaC_barrierback(L, obj2gco(t), s2v(L->getTop().p - 1));
   L->getStackSubsystem().pop();
   lua_unlock(L);
@@ -1197,7 +1197,7 @@ LUA_API int lua_next (lua_State *L, int idx) {
   lua_lock(L);
   api_checkpop(L, 1);
   Table *t = gettable(L, idx);
-  int more = luaH_next(L, t, L->getTop().p - 1);
+  int more = t->tableNext(L, L->getTop().p - 1);
   if (more)
     api_incr_top(L);
   else  /* no more elements */

src/core/ldebug.cpp

@@ -312,7 +312,7 @@ static void collectvalidlines (lua_State *L, Closure *f) {
   else {
     const Proto *p = reinterpret_cast<LClosure*>(f)->getProto();
     int currentline = p->getLineDefined();
-    Table *t = luaH_new(L);  /* new table to store active lines */
+    Table *t = Table::create(L);  /* new table to store active lines */
     sethvalue2s(L, L->getTop().p, t);  /* push it on stack */
     api_incr_top(L);
     auto lineInfoSpan = p->getDebugInfo().getLineInfoSpan();
@@ -330,7 +330,7 @@ static void collectvalidlines (lua_State *L, Closure *f) {
       }
       for (; i < lineInfoSpan.size(); i++) {  /* for each instruction */
         currentline = nextline(p, currentline, i);  /* get its line */
-        luaH_setint(L, t, currentline, &v);  /* table[line] = true */
+        t->setInt(L, currentline, &v);  /* table[line] = true */
       }
     }
   }

src/core/lstate.cpp

@@ -191,18 +191,18 @@ static void freestack (lua_State *L) {
 static void init_registry (lua_State *L, global_State *g) {
   /* create registry */
   TValue aux;
-  Table *registry = luaH_new(L);
+  Table *registry = Table::create(L);
   sethvalue(L, g->getRegistry(), registry);
-  luaH_resize(L, registry, LUA_RIDX_LAST, 0);
+  registry->resize(L, LUA_RIDX_LAST, 0);
   /* registry[1] = false */
   setbfvalue(&aux);
-  luaH_setint(L, registry, 1, &aux);
+  registry->setInt(L, 1, &aux);
   /* registry[LUA_RIDX_MAINTHREAD] = L */
   setthvalue(L, &aux, L);
-  luaH_setint(L, registry, LUA_RIDX_MAINTHREAD, &aux);
+  registry->setInt(L, LUA_RIDX_MAINTHREAD, &aux);
   /* registry[LUA_RIDX_GLOBALS] = new table (table of globals) */
-  sethvalue(L, &aux, luaH_new(L));
-  luaH_setint(L, registry, LUA_RIDX_GLOBALS, &aux);
+  sethvalue(L, &aux, Table::create(L));
+  registry->setInt(L, LUA_RIDX_GLOBALS, &aux);
 }
 
 

src/core/ltm.cpp

@@ -59,7 +59,7 @@ void luaT_init (lua_State *L) {
 ** tag methods
 */
 const TValue *luaT_gettm (const Table *events, TMS event, TString *ename) {
-  const TValue *tm = luaH_Hgetshortstr(events, ename);
+  const TValue *tm = events->HgetShortStr(ename);
   lua_assert(event <= TMS::TM_EQ);
   if (notm(tm)) {  /* no tag method? */
     events->setFlagBits(1 << static_cast<int>(event));  /* cache this fact (flags is mutable) */
@@ -81,7 +81,7 @@ const TValue *luaT_gettmbyobj (lua_State *L, const TValue *o, TMS event) {
     default:
       mt = G(L)->getMetatable(ttype(o));
   }
-  return (mt ? luaH_Hgetshortstr(mt, G(L)->getTMName(static_cast<int>(event))) : G(L)->getNilValue());
+  return (mt ? mt->HgetShortStr(G(L)->getTMName(static_cast<int>(event))) : G(L)->getNilValue());
 }
 
 
@@ -93,7 +93,7 @@ const char *luaT_objtypename (lua_State *L, const TValue *o) {
   Table *mt;
   if ((ttistable(o) && (mt = hvalue(o)->getMetatable()) != nullptr) ||
       (ttisfulluserdata(o) && (mt = uvalue(o)->getMetatable()) != nullptr)) {
-    const TValue *name = luaH_Hgetshortstr(mt, TString::create(L, "__name"));
+    const TValue *name = mt->HgetShortStr(TString::create(L, "__name"));
     if (ttisstring(name))  /* is '__name' a string? */
       return getstr(tsvalue(name));  /* use it as type name */
   }

src/memory/gc/gc_core.cpp

@@ -26,7 +26,7 @@ l_mem GCCore::objsize(GCObject* o) {
     lu_mem res;
     switch (static_cast<int>(o->getType())) {
         case static_cast<int>(ctb(LuaT::TABLE)): {
-            res = luaH_size(gco2t(o));
+            res = gco2t(o)->size();
             break;
         }
         case static_cast<int>(ctb(LuaT::LCL)): {

src/memory/lgc.cpp

@@ -417,7 +417,7 @@ void freeobj (lua_State *L, GCObject *o) {
     }
     case static_cast<int>(ctb(LuaT::TABLE)): {
       Table *t = gco2t(o);
-      luaH_free(L, t);  // Note: luaH_free calls destroy() which should handle cleanup
+      t->destroy(L);  // Destroy table and cleanup
       break;
     }
     case static_cast<int>(ctb(LuaT::THREAD)):