diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-06-18 19:59:29 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-06-18 19:59:29 -0300 |
commit | 14929f5764a7990dfb62c8792cfdfe03c061da21 (patch) | |
tree | 76ca48dced058135cc2ff0877e81dd96d43e0ea1 /lfunc.c | |
parent | 7021cc9bc8c216e941c5e5a49b34d58672b3f4c2 (diff) | |
download | lua-github-14929f5764a7990dfb62c8792cfdfe03c061da21.tar.gz |
use appropriate macros to convert GCObject to specific types
Diffstat (limited to 'lfunc.c')
-rw-r--r-- | lfunc.c | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -1,5 +1,5 @@ /* -** $Id: lfunc.c,v 2.40 2014/02/15 13:12:01 roberto Exp roberto $ +** $Id: lfunc.c,v 2.41 2014/02/18 13:39:37 roberto Exp roberto $ ** Auxiliary functions to manipulate prototypes and closures ** See Copyright Notice in lua.h */ @@ -21,14 +21,16 @@ Closure *luaF_newCclosure (lua_State *L, int n) { - Closure *c = &luaC_newobj(L, LUA_TCCL, sizeCclosure(n))->cl; + GCObject *o = luaC_newobj(L, LUA_TCCL, sizeCclosure(n)); + Closure *c = gco2cl(o); c->c.nupvalues = cast_byte(n); return c; } Closure *luaF_newLclosure (lua_State *L, int n) { - Closure *c = &luaC_newobj(L, LUA_TLCL, sizeLclosure(n))->cl; + GCObject *o = luaC_newobj(L, LUA_TLCL, sizeLclosure(n)); + Closure *c = gco2cl(o); c->l.p = NULL; c->l.nupvalues = cast_byte(n); while (n--) c->l.upvals[n] = NULL; @@ -93,7 +95,8 @@ void luaF_close (lua_State *L, StkId level) { Proto *luaF_newproto (lua_State *L) { - Proto *f = &luaC_newobj(L, LUA_TPROTO, sizeof(Proto))->p; + GCObject *o = luaC_newobj(L, LUA_TPROTO, sizeof(Proto)); + Proto *f = gco2p(o); f->k = NULL; f->sizek = 0; f->p = NULL; |