| 1310 | |
| 1311 | |
| 1312 | LUA_API lua_Alloc lua_getallocf (lua_State *L, void **ud) { |
| 1313 | lua_Alloc f; |
| 1314 | lua_lock(L); |
| 1315 | if (ud) *ud = G(L)->ud; |
| 1316 | f = G(L)->frealloc; |
| 1317 | lua_unlock(L); |
| 1318 | return f; |
| 1319 | } |
| 1320 | |
| 1321 | |
| 1322 | LUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud) { |