From bcc5f1406b210afdd37a508c4d44093fb80c5742 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 28 Apr 2003 16:58:06 -0300
Subject: test function for lua_setgcthreshold

---
 ltests.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'ltests.c')

diff --git a/ltests.c b/ltests.c
index 71006bb5..b3f6d56b 100644
--- 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},
-- 
cgit v1.2.3-55-g6feb