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

a few more instructions to testC (func2udata and getfield)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2009-09-30 17:49:25 -03:00
parent 0ac3d07ea6
commit d119cf3035
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ltests.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 2.72 2009/09/17 18:04:21 roberto Exp roberto $ ** $Id: ltests.c,v 2.73 2009/09/28 16:32:50 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
*/ */
@@ -916,6 +916,10 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
else if EQ("tocfunction") { else if EQ("tocfunction") {
lua_pushcfunction(L1, lua_tocfunction(L1, getindex)); lua_pushcfunction(L1, lua_tocfunction(L1, getindex));
} }
else if EQ("func2udata") {
lua_CFunction func = lua_tocfunction(L1, getindex);
lua_pushlightuserdata(L1, &func);
}
else if EQ("return") { else if EQ("return") {
return getnum; return getnum;
} }
@@ -970,6 +974,10 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
else if EQ("gettable") { else if EQ("gettable") {
lua_gettable(L1, getindex); lua_gettable(L1, getindex);
} }
else if EQ("getfield") {
int t = getindex;
lua_getfield(L1, t, getname);
}
else if EQ("rawgeti") { else if EQ("rawgeti") {
int t = getindex; int t = getindex;
lua_rawgeti(L1, t, getnum); lua_rawgeti(L1, t, getnum);