diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-09-25 13:22:42 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-09-25 13:22:42 -0300 |
commit | 13635f7de7c51b26c447ce444a2c045cba83fe7c (patch) | |
tree | b9461626b368e8ca1161b01e2771447898fdecd8 /ltests.c | |
parent | d8a442206d2845e1749cc36dd59208428ef1d117 (diff) | |
download | lua-13635f7de7c51b26c447ce444a2c045cba83fe7c.tar.gz lua-13635f7de7c51b26c447ce444a2c045cba83fe7c.tar.bz2 lua-13635f7de7c51b26c447ce444a2c045cba83fe7c.zip |
new version of protected execution
Diffstat (limited to 'ltests.c')
-rw-r--r-- | ltests.c | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ltests.c,v 1.42 2000/09/14 14:09:31 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.43 2000/09/25 14:48:42 roberto Exp roberto $ |
3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -422,11 +422,19 @@ static int testC (lua_State *L) { | |||
422 | else if EQ("concat") { | 422 | else if EQ("concat") { |
423 | lua_concat(L, getnum); | 423 | lua_concat(L, getnum); |
424 | } | 424 | } |
425 | else if EQ("call") { | 425 | else if EQ("rawcall") { |
426 | int narg = getnum; | 426 | int narg = getnum; |
427 | int nres = getnum; | 427 | int nres = getnum; |
428 | lua_rawcall(L, narg, nres); | 428 | lua_rawcall(L, narg, nres); |
429 | } | 429 | } |
430 | else if EQ("call") { | ||
431 | int narg = getnum; | ||
432 | int nres = getnum; | ||
433 | lua_call(L, narg, nres); | ||
434 | } | ||
435 | else if EQ("dostring") { | ||
436 | lua_dostring(L, luaL_check_string(L, getnum)); | ||
437 | } | ||
430 | else if EQ("type") { | 438 | else if EQ("type") { |
431 | lua_pushstring(L, lua_type(L, getnum)); | 439 | lua_pushstring(L, lua_type(L, getnum)); |
432 | } | 440 | } |