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

new function 'printcode'

This commit is contained in:
Roberto Ierusalimschy 2017-10-01 16:17:51 -03:00
parent bc1b0733b8
commit 7f9a32ad85
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 2.222 2017/06/27 18:32:49 roberto Exp roberto $ ** $Id: ltests.c,v 2.223 2017/06/29 15:06:44 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
*/ */
@ -595,6 +595,22 @@ static int listcode (lua_State *L) {
} }
static int printcode (lua_State *L) {
int pc;
Proto *p;
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1),
1, "Lua function expected");
p = getproto(obj_at(L, 1));
printf("maxstack: %d\n", p->maxstacksize);
printf("numparams: %d\n", p->numparams);
for (pc=0; pc<p->sizecode; pc++) {
char buff[100];
printf("%d\t%s\n", pc + 1, buildop(p, pc, buff));
}
return 0;
}
static int listk (lua_State *L) { static int listk (lua_State *L) {
Proto *p; Proto *p;
int i; int i;
@ -1634,6 +1650,7 @@ static const struct luaL_Reg tests_funcs[] = {
{"log2", log2_aux}, {"log2", log2_aux},
{"limits", get_limits}, {"limits", get_limits},
{"listcode", listcode}, {"listcode", listcode},
{"printcode", printcode},
{"listk", listk}, {"listk", listk},
{"listlocals", listlocals}, {"listlocals", listlocals},
{"loadlib", loadlib}, {"loadlib", loadlib},