aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lapi.c4
-rw-r--r--ldo.c4
-rw-r--r--lfunc.c8
-rw-r--r--lfunc.h4
-rw-r--r--lgc.c10
-rw-r--r--ltests.c4
6 files changed, 17 insertions, 17 deletions
diff --git a/lapi.c b/lapi.c
index cb38ffba..c0ba24c1 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lapi.c,v 2.195 2014/02/13 17:25:20 roberto Exp roberto $ 2** $Id: lapi.c,v 2.196 2014/02/14 16:43:14 roberto Exp roberto $
3** Lua API 3** Lua API
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -1296,7 +1296,7 @@ LUA_API void lua_upvaluejoin (lua_State *L, int fidx1, int n1,
1296 luaC_upvdeccount(L, *up1); 1296 luaC_upvdeccount(L, *up1);
1297 *up1 = *up2; 1297 *up1 = *up2;
1298 (*up1)->refcount++; 1298 (*up1)->refcount++;
1299 if (upisopen(*up1)) (*up1)->u.op.touched = 1; 1299 if (upisopen(*up1)) (*up1)->u.open.touched = 1;
1300 luaC_upvalbarrier(L, *up1); 1300 luaC_upvalbarrier(L, *up1);
1301} 1301}
1302 1302
diff --git a/ldo.c b/ldo.c
index cc564ca0..3440e3f9 100644
--- a/ldo.c
+++ b/ldo.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldo.c,v 2.111 2013/09/17 15:40:06 roberto Exp roberto $ 2** $Id: ldo.c,v 2.112 2013/11/08 18:16:33 roberto Exp roberto $
3** Stack and Call structure of Lua 3** Stack and Call structure of Lua
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -143,7 +143,7 @@ static void correctstack (lua_State *L, TValue *oldstack) {
143 CallInfo *ci; 143 CallInfo *ci;
144 UpVal *up; 144 UpVal *up;
145 L->top = (L->top - oldstack) + L->stack; 145 L->top = (L->top - oldstack) + L->stack;
146 for (up = L->openupval; up != NULL; up = up->u.op.next) 146 for (up = L->openupval; up != NULL; up = up->u.open.next)
147 up->v = (up->v - oldstack) + L->stack; 147 up->v = (up->v - oldstack) + L->stack;
148 for (ci = L->ci; ci != NULL; ci = ci->previous) { 148 for (ci = L->ci; ci != NULL; ci = ci->previous) {
149 ci->top = (ci->top - oldstack) + L->stack; 149 ci->top = (ci->top - oldstack) + L->stack;
diff --git a/lfunc.c b/lfunc.c
index 3381e437..685d7bdd 100644
--- a/lfunc.c
+++ b/lfunc.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lfunc.c,v 2.38 2013/09/11 12:26:14 roberto Exp roberto $ 2** $Id: lfunc.c,v 2.39 2014/02/13 12:11:34 roberto Exp roberto $
3** Auxiliary functions to manipulate prototypes and closures 3** Auxiliary functions to manipulate prototypes and closures
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -56,12 +56,12 @@ UpVal *luaF_findupval (lua_State *L, StkId level) {
56 lua_assert(upisopen(p)); 56 lua_assert(upisopen(p));
57 if (p->v == level) /* found a corresponding upvalue? */ 57 if (p->v == level) /* found a corresponding upvalue? */
58 return p; /* return it */ 58 return p; /* return it */
59 pp = &p->u.op.next; 59 pp = &p->u.open.next;
60 } 60 }
61 /* not found: create a new one */ 61 /* not found: create a new one */
62 uv = luaM_new(L, UpVal); 62 uv = luaM_new(L, UpVal);
63 uv->refcount = 0; 63 uv->refcount = 0;
64 uv->u.op.next = *pp; 64 uv->u.open.next = *pp;
65 *pp = uv; 65 *pp = uv;
66 uv->v = level; /* current value lives in the stack */ 66 uv->v = level; /* current value lives in the stack */
67 return uv; 67 return uv;
@@ -72,7 +72,7 @@ void luaF_close (lua_State *L, StkId level) {
72 UpVal *uv; 72 UpVal *uv;
73 while (L->openupval != NULL && (uv = L->openupval)->v >= level) { 73 while (L->openupval != NULL && (uv = L->openupval)->v >= level) {
74 lua_assert(upisopen(uv)); 74 lua_assert(upisopen(uv));
75 L->openupval = uv->u.op.next; /* remove from `open' list */ 75 L->openupval = uv->u.open.next; /* remove from `open' list */
76 if (uv->refcount == 0) /* no references? */ 76 if (uv->refcount == 0) /* no references? */
77 luaM_free(L, uv); /* free upvalue */ 77 luaM_free(L, uv); /* free upvalue */
78 else { 78 else {
diff --git a/lfunc.h b/lfunc.h
index 11438ab7..9ed51767 100644
--- a/lfunc.h
+++ b/lfunc.h
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lfunc.h,v 2.10 2013/08/27 18:53:35 roberto Exp roberto $ 2** $Id: lfunc.h,v 2.11 2013/09/11 15:17:00 roberto Exp roberto $
3** Auxiliary functions to manipulate prototypes and closures 3** Auxiliary functions to manipulate prototypes and closures
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -28,7 +28,7 @@ struct UpVal {
28 struct { /* (when open) */ 28 struct { /* (when open) */
29 UpVal *next; /* linked list */ 29 UpVal *next; /* linked list */
30 int touched; /* mark to avoid cycles with dead threads */ 30 int touched; /* mark to avoid cycles with dead threads */
31 } op; 31 } open;
32 TValue value; /* the value (when closed) */ 32 TValue value; /* the value (when closed) */
33 } u; 33 } u;
34}; 34};
diff --git a/lgc.c b/lgc.c
index 5c365e32..d51c4f5f 100644
--- a/lgc.c
+++ b/lgc.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lgc.c,v 2.173 2014/02/13 17:25:20 roberto Exp roberto $ 2** $Id: lgc.c,v 2.174 2014/02/14 16:43:14 roberto Exp roberto $
3** Garbage Collector 3** Garbage Collector
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -296,10 +296,10 @@ static void remarkupvals (global_State *g) {
296 lua_assert(!isblack(thread)); /* threads are never black */ 296 lua_assert(!isblack(thread)); /* threads are never black */
297 if (!isgray(thread)) { /* dead thread? */ 297 if (!isgray(thread)) { /* dead thread? */
298 UpVal *uv = gco2th(thread)->openupval; 298 UpVal *uv = gco2th(thread)->openupval;
299 for (; uv != NULL; uv = uv->u.op.next) { 299 for (; uv != NULL; uv = uv->u.open.next) {
300 if (uv->u.op.touched) { 300 if (uv->u.open.touched) {
301 markvalue(g, uv->v); /* remark upvalue's value */ 301 markvalue(g, uv->v); /* remark upvalue's value */
302 uv->u.op.touched = 0; 302 uv->u.open.touched = 0;
303 } 303 }
304 } 304 }
305 } 305 }
@@ -466,7 +466,7 @@ static lu_mem traverseLclosure (global_State *g, LClosure *cl) {
466 UpVal *uv = cl->upvals[i]; 466 UpVal *uv = cl->upvals[i];
467 if (uv != NULL) { 467 if (uv != NULL) {
468 if (upisopen(uv)) 468 if (upisopen(uv))
469 uv->u.op.touched = 1; /* can be marked in 'remarkupvals' */ 469 uv->u.open.touched = 1; /* can be marked in 'remarkupvals' */
470 else 470 else
471 markvalue(g, uv->v); 471 markvalue(g, uv->v);
472 } 472 }
diff --git a/ltests.c b/ltests.c
index 7ec2aac2..5abe598c 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ltests.c,v 2.163 2014/02/11 12:18:12 roberto Exp roberto $ 2** $Id: ltests.c,v 2.164 2014/02/13 12:11:34 roberto Exp roberto $
3** Internal Module for Debugging of the Lua Implementation 3** Internal Module for Debugging of the Lua Implementation
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -301,7 +301,7 @@ static void checkstack (global_State *g, lua_State *L1) {
301 CallInfo *ci; 301 CallInfo *ci;
302 UpVal *uv; 302 UpVal *uv;
303 lua_assert(!isdead(g, obj2gco(L1))); 303 lua_assert(!isdead(g, obj2gco(L1)));
304 for (uv = L1->openupval; uv != NULL; uv = uv->u.op.next) 304 for (uv = L1->openupval; uv != NULL; uv = uv->u.open.next)
305 lua_assert(upisopen(uv)); /* must be open */ 305 lua_assert(upisopen(uv)); /* must be open */
306 for (ci = L1->ci; ci != NULL; ci = ci->previous) { 306 for (ci = L1->ci; ci != NULL; ci = ci->previous) {
307 lua_assert(ci->top <= L1->stack_last); 307 lua_assert(ci->top <= L1->stack_last);