nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2008-02-11 16:04:26 -02:00
parent 5f0a2f6248
commit dcee7d2fe0
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
ltests.c
View File

@@ -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 ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -925,6 +925,9 @@ static int testC (lua_State *L) {
else if EQ("pushbool") { else if EQ("pushbool") {
lua_pushboolean(L1, getnum); lua_pushboolean(L1, getnum);
} }
else if EQ("newtable") {
lua_newtable(L1);
}
else if EQ("newuserdata") { else if EQ("newuserdata") {
lua_newuserdata(L1, getnum); lua_newuserdata(L1, getnum);
} }
@@ -998,6 +1001,10 @@ static int testC (lua_State *L) {
int i = getindex; int i = getindex;
lua_pushinteger(L1, lua_objlen(L1, i)); 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") { else if EQ("throw") {
#if defined(__cplusplus) #if defined(__cplusplus)
static struct X { int x; } x; static struct X { int x; } x;