luajit: add a debug print

Author: RaphaelIT7

LuaJIT-2.1/src/lj_api.c

@@ -272,23 +272,29 @@ LUALIB_API void luaL_checkany(lua_State *L, int idx)
     mt = tabref(udataV(o)->metatable);
   else if (tviscdata(o))
   {
+    printf("GMODLUA_GetUserType-cdata: %p\n", o);
     strTypeName = "cdata";
     CTState *cts = ctype_cts(L);
     CType *ct = ctype_raw(cts, cdataV(o)->ctypeid);
     mt = tabV(lj_tab_getinth(cts->miscmap, -(int32_t)ctype_typeid(cts, ct)));
+    printf("GMODLUA_GetUserType-cdata-done: %p\n", o);
   } else
     mt = tabref(basemt_obj(G(L), o));
 
   if (mt)
   {
-    GCstr* str = lj_str_new(L, "MetaName", 8);
+    printf("GMODLUA_GetUserType-meta-1: %p\n", mt);
+    GCstr* str = lj_str_newlit(L, "MetaName");
+    printf("GMODLUA_GetUserType-meta-2: %p\n", mt);
     cTValue* val = lj_tab_getstr(mt, str);
-    lj_str_free(G(L), str);
+    printf("GMODLUA_GetUserType-meta-3: %p\n", mt);
 
     if (val && tvisstr(val))
     {
+      printf("GMODLUA_GetUserType-val-1: %p\n", val);
       strncpy(strName, strdata(strV(val)), sizeof(strName));
       strTypeName = strName;
+      printf("GMODLUA_GetUserType-val-2: %p\n", val);
     }
   }