lua

commit dcee7d2fe035067f7042057022089c4b73be3ed7
parent 5f0a2f6248941f758d0b1cee77a8890ff8b05c68
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 11 Feb 2008 16:04:03 -0200

new instructions 'newtable' and 'checkstack' in 'testC'

Diffstat:
M
ltests.c
 | 
9
++++++++-

1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/ltests.c b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 2.43 2007/06/21 13:48:04 roberto Exp roberto $
+** $Id: ltests.c,v 2.44 2007/11/12 16:28:45 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -925,6 +925,9 @@ static int testC (lua_State *L) {
     else if EQ("pushbool") {
       lua_pushboolean(L1, getnum);
     }
+    else if EQ("newtable") {
+      lua_newtable(L1);
+    }
     else if EQ("newuserdata") {
       lua_newuserdata(L1, getnum);
     }
@@ -998,6 +1001,10 @@ static int testC (lua_State *L) {
       int i = getindex;
       lua_pushinteger(L1, lua_objlen(L1, i));
     }
+    else if EQ("checkstack") {
+      if (!lua_checkstack(L1, getnum))
+        luaL_error(L, "C stack overflow");
+    }
     else if EQ("throw") {
 #if defined(__cplusplus)
 static struct X { int x; } x;