22 lines
640 B
C++
22 lines
640 B
C++
|
#include "RevLINT.hpp"
|
||
|
|
|
||
|
|
void rev_luaC_link(int r_lua_State, int o, int tt)
|
||
|
|
{
|
||
|
|
int g = lint_deptr(r_lua_State + 8); // global_State *g = G(L)
|
||
|
|
*(int*)(o) = *(int*)(g + 48); // o->gch.next = g->rootgc
|
||
|
|
*(int*)(g + 48) = o; // g->rootgc = o
|
||
|
|
*(int*)(o + 4) = *(int*)(g + 21) & 3; // o->gch.marked = luaC_white(g)
|
||
|
|
*(int*)(o + 5) = tt; // o->gch.tt = tt;
|
||
|
|
}
|
||
|
|
|
||
|
|
void* rev_luaM_realloc_(int r_lua_State, int block, int osize, int nsize)
|
||
|
|
{
|
||
|
|
return nullptr;
|
||
|
|
}
|
||
|
|
|
||
|
|
r_Proto* rev_luaF_newproto(int r_lua_State)
|
||
|
|
{
|
||
|
|
r_Proto* f = rev_luaM_new(r_lua_State, r_Proto);
|
||
|
|
rev_luaC_link(r_lua_State, (int)f, R_LUA_TPROTO);
|
||
|
|
return f;
|
||
|
|
}
|