diff options
Diffstat (limited to 'lfunc.c')
-rw-r--r-- | lfunc.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -25,7 +25,7 @@ | |||
25 | 25 | ||
26 | 26 | ||
27 | CClosure *luaF_newCclosure (lua_State *L, int nupvals) { | 27 | CClosure *luaF_newCclosure (lua_State *L, int nupvals) { |
28 | GCObject *o = luaC_newobj(L, LUA_TCCL, sizeCclosure(nupvals)); | 28 | GCObject *o = luaC_newobj(L, LUA_VCCL, sizeCclosure(nupvals)); |
29 | CClosure *c = gco2ccl(o); | 29 | CClosure *c = gco2ccl(o); |
30 | c->nupvalues = cast_byte(nupvals); | 30 | c->nupvalues = cast_byte(nupvals); |
31 | return c; | 31 | return c; |
@@ -33,7 +33,7 @@ CClosure *luaF_newCclosure (lua_State *L, int nupvals) { | |||
33 | 33 | ||
34 | 34 | ||
35 | LClosure *luaF_newLclosure (lua_State *L, int nupvals) { | 35 | LClosure *luaF_newLclosure (lua_State *L, int nupvals) { |
36 | GCObject *o = luaC_newobj(L, LUA_TLCL, sizeLclosure(nupvals)); | 36 | GCObject *o = luaC_newobj(L, LUA_VLCL, sizeLclosure(nupvals)); |
37 | LClosure *c = gco2lcl(o); | 37 | LClosure *c = gco2lcl(o); |
38 | c->p = NULL; | 38 | c->p = NULL; |
39 | c->nupvalues = cast_byte(nupvals); | 39 | c->nupvalues = cast_byte(nupvals); |
@@ -48,7 +48,7 @@ LClosure *luaF_newLclosure (lua_State *L, int nupvals) { | |||
48 | void luaF_initupvals (lua_State *L, LClosure *cl) { | 48 | void luaF_initupvals (lua_State *L, LClosure *cl) { |
49 | int i; | 49 | int i; |
50 | for (i = 0; i < cl->nupvalues; i++) { | 50 | for (i = 0; i < cl->nupvalues; i++) { |
51 | GCObject *o = luaC_newobj(L, LUA_TUPVAL, sizeof(UpVal)); | 51 | GCObject *o = luaC_newobj(L, LUA_VUPVAL, sizeof(UpVal)); |
52 | UpVal *uv = gco2upv(o); | 52 | UpVal *uv = gco2upv(o); |
53 | uv->v = &uv->u.value; /* make it closed */ | 53 | uv->v = &uv->u.value; /* make it closed */ |
54 | setnilvalue(uv->v); | 54 | setnilvalue(uv->v); |
@@ -63,7 +63,7 @@ void luaF_initupvals (lua_State *L, LClosure *cl) { | |||
63 | ** open upvalues of 'L' after entry 'prev'. | 63 | ** open upvalues of 'L' after entry 'prev'. |
64 | **/ | 64 | **/ |
65 | static UpVal *newupval (lua_State *L, int tbc, StkId level, UpVal **prev) { | 65 | static UpVal *newupval (lua_State *L, int tbc, StkId level, UpVal **prev) { |
66 | GCObject *o = luaC_newobj(L, LUA_TUPVAL, sizeof(UpVal)); | 66 | GCObject *o = luaC_newobj(L, LUA_VUPVAL, sizeof(UpVal)); |
67 | UpVal *uv = gco2upv(o); | 67 | UpVal *uv = gco2upv(o); |
68 | UpVal *next = *prev; | 68 | UpVal *next = *prev; |
69 | uv->v = s2v(level); /* current value lives in the stack */ | 69 | uv->v = s2v(level); /* current value lives in the stack */ |
@@ -243,7 +243,7 @@ int luaF_close (lua_State *L, StkId level, int status) { | |||
243 | 243 | ||
244 | 244 | ||
245 | Proto *luaF_newproto (lua_State *L) { | 245 | Proto *luaF_newproto (lua_State *L) { |
246 | GCObject *o = luaC_newobj(L, LUA_TPROTO, sizeof(Proto)); | 246 | GCObject *o = luaC_newobj(L, LUA_VPROTO, sizeof(Proto)); |
247 | Proto *f = gco2p(o); | 247 | Proto *f = gco2p(o); |
248 | f->k = NULL; | 248 | f->k = NULL; |
249 | f->sizek = 0; | 249 | f->sizek = 0; |