"Object" renamed to "TObject" (Tagged Object), to avoid conflicts with

pre-defined names in some C compilers.

1 files changed, 59 insertions, 59 deletions

diff --git a/opcode.c b/opcode.c
index 31ecdf85..595277a9 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 3.85 1997/03/19 19:41:10 roberto Exp roberto $";
+char *rcs_opcode="$Id: opcode.c,v 3.86 1997/03/20 19:20:43 roberto Exp roberto $";
 
 #include <setjmp.h>
 #include <stdio.h>
@@ -32,14 +32,14 @@ char *rcs_opcode="$Id: opcode.c,v 3.85 1997/03/19 19:41:10 roberto Exp roberto $
 
 typedef int StkId;  /* index to stack elements */
 
-static Object initial_stack;
+static TObject initial_stack;
 
-static Object *stackLimit = &initial_stack+1;
-static Object *stack = &initial_stack;
-static Object *top = &initial_stack;
+static TObject *stackLimit = &initial_stack+1;
+static TObject *stack = &initial_stack;
+static TObject *top = &initial_stack;
 
 
-/* macros to convert from lua_Object to (Object *) and back */
+/* macros to convert from lua_Object to (TObject *) and back */
  
 #define Address(lo)     ((lo)+stack-1)
 #define Ref(st)         ((st)-stack+1)
@@ -72,7 +72,7 @@ static void do_call (StkId base, int nResults);
 
 
 
-Object *luaI_Address (lua_Object o)
+TObject *luaI_Address (lua_Object o)
 {
   return Address(o);
 }
