** Create registry table and its predefined values */
| 185 | ** Create registry table and its predefined values |
| 186 | */ |
| 187 | static void init_registry(lua_State *L, global_State *g) { |
| 188 | TValue temp; |
| 189 | /* create registry */ |
| 190 | Table *registry = luaH_new(L); |
| 191 | sethvalue(L, &g->l_registry, registry); |
| 192 | luaH_resize(L, registry, LUA_RIDX_LAST, 0); |
| 193 | /* registry[LUA_RIDX_MAINTHREAD] = L */ |
| 194 | setthvalue(L, &temp, L); /* temp = L */ |
| 195 | luaH_setint(L, registry, LUA_RIDX_MAINTHREAD, &temp); |
| 196 | /* registry[LUA_RIDX_GLOBALS] = table of globals */ |
| 197 | sethvalue(L, &temp, luaH_new(L)); /* temp = new table (global table) */ |
| 198 | luaH_setint(L, registry, LUA_RIDX_GLOBALS, &temp); |
| 199 | } |
| 200 | |
| 201 | |
| 202 | /* |
no test coverage detected