mirrors
/
lua
mirror of https://github.com/lua/lua
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

extra options in 'testC' for newmetatable and testudata

This commit is contained in:
Roberto Ierusalimschy 2008-06-12 11:20:49 -03:00
parent 5fa55df2ca
commit 92a0d4c67f
1 changed files with 8 additions and 1 deletions
Show Stats 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.47 2008/02/19 18:55:09 roberto Exp roberto $
** $Id: ltests.c,v 2.48 2008/04/02 17:38:54 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@ -1010,6 +1010,13 @@ static int testC (lua_State *L) {
if (!lua_checkstack(L1, getnum))
luaL_error(L, "C stack overflow");
}
else if EQ("newmetatable") {
lua_pushboolean(L1, luaL_newmetatable(L1, getname));
}
else if EQ("testudata") {
int i = getindex;
lua_pushboolean(L1, luaL_testudata(L1, i, getname) != NULL);
}
else if EQ("throw") {
#if defined(__cplusplus)
static struct X { int x; } x;