aboutsummaryrefslogtreecommitdiff
path: root/lapi.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-09-21 13:10:13 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-09-21 13:10:13 -0300
commit17374d2daa1262995681442e8bf42cb7be179299 (patch)
treedea94f469a9853ae1e14e445266a4c0b4ac62107 /lapi.c
parent04265655a8cda2d3402c339fc388f0b225c142fb (diff)
downloadlua-17374d2daa1262995681442e8bf42cb7be179299.tar.gz
lua-17374d2daa1262995681442e8bf42cb7be179299.tar.bz2
lua-17374d2daa1262995681442e8bf42cb7be179299.zip
`put_luaObjectonTop' must be public (to be used by lfback.c), and so
it must have a "public" name: `luaA_putObjectOnTop'
Diffstat (limited to 'lapi.c')
-rw-r--r--lapi.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/lapi.c b/lapi.c
index bc1b2789..92a841d1 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lapi.c,v 1.48 1999/08/16 20:52:00 roberto Exp roberto $ 2** $Id: lapi.c,v 1.49 1999/09/20 14:57:29 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*/
@@ -85,7 +85,7 @@ static lua_Object put_luaObject (const TObject *o) {
85} 85}
86 86
87 87
88lua_Object put_luaObjectonTop (void) { 88lua_Object luaA_putObjectOnTop (void) {
89 luaD_openstack((L->stack.top-L->stack.stack)-L->Cstack.base); 89 luaD_openstack((L->stack.top-L->stack.stack)-L->Cstack.base);
90 L->stack.stack[L->Cstack.base++] = *(--L->stack.top); 90 L->stack.stack[L->Cstack.base++] = *(--L->stack.top);
91 return L->Cstack.base; /* this is +1 real position (see Ref) */ 91 return L->Cstack.base; /* this is +1 real position (see Ref) */
@@ -102,7 +102,7 @@ static void top2LC (int n) {
102 102
103lua_Object lua_pop (void) { 103lua_Object lua_pop (void) {
104 checkCparams(1); 104 checkCparams(1);
105 return put_luaObjectonTop(); 105 return luaA_putObjectOnTop();
106} 106}
107 107
108 108
@@ -137,7 +137,7 @@ lua_Object lua_gettagmethod (int tag, const char *event) {
137lua_Object lua_settagmethod (int tag, const char *event) { 137lua_Object lua_settagmethod (int tag, const char *event) {
138 checkCparams(1); 138 checkCparams(1);
139 luaT_settagmethod(tag, event, L->stack.top-1); 139 luaT_settagmethod(tag, event, L->stack.top-1);
140 return put_luaObjectonTop(); 140 return luaA_putObjectOnTop();
141} 141}
142 142
143 143
@@ -153,7 +153,7 @@ lua_Object lua_seterrormethod (void) {
153lua_Object lua_gettable (void) { 153lua_Object lua_gettable (void) {
154 checkCparams(2); 154 checkCparams(2);
155 luaV_gettable(); 155 luaV_gettable();
156 return put_luaObjectonTop(); 156 return luaA_putObjectOnTop();
157} 157}
158 158
159 159
@@ -163,7 +163,7 @@ lua_Object lua_rawgettable (void) {
163 lua_error("indexed expression not a table in rawgettable"); 163 lua_error("indexed expression not a table in rawgettable");
164 *(L->stack.top-2) = *luaH_get(avalue(L->stack.top-2), L->stack.top-1); 164 *(L->stack.top-2) = *luaH_get(avalue(L->stack.top-2), L->stack.top-1);
165 --L->stack.top; 165 --L->stack.top;
166 return put_luaObjectonTop(); 166 return luaA_putObjectOnTop();
167} 167}
168 168
169 169
@@ -192,7 +192,7 @@ lua_Object lua_createtable (void) {
192lua_Object lua_getglobal (const char *name) { 192lua_Object lua_getglobal (const char *name) {
193 luaD_checkstack(2); /* may need that to call T.M. */ 193 luaD_checkstack(2); /* may need that to call T.M. */
194 luaV_getglobal(luaS_new(name)); 194 luaV_getglobal(luaS_new(name));
195 return put_luaObjectonTop(); 195 return luaA_putObjectOnTop();
196} 196}
197 197
198 198