From ce23901f0445ad62f20a445a0f6f53d928d81666 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 22 Mar 1996 16:12:15 -0300
Subject: smaller limit to stack size (otherwise C stack can finish first)

---
 opcode.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/opcode.c b/opcode.c
index 539f2cf3..ffa1c844 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
 ** TecCGraf - PUC-Rio
 */
 
-char *rcs_opcode="$Id: opcode.c,v 3.64 1996/03/21 16:31:32 roberto Exp roberto $";
+char *rcs_opcode="$Id: opcode.c,v 3.65 1996/03/21 18:55:02 roberto Exp roberto $";
 
 #include <setjmp.h>
 #include <stdio.h>
@@ -25,6 +25,10 @@ char *rcs_opcode="$Id: opcode.c,v 3.64 1996/03/21 16:31:32 roberto Exp roberto $
 
 #define STACK_SIZE 	128
 
+#ifndef STACK_LIMIT
+#define STACK_LIMIT     6000
+#endif
+
 typedef int StkId;  /* index to stack elements */
 
 static Object initial_stack;
@@ -93,7 +97,7 @@ static void growstack (void)
    lua_initstack();
  else
  {
-  static int limit = 10000;
+  static int limit = STACK_LIMIT;
   StkId t = top-stack;
   Long stacksize = stackLimit - stack;
   stacksize = growvector(&stack, stacksize, Object, stackEM, limit+100);
-- 
cgit v1.2.3-55-g6feb