explicit stack control in the API

1 files changed, 5 insertions, 1 deletions

diff --git a/lapi.c b/lapi.c
index 5a000b49..e3d4a906 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.88 2000/08/28 17:57:04 roberto Exp roberto $
+** $Id: lapi.c,v 1.89 2000/08/29 14:52:27 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -45,6 +45,10 @@ void luaA_pushobject (lua_State *L, const TObject *o) {
   incr_top;
 }
 
+int lua_stackspace (lua_State *L) {
+  return (L->stack_last - L->top);
+}
+
 
 
 /*