lua

commit bad6365540ad9e17e51137a6797ff196d6b8d2a1
parent 91f34fb05caa9590cd19a986e865a93361b1c398
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon,  8 May 2000 17:48:43 -0300

details

Diffstat:
M
lapi.c
 | 
21
+++++++++------------
M
lapi.h
 | 
3
+--
M
ldebug.c
 | 
4
++--

3 files changed, 12 insertions(+), 16 deletions(-)
diff --git a/lapi.c b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.78 2000/04/17 19:23:12 roberto Exp roberto $
+** $Id: lapi.c,v 1.79 2000/05/08 19:32:53 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -44,13 +44,6 @@ lua_Object luaA_putluaObject (lua_State *L, const TObject *o) {
 }
 
 
-lua_Object luaA_putObjectOnTop (lua_State *L) {
-  luaD_openstack(L, L->Cstack.base);
-  *L->Cstack.base++ = *(--L->top);
-  return L->Cstack.base-1;
-}
-
-
 static void top2LC (lua_State *L, int n) {
   /* Put the `n' elements on the top as the Lua2C contents */
   L->Cstack.base = L->top;  /* new base */
@@ -61,7 +54,11 @@ static void top2LC (lua_State *L, int n) {
 
 lua_Object lua_pop (lua_State *L) {
   luaA_checkCargs(L, 1);
-  return luaA_putObjectOnTop(L);
+  if (L->Cstack.base != L->top-1) {
+    luaD_openstack(L, L->Cstack.base);
+    *L->Cstack.base = *(--L->top);
+  }
+  return L->Cstack.base++;
 }
 
 
@@ -112,14 +109,14 @@ lua_Object lua_settagmethod (lua_State *L, int tag, const char *event) {
   if ((ttype(method) != TAG_NIL) && (*lua_type(L, method) != 'f'))
     lua_error(L, "Lua API error - tag method must be a function or nil");
   luaT_settagmethod(L, tag, event, method);
-  return luaA_putObjectOnTop(L);
+  return lua_pop(L);
 }
 
 
 lua_Object lua_gettable (lua_State *L) {
   luaA_checkCargs(L, 2);
   luaV_gettable(L, L->top--);
-  return luaA_putObjectOnTop(L);
+  return lua_pop(L);
 }
 
 
@@ -163,7 +160,7 @@ lua_Object lua_createtable (lua_State *L) {
 
 lua_Object lua_getglobal (lua_State *L, const char *name) {
   luaV_getglobal(L, luaS_new(L, name), L->top++);
-  return luaA_putObjectOnTop(L);
+  return lua_pop(L);
 }
 
 
diff --git a/lapi.h b/lapi.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.h,v 1.16 2000/03/29 20:19:20 roberto Exp roberto $
+** $Id: lapi.h,v 1.17 2000/05/08 19:32:53 roberto Exp roberto $
 ** Auxiliary functions from Lua API
 ** See Copyright Notice in lua.h
 */
@@ -15,6 +15,5 @@ void luaA_checkCargs (lua_State *L, int nargs);
 void luaA_pushobject (lua_State *L, const TObject *o);
 int luaA_next (lua_State *L, const Hash *t, int i);
 lua_Object luaA_putluaObject (lua_State *L, const TObject *o);
-lua_Object luaA_putObjectOnTop (lua_State *L);
 
 #endif
diff --git a/ldebug.c b/ldebug.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldebug.c,v 1.16 2000/03/30 20:55:50 roberto Exp roberto $
+** $Id: ldebug.c,v 1.17 2000/05/08 19:32:53 roberto Exp roberto $
 ** Debug Interface
 ** See Copyright Notice in lua.h
 */
@@ -197,7 +197,7 @@ int lua_getinfo (lua_State *L, const char *what, lua_Debug *ar) {
       case 'f':
         setnormalized(L->top, func);
         incr_top;
-        ar->func = luaA_putObjectOnTop(L);
+        ar->func = lua_pop(L);
         break;
       default: return 0;  /* invalid option */
     }