** Create registry table and its predefined values */
| 214 | ** Create registry table and its predefined values |
| 215 | */ |
| 216 | static void init_registry (lua_State *L, global_State *g) { |
| 217 | /* create registry */ |
| 218 | Table *registry = luaH_new(L); |
| 219 | sethvalue(L, &g->l_registry, registry); |
| 220 | luaH_resize(L, registry, LUA_RIDX_LAST, 0); |
| 221 | /* registry[LUA_RIDX_MAINTHREAD] = L */ |
| 222 | setthvalue(L, ®istry->array[LUA_RIDX_MAINTHREAD - 1], L); |
| 223 | /* registry[LUA_RIDX_GLOBALS] = new table (table of globals) */ |
| 224 | sethvalue(L, ®istry->array[LUA_RIDX_GLOBALS - 1], luaH_new(L)); |
| 225 | } |
| 226 | |
| 227 | |
| 228 | /* |
no test coverage detected