nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

smaller limit to stack size (otherwise C stack can finish first)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1996-03-22 16:12:15 -03:00
parent df1ee1fb1c
commit ce23901f04
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
opcode.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** 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 <setjmp.h>
#include <stdio.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 #define STACK_SIZE 128
#ifndef STACK_LIMIT
#define STACK_LIMIT 6000
#endif
typedef int StkId; /* index to stack elements */ typedef int StkId; /* index to stack elements */
static Object initial_stack; static Object initial_stack;
@@ -93,7 +97,7 @@ static void growstack (void)
lua_initstack(); lua_initstack();
else else
{ {
static int limit = 10000; static int limit = STACK_LIMIT;
StkId t = top-stack; StkId t = top-stack;
Long stacksize = stackLimit - stack; Long stacksize = stackLimit - stack;
stacksize = growvector(&stack, stacksize, Object, stackEM, limit+100); stacksize = growvector(&stack, stacksize, Object, stackEM, limit+100);