Make various limits configurable (from TinyScheme SVN r109)

This commit is contained in:
Kevin Cozens 2016-02-25 12:39:36 -05:00
parent 7297ace6bf
commit 3ef6033276
1 changed files with 10 additions and 0 deletions

View File

@ -64,8 +64,12 @@ int retcode;
int tracing; int tracing;
#ifndef CELL_SEGSIZE
#define CELL_SEGSIZE 25000 /* # of cells in one segment */ #define CELL_SEGSIZE 25000 /* # of cells in one segment */
#endif
#ifndef CELL_NSEGMENT
#define CELL_NSEGMENT 50 /* # of segments for cells */ #define CELL_NSEGMENT 50 /* # of segments for cells */
#endif
char *alloc_seg[CELL_NSEGMENT]; char *alloc_seg[CELL_NSEGMENT];
pointer cell_seg[CELL_NSEGMENT]; pointer cell_seg[CELL_NSEGMENT];
int last_cell_seg; int last_cell_seg;
@ -116,7 +120,9 @@ pointer outport;
pointer save_inport; pointer save_inport;
pointer loadport; pointer loadport;
#ifndef MAXFIL
#define MAXFIL 64 #define MAXFIL 64
#endif
port load_stack[MAXFIL]; /* Stack of open files for port -1 (LOADing) */ port load_stack[MAXFIL]; /* Stack of open files for port -1 (LOADing) */
int nesting_stack[MAXFIL]; int nesting_stack[MAXFIL];
int file_i; int file_i;
@ -125,9 +131,13 @@ int nesting;
char gc_verbose; /* if gc_verbose is not zero, print gc status */ char gc_verbose; /* if gc_verbose is not zero, print gc status */
char no_memory; /* Whether mem. alloc. has failed */ char no_memory; /* Whether mem. alloc. has failed */
#ifndef LINESIZE
#define LINESIZE 1024 #define LINESIZE 1024
#endif
char linebuff[LINESIZE]; char linebuff[LINESIZE];
#ifndef STRBUFFSIZE
#define STRBUFFSIZE 1024 #define STRBUFFSIZE 1024
#endif
char strbuff[STRBUFFSIZE]; char strbuff[STRBUFFSIZE];
FILE *tmpfp; FILE *tmpfp;