new facilities to test memory overflow in main.c

2 files changed, 16 insertions, 2 deletions

diff --git a/ltests.c b/ltests.c
index f1f50364..6846841d 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 1.145 2002/11/18 15:24:27 roberto Exp roberto $
+** $Id: ltests.c,v 1.146 2002/11/25 17:47:13 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -784,4 +784,13 @@ int luaB_opentests (lua_State *L) {
   return 0;
 }
 
+
+#undef main
+int main (int argc, char *argv[]) {
+  char *limit = getenv("MEMLIMIT");
+  if (limit)
+    memdebug_memlimit = strtoul(limit, NULL, 10);
+  l_main(argc, argv);
+}
+
 #endif
diff --git a/ltests.h b/ltests.h
index 4f61920a..44242781 100644
--- a/ltests.h
+++ b/ltests.h
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.h,v 1.18 2002/11/12 14:34:18 roberto Exp roberto $
+** $Id: ltests.h,v 1.19 2002/11/19 17:42:32 roberto Exp roberto $
 ** Internal Header for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -54,6 +54,11 @@ int luaB_opentests (lua_State *L);
 #define LUA_EXTRALIBS { "tests", luaB_opentests },
 
 
+/* real main will be defined at `ltests.c' */
+int l_main (int argc, char *argv[]);
+#define main    l_main
+
+
 
 /* change some sizes to give some bugs a chance */