lua

A copy of the Lua development repository
Log | Files | Refs | README

commit bcc5f1406b210afdd37a508c4d44093fb80c5742
parent b1b752fb2ba8ad64a1defe7849202052be193fbb
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 28 Apr 2003 16:57:44 -0300

test function for lua_setgcthreshold

Diffstat:
Mltests.c | 9++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/ltests.c b/ltests.c @@ -1,5 +1,5 @@ /* -** $Id: ltests.c,v 1.157 2003/04/03 13:35:34 roberto Exp roberto $ +** $Id: ltests.c,v 1.158 2003/04/07 14:35:00 roberto Exp roberto $ ** Internal Module for Debugging of the Lua Implementation ** See Copyright Notice in lua.h */ @@ -253,6 +253,12 @@ static int get_limits (lua_State *L) { } +static int setgcthreshold (lua_State *L) { + lua_setgcthreshold(L, luaL_checkint(L, 1)); + return 0; +} + + static int mem_query (lua_State *L) { if (lua_isnone(L, 1)) { lua_pushintegral(L, memdebug_total); @@ -808,6 +814,7 @@ static const struct luaL_reg tests_funcs[] = { {"doremote", doremote}, {"log2", log2_aux}, {"int2fb", int2fb_aux}, + {"setgcthreshold", setgcthreshold}, {"totalmem", mem_query}, {"resume", coresume}, {"setyhook", setyhook},