aboutsummaryrefslogtreecommitdiff
path: root/lfunc.c
diff options
context:
space:
mode:
Diffstat (limited to 'lfunc.c')
-rw-r--r--lfunc.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/lfunc.c b/lfunc.c
index 60689a7a..10100e5a 100644
--- a/lfunc.c
+++ b/lfunc.c
@@ -25,7 +25,7 @@
25 25
26 26
27CClosure *luaF_newCclosure (lua_State *L, int nupvals) { 27CClosure *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
35LClosure *luaF_newLclosure (lua_State *L, int nupvals) { 35LClosure *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) {
48void luaF_initupvals (lua_State *L, LClosure *cl) { 48void 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**/
65static UpVal *newupval (lua_State *L, int tbc, StkId level, UpVal **prev) { 65static 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
245Proto *luaF_newproto (lua_State *L) { 245Proto *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;