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