diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-09-21 13:10:13 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-09-21 13:10:13 -0300 |
commit | 17374d2daa1262995681442e8bf42cb7be179299 (patch) | |
tree | dea94f469a9853ae1e14e445266a4c0b4ac62107 /lapi.c | |
parent | 04265655a8cda2d3402c339fc388f0b225c142fb (diff) | |
download | lua-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.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -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 | ||
88 | lua_Object put_luaObjectonTop (void) { | 88 | lua_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 | ||
103 | lua_Object lua_pop (void) { | 103 | lua_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) { | |||
137 | lua_Object lua_settagmethod (int tag, const char *event) { | 137 | lua_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) { | |||
153 | lua_Object lua_gettable (void) { | 153 | lua_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) { | |||
192 | lua_Object lua_getglobal (const char *name) { | 192 | lua_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 | ||