@@ -84,7 +84,7 @@ Object *luaI_Address (lua_Object o)
 static void lua_initstack (void)
 {
  Long maxstack = STACK_SIZE;
- stack = newvector(maxstack, Object);
+ stack = newvector(maxstack, TObject);
  stackLimit = stack+maxstack;
  top = stack;
  *(top++) = initial_stack;
@@ -105,7 +105,7 @@ static void growstack (void)
   static int limit = STACK_LIMIT;
   StkId t = top-stack;
   Long stacksize = stackLimit - stack;
-  stacksize = growvector(&stack, stacksize, Object, stackEM, limit+100);
+  stacksize = growvector(&stack, stacksize, TObject, stackEM, limit+100);
   stackLimit = stack+stacksize;
   top = stack + t;
   if (stacksize >= limit)
@@ -134,7 +134,7 @@ static char *lua_strconc (char *l, char *r)
 ** Convert, if possible, to a number object.
 ** Return 0 if success, not 0 if error.
 */
-static int lua_tonumber (Object *obj)
+static int lua_tonumber (TObject *obj)
 {
  float t;
  char c;
@@ -155,7 +155,7 @@ static int lua_tonumber (Object *obj)
 ** Convert, if possible, to a string ttype
 ** Return 0 in success or not 0 on error.
 */
-static int lua_tostring (Object *obj)
+static int lua_tostring (TObject *obj)
 {
   if (ttype(obj) != LUA_T_NUMBER)
     return 1;
@@ -179,7 +179,7 @@ static int lua_tostring (Object *obj)
 */
 static void adjust_top (StkId newtop)
 {
-  Object *nt;
+  TObject *nt;
   lua_checkstack(stack+newtop);
   nt = stack+newtop;  /* warning: previous call may change stack */
   while (top < nt) ttype(top++) = LUA_T_NIL;
@@ -228,7 +228,7 @@ static void callHook (StkId base, lua_Type type, int isreturn)
     (*lua_callhook)(LUA_NOOBJECT, "(return)", 0);
   else
   {
-    Object *f = stack+base-1;
+    TObject *f = stack+base-1;
     if (type == LUA_T_MARK)
       (*lua_callhook)(Ref(f), f->value.tf->fileName, f->value.tf->lineDefined);
     else
@@ -261,7 +261,7 @@ static StkId callC (lua_CFunction func, StkId base)
   return firstResult;
 }
 
-static void callIM (Object *f, int nParams, int nResults)
+static void callIM (TObject *f, int nParams, int nResults)
 {
   open_stack(nParams);
   *(top-nParams-1) = *f;
@@ -278,7 +278,7 @@ static void callIM (Object *f, int nParams, int nResults)
 static void do_call (StkId base, int nResults)
 {
   StkId firstResult;
-  Object *func = stack+base-1;
+  TObject *func = stack+base-1;
   int i;
   if (ttype(func) == LUA_T_CFUNCTION) {
     ttype(func) = LUA_T_CMARK;
@@ -290,7 +290,7 @@ static void do_call (StkId base, int nResults)
   }
   else { /* func is not a function */
     /* Check the fallback for invalid functions */
-    Object *im = luaI_getimbyObj(func, IM_FUNCTION);
+    TObject *im = luaI_getimbyObj(func, IM_FUNCTION);
     if (ttype(im) == LUA_T_NIL)
       lua_error("call expression not a function");
     open_stack((top-stack)-(base-1));
@@ -317,9 +317,9 @@ static void do_call (StkId base, int nResults)
 static void pushsubscript (void)
 {
   int tg = luaI_tag(top-2);
-  Object *im = luaI_getim(tg, IM_GETTABLE);
+  TObject *im = luaI_getim(tg, IM_GETTABLE);
   if (ttype(top-2) == LUA_T_ARRAY && ttype(im) == LUA_T_NIL) {
-      Object *h = lua_hashget(avalue(top-2), top-1);
+      TObject *h = lua_hashget(avalue(top-2), top-1);
       if (h != NULL && ttype(h) != LUA_T_NIL) {
         --top;
         *(top-1) = *h;
@@ -346,7 +346,7 @@ lua_Object lua_basicindex (void)
   if (ttype(top-2) != LUA_T_ARRAY)
     lua_error("indexed expression not a table in basic indexing");
   else {
-    Object *h = lua_hashget(avalue(top-2), top-1);
+    TObject *h = lua_hashget(avalue(top-2), top-1);
     --top;
     if (h != NULL)
       *(top-1) = *h;
@@ -364,11 +364,11 @@ lua_Object lua_basicindex (void)
 ** mode = 1: normal store (with internal methods)
 ** mode = 2: "deep stack" store (with internal methods)
 */
-static void storesubscript (Object *t, int mode)
+static void storesubscript (TObject *t, int mode)
 {
-  Object *im = (mode == 0) ? NULL : luaI_getimbyObj(t, IM_SETTABLE);
+  TObject *im = (mode == 0) ? NULL : luaI_getimbyObj(t, IM_SETTABLE);
   if (ttype(t) == LUA_T_ARRAY && (im == NULL || ttype(im) == LUA_T_NIL)) {
-    Object *h = lua_hashdefine(avalue(t), t+1);
+    TObject *h = lua_hashdefine(avalue(t), t+1);
     *h = *(top-1);
     top -= (mode == 2) ? 1 : 3;
   }
@@ -394,7 +394,7 @@ static void getglobal (Word n)
   *top = lua_table[n].object;
   incr_top;
   if (ttype(top-1) == LUA_T_NIL) {  /* check i.m. */
-    Object *im = luaI_getgim(GIM_GETGLOBAL);
+    TObject *im = luaI_getgim(GIM_GETGLOBAL);
     if (ttype(im) != LUA_T_NIL) {
       ttype(top-1) = LUA_T_STRING;
       tsvalue(top-1) = lua_table[n].varname;
@@ -406,9 +406,9 @@ static void getglobal (Word n)
 /*
 ** Traverse all objects on stack
 */
-void lua_travstack (int (*fn)(Object *))
+void lua_travstack (int (*fn)(TObject *))
 {
- Object *o;
+ TObject *o;
  for (o = top-1; o >= stack; o--)
    fn (o);
 }
@@ -420,7 +420,7 @@ void lua_travstack (int (*fn)(Object *))
 
 static void lua_message (char *s)
 {
-  Object *im = luaI_getgim(GIM_ERROR);
+  TObject *im = luaI_getgim(GIM_ERROR);
   if (ttype(im) == LUA_T_NIL)
     fprintf(stderr, "lua: %s\n", s);
   else {
@@ -458,14 +458,14 @@ lua_Function lua_stackedfunction (int level)
 
 int lua_currentline (lua_Function func)
 {
-  Object *f = Address(func);
+  TObject *f = Address(func);
   return (f+1 < top && (f+1)->ttype == LUA_T_LINE) ? (f+1)->value.i : -1;
 }
 
 
 lua_Object lua_getlocal (lua_Function func, int local_number, char **name)
 {
-  Object *f = luaI_Address(func);
+  TObject *f = luaI_Address(func);
   *name = luaI_getlocalname(f->value.tf, local_number, lua_currentline(func));
   if (*name)
   {
@@ -479,7 +479,7 @@ lua_Object lua_getlocal (lua_Function func, int local_number, char **name)
 
 int lua_setlocal (lua_Function func, int local_number)
 {
-  Object *f = Address(func);
+  TObject *f = Address(func);
   char *name = luaI_getlocalname(f->value.tf, local_number, lua_currentline(func));
   adjustC(1);
   --top;
@@ -843,7 +843,7 @@ lua_CFunction lua_getcfunction (lua_Object object)
 
 lua_Object lua_getref (int ref)
 {
-  Object *o = luaI_getref(ref);
+  TObject *o = luaI_getref(ref);
   if (o == NULL)
     return LUA_NOOBJECT;
   adjustC(0);
@@ -855,7 +855,7 @@ lua_Object lua_getref (int ref)
 
 void lua_pushref (int ref)
 {
-  Object *o = luaI_getref(ref);
+  TObject *o = luaI_getref(ref);
   if (o == NULL)
     lua_error("access to invalid (possibly garbage collected) reference");
   luaI_pushobject(o);
@@ -970,7 +970,7 @@ void lua_pushusertag (void *u, int tag)
 /*
 ** Push an object on the stack.
 */
-void luaI_pushobject (Object *o)
+void luaI_pushobject (TObject *o)
 {
  *top = *o;
  incr_top;
@@ -995,9 +995,9 @@ int lua_tag (lua_Object o)
 }
 
 
-void luaI_gcIM (Object *o)
+void luaI_gcIM (TObject *o)
 {
-  Object *im = luaI_getimbyObj(o, IM_GC);
+  TObject *im = luaI_getimbyObj(o, IM_GC);
   if (ttype(im) != LUA_T_NIL) {
     *top = *o;
     incr_top;
@@ -1008,7 +1008,7 @@ void luaI_gcIM (Object *o)
 
 static void call_arith (IMS event)
 {
-  Object *im = luaI_getimbyObj(top-2, event);  /* try first operand */
+  TObject *im = luaI_getimbyObj(top-2, event);  /* try first operand */
   if (ttype(im) == LUA_T_NIL) {
     im = luaI_getimbyObj(top-1, event);  /* try second operand */
     if (ttype(im) == LUA_T_NIL) {
@@ -1021,17 +1021,17 @@ static void call_arith (IMS event)
   callIM(im, 3, 1);
 }
 
-static void concim (Object *o)
+static void concim (TObject *o)
 {
-  Object *im = luaI_getimbyObj(o, IM_CONCAT);
+  TObject *im = luaI_getimbyObj(o, IM_CONCAT);
   if (ttype(im) == LUA_T_NIL)
     lua_error("unexpected type at conversion to string");
   callIM(im, 2, 1);
 }
 
-static void ordim (Object *o, IMS event)
+static void ordim (TObject *o, IMS event)
 {
-  Object *im = luaI_getimbyObj(o, event);
+  TObject *im = luaI_getimbyObj(o, event);
   if (ttype(im) == LUA_T_NIL)
     lua_error("unexpected type at comparison");
   lua_pushstring(luaI_eventname[event]);
@@ -1041,8 +1041,8 @@ static void ordim (Object *o, IMS event)
 static void comparison (lua_Type ttype_less, lua_Type ttype_equal, 
                         lua_Type ttype_great, IMS op)
 {
-  Object *l = top-2;
-  Object *r = top-1;
+  TObject *l = top-2;
+  TObject *r = top-1;
   int result;
   if (ttype(l) == LUA_T_NUMBER && ttype(r) == LUA_T_NUMBER)
     result = (nvalue(l) < nvalue(r)) ? -1 : (nvalue(l) == nvalue(r)) ? 0 : 1;
@@ -1065,21 +1065,21 @@ static void comparison (lua_Type ttype_less, lua_Type ttype_equal,
 
 static void adjust_varargs (StkId first_extra_arg)
 {
-  Object arg;
-  Object *firstelem = stack+first_extra_arg;
+  TObject arg;
+  TObject *firstelem = stack+first_extra_arg;
   int nvararg = top-firstelem;
   int i;
   if (nvararg < 0) nvararg = 0;
   avalue(&arg)  = lua_createarray(nvararg+1);  /* +1 for field 'n' */
   ttype(&arg) = LUA_T_ARRAY;
   for (i=0; i<nvararg; i++) {
-    Object index;
+    TObject index;
     ttype(&index) = LUA_T_NUMBER;
     nvalue(&index) = i+1;
     *(lua_hashdefine(avalue(&arg), &index)) = *(firstelem+i);
   }
   /* store counter in field "n" */ {
-    Object index, extra;
+    TObject index, extra;
     ttype(&index) = LUA_T_STRING;
     tsvalue(&index) = lua_createstring("n");
     ttype(&extra) = LUA_T_NUMBER;
@@ -1177,7 +1177,7 @@ static StkId lua_execute (Byte *pc, StkId base)
 
    case PUSHSELF:
    {
-     Object receiver = *(top-1);
+     TObject receiver = *(top-1);
      Word w;
      get_word(w,pc);
      ttype(top) = LUA_T_STRING; tsvalue(top) = lua_constant[w];
@@ -1219,7 +1219,7 @@ static StkId lua_execute (Byte *pc, StkId base)
    case STORELIST:
    {
     int m, n;
-    Object *arr;
+    TObject *arr;
     if (opcode == STORELIST0) m = 0;
     else m = *(pc++) * FIELDS_PER_FLUSH;
     n = *(pc++);
@@ -1237,7 +1237,7 @@ static StkId lua_execute (Byte *pc, StkId base)
    case STORERECORD:  /* opcode obsolete: supersed by STOREMAP */
    {
     int n = *(pc++);
-    Object *arr = top-n-1;
+    TObject *arr = top-n-1;
     while (n)
     {
      Word w;
@@ -1252,7 +1252,7 @@ static StkId lua_execute (Byte *pc, StkId base)
 
    case STOREMAP: {
      int n = *(pc++);
-     Object *arr = top-(2*n)-1;
+     TObject *arr = top-(2*n)-1;
      while (n--) {
        *(lua_hashdefine (avalue(arr), top-2)) = *(top-1);
        top-=2;
@@ -1309,8 +1309,8 @@ static StkId lua_execute (Byte *pc, StkId base)
 
    case ADDOP:
    {
-    Object *l = top-2;
-    Object *r = top-1;
+    TObject *l = top-2;
+    TObject *r = top-1;
     if (tonumber(r) || tonumber(l))
       call_arith(IM_ADD);
     else
@@ -1323,8 +1323,8 @@ static StkId lua_execute (Byte *pc, StkId base)
 
    case SUBOP:
    {
-    Object *l = top-2;
-    Object *r = top-1;
+    TObject *l = top-2;
+    TObject *r = top-1;
     if (tonumber(r) || tonumber(l))
       call_arith(IM_SUB);
     else
@@ -1337,8 +1337,8 @@ static StkId lua_execute (Byte *pc, StkId base)
 
    case MULTOP:
    {
-    Object *l = top-2;
-    Object *r = top-1;
+    TObject *l = top-2;
+    TObject *r = top-1;
     if (tonumber(r) || tonumber(l))
       call_arith(IM_MUL);
     else
@@ -1351,8 +1351,8 @@ static StkId lua_execute (Byte *pc, StkId base)
 
    case DIVOP:
    {
-    Object *l = top-2;
-    Object *r = top-1;
+    TObject *l = top-2;
+    TObject *r = top-1;
     if (tonumber(r) || tonumber(l))
       call_arith(IM_DIV);
     else
@@ -1368,8 +1368,8 @@ static StkId lua_execute (Byte *pc, StkId base)
     break;
 
    case CONCOP: {
-     Object *l = top-2;
-     Object *r = top-1;
+     TObject *l = top-2;
+     TObject *r = top-1;
      if (tostring(l))  /* first argument is not a string */
        concim(l);
      else if (tostring(r))  /* second argument is not a string */