lua

commit 89a9c3628122dccf5297460646038d4def1a098c
parent 8f2fba587784673332976db8a6f48c01349b6e33
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Wed, 19 Apr 2000 10:36:03 -0300

no more `register' declarations: leave it to the compiler.

Diffstat:
M
lvm.c
 | 
10
+++++-----
M
lvm.h
 | 
4
++--

2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/lvm.c b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 1.102 2000/04/13 16:51:01 roberto Exp roberto $
+** $Id: lvm.c,v 1.103 2000/04/14 17:45:25 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -334,10 +334,10 @@ static void adjust_varargs (lua_State *L, StkId base, int nfixargs) {
 ** Executes the given Lua function. Parameters are between [base,top).
 ** Returns n such that the the results are between [n,top).
 */
-StkId luaV_execute (lua_State *L, const Closure *cl, register StkId base) {
+StkId luaV_execute (lua_State *L, const Closure *cl, StkId base) {
   const Proto *tf = cl->f.l;
-  register StkId top;  /* keep top local, for performance */
-  register const Instruction *pc = tf->code;
+  StkId top;  /* keep top local, for performance */
+  const Instruction *pc = tf->code;
   TString **kstr = tf->kstr;
   luaD_checkstack(L, tf->maxstacksize+EXTRA_STACK);
   if (tf->is_vararg) {  /* varargs? */
@@ -348,7 +348,7 @@ StkId luaV_execute (lua_State *L, const Closure *cl, register StkId base) {
     luaD_adjusttop(L, base, tf->numparams);
   top = L->top;
   for (;;) {
-    register Instruction i = *pc++;
+    Instruction i = *pc++;
     switch (GET_OPCODE(i)) {
 
       case OP_END:
diff --git a/lvm.h b/lvm.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.h,v 1.19 2000/03/10 18:37:44 roberto Exp roberto $
+** $Id: lvm.h,v 1.20 2000/03/29 20:19:20 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -26,7 +26,7 @@ void luaV_settable (lua_State *L, StkId t, StkId top);
 void luaV_rawsettable (lua_State *L, StkId t);
 void luaV_getglobal (lua_State *L, GlobalVar *gv, StkId top);
 void luaV_setglobal (lua_State *L, GlobalVar *gv, StkId top);
-StkId luaV_execute (lua_State *L, const Closure *cl, register StkId base);
+StkId luaV_execute (lua_State *L, const Closure *cl, StkId base);
 void luaV_Cclosure (lua_State *L, lua_CFunction c, int nelems);
 void luaV_Lclosure (lua_State *L, Proto *l, int nelems);
 int luaV_lessthan (lua_State *L, const TObject *l, const TObject *r, StkId top);