lua

commit 7e30900def8b01df28464477b943aab65f5637c6
parent f63d7753b89e479b20d6d78d05d1039c2ccd2e06
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue, 30 May 2000 16:00:09 -0300

better field name

Diffstat:
M
ldebug.c
 | 
4
++--
M
ldo.c
 | 
6
+++---
M
lfunc.c
 | 
6
+++---
M
lgc.c
 | 
6
+++---
M
lobject.h
 | 
6
+++---
M
lparser.c
 | 
4
++--
M
lvm.c
 | 
6
+++---

7 files changed, 19 insertions(+), 19 deletions(-)
diff --git a/ldebug.c b/ldebug.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldebug.c,v 1.19 2000/05/12 19:49:18 roberto Exp roberto $
+** $Id: ldebug.c,v 1.20 2000/05/15 19:30:41 roberto Exp roberto $
 ** Debug Interface
 ** See Copyright Notice in lua.h
 */
@@ -89,7 +89,7 @@ static int lua_nups (StkId f) {
   switch (ttype(f)) {
     case TAG_LCLOSURE:  case TAG_CCLOSURE:
     case TAG_LMARK:   case TAG_CMARK:
-      return f->value.cl->nelems;
+      return f->value.cl->nupvalues;
     default:
       return 0;
   }
diff --git a/ldo.c b/ldo.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldo.c,v 1.75 2000/05/09 14:50:16 roberto Exp roberto $
+** $Id: ldo.c,v 1.76 2000/05/24 13:54:49 roberto Exp roberto $
 ** Stack and Call structure of Lua
 ** See Copyright Notice in lua.h
 */
@@ -139,7 +139,7 @@ static void luaD_callHook (lua_State *L, StkId func, lua_Hook callhook,
 
 
 static StkId callCclosure (lua_State *L, const struct Closure *cl, StkId base) {
-  int nup = cl->nelems;  /* number of upvalues */
+  int nup = cl->nupvalues;  /* number of upvalues */
   int numarg = L->top-base;
   struct C_Lua_Stack oldCLS = L->Cstack;
   StkId firstResult;
@@ -151,7 +151,7 @@ static StkId callCclosure (lua_State *L, const struct Closure *cl, StkId base) {
     L->top += nup;
     numarg += nup;
     /* copy upvalues into stack */
-    while (nup--) *(base+nup) = cl->consts[nup];
+    while (nup--) *(base+nup) = cl->upvalue[nup];
   }
   L->Cstack.num = numarg;
   L->Cstack.lua2C = base;
diff --git a/lfunc.c b/lfunc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lfunc.c,v 1.21 2000/03/29 20:19:20 roberto Exp roberto $
+** $Id: lfunc.c,v 1.22 2000/05/24 13:54:49 roberto Exp roberto $
 ** Auxiliary functions to manipulate prototypes and closures
 ** See Copyright Notice in lua.h
 */
@@ -14,7 +14,7 @@
 #include "lstate.h"
 
 #define gcsizeproto(L, p)	numblocks(L, 0, sizeof(Proto))
-#define gcsizeclosure(L, c)	numblocks(L, c->nelems, sizeof(Closure))
+#define gcsizeclosure(L, c)	numblocks(L, c->nupvalues, sizeof(Closure))
 
 
 
@@ -24,7 +24,7 @@ Closure *luaF_newclosure (lua_State *L, int nelems) {
   c->next = L->rootcl;
   L->rootcl = c;
   c->marked = 0;
-  c->nelems = nelems;
+  c->nupvalues = nelems;
   L->nblocks += gcsizeclosure(L, c);
   return c;
 }
diff --git a/lgc.c b/lgc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lgc.c,v 1.51 2000/05/24 13:54:49 roberto Exp roberto $
+** $Id: lgc.c,v 1.52 2000/05/30 18:54:49 roberto Exp roberto $
 ** Garbage Collector
 ** See Copyright Notice in lua.h
 */
@@ -44,10 +44,10 @@ static void protomark (lua_State *L, Proto *f) {
 
 static void closuremark (lua_State *L, Closure *f) {
   if (!f->marked) {
-    int i = f->nelems;
+    int i = f->nupvalues;
     f->marked = 1;
     while (i--)
-      markobject(L, &f->consts[i]);
+      markobject(L, &f->upvalue[i]);
   }
 }
 
diff --git a/lobject.h b/lobject.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lobject.h,v 1.64 2000/05/10 16:33:20 roberto Exp roberto $
+** $Id: lobject.h,v 1.65 2000/05/24 13:54:49 roberto Exp roberto $
 ** Type definitions for Lua objects
 ** See Copyright Notice in lua.h
 */
@@ -144,8 +144,8 @@ typedef struct Closure {
     lua_CFunction c;  /* C functions */
     struct Proto *l;  /* Lua functions */
   } f;
-  int nelems;
-  TObject consts[1];
+  int nupvalues;
+  TObject upvalue[1];
 } Closure;
 
 
diff --git a/lparser.c b/lparser.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lparser.c,v 1.91 2000/05/25 18:26:42 roberto Exp roberto $
+** $Id: lparser.c,v 1.92 2000/05/25 18:59:59 roberto Exp roberto $
 ** LL(1) Parser and code generator for Lua
 ** See Copyright Notice in lua.h
 */
@@ -170,7 +170,7 @@ static int checkname (LexState *ls) {
 
 
 static TString *str_checkname (LexState *ls) {
-  int i = checkname(ls);  /* this call may realloc `f->consts' */
+  int i = checkname(ls);  /* this call may realloc `f->kstr' */
   return ls->fs->f->kstr[i];
 }
 
diff --git a/lvm.c b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 1.108 2000/05/24 13:54:49 roberto Exp roberto $
+** $Id: lvm.c,v 1.109 2000/05/25 19:02:21 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -77,7 +77,7 @@ static Closure *luaV_closure (lua_State *L, lua_Type t, int nelems) {
   Closure *c = luaF_newclosure(L, nelems);
   L->top -= nelems;
   while (nelems--)
-    c->consts[nelems] = *(L->top+nelems);
+    c->upvalue[nelems] = *(L->top+nelems);
   ttype(L->top) = t;
   clvalue(L->top) = c;
   incr_top;
@@ -409,7 +409,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
         break;
 
       case OP_PUSHUPVALUE:
-        *top++ = cl->consts[GETARG_U(i)];
+        *top++ = cl->upvalue[GETARG_U(i)];
         break;
 
       case OP_GETLOCAL: