From dcee7d2fe035067f7042057022089c4b73be3ed7 Mon Sep 17 00:00:00 2001 From: Roberto Ierusalimschy Date: Mon, 11 Feb 2008 16:04:26 -0200 Subject: [PATCH] new instructions 'newtable' and 'checkstack' in 'testC' --- ltests.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/ltests.c b/ltests.c index 2720516c..e0a7f2ae 100644 --- 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;