Increase default stack sizes

This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-02 09:36:02 +02:00
parent ff71417821
commit a86e4bfb5a

View file

@ -327,10 +327,10 @@ typedef unsigned @CL_FIXNUM_TYPE@ cl_hashkey;
/*
* The lisp environment has several stacks. These are their limits:
*/
#define BDSSIZE 2048 /* Size of Binding Stack */
#define BDSGETA 16 /* Safety zone of BDS */
#define FRSSIZE 1024 /* Size of Frame Stack */
#define FRSGETA 16 /* Safety zone of FRS */
#define BDSSIZE 8192 /* Size of Binding Stack */
#define BDSGETA 128 /* Safety zone of BDS */
#define FRSSIZE 2048 /* Size of Frame Stack */
#define FRSGETA 128 /* Safety zone of FRS */
#ifdef THREADS
#define CSSIZE 7500 /* Size of C Stack of each thread */
#define CSGETA 500