Revision: 612
http://sourceforge.net/p/euslisp/code/612
Author: k-okada
Date: 2013-04-20 13:20:52 +0000 (Sat, 20 Apr 2013)
Log Message:
-----------
expand MAXSTACK from 65536 to 8388608 and KEYWORDPARAMETERLIMIT from 32 to 128
Modified Paths:
--------------
trunk/EusLisp/lisp/c/eus.c
trunk/EusLisp/lisp/c/eus.h
Modified: trunk/EusLisp/lisp/c/eus.c
===================================================================
--- trunk/EusLisp/lisp/c/eus.c 2013-04-19 05:11:14 UTC (rev 611)
+++ trunk/EusLisp/lisp/c/eus.c 2013-04-20 13:20:52 UTC (rev 612)
@@ -1092,16 +1092,18 @@
register context *ctx;
{ pointer argv, p, in;
int i,j;
- char *eusdir, *eusrt;
+ char *eusdir, *archdir, *eusrt;
char fname[1024];
extern pointer SRCLOAD();
/* reset stack pointer and frame pointers*/
j=(int)eussetjmp(topjbuf);
- eusdir=(char *)getenv("EUSDIR");
- if (eusdir==NULL) {
- fprintf(stderr, "EUSDIR is not setenved, assuming /usr/local/eus\n");
- eusdir= "/usr/local/eus/"; }
+ fprintf(stderr, "set ARCHDIR to Linux64\n");
+ archdir= "Linux64";
+ setenv("ARCHDIR",archdir,1);
+ fprintf(stderr, "set EUSDIR to /home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus\n");
+ eusdir= "/home/k-okada/ros/fuerte/jsk-ros-pkg/euslisp/jskeus/eus";
+ setenv("EUSDIR",eusdir,1);
sprintf(fname,"%s/lib/eus.init.l", eusdir);
#if !Solaris2 || GCC
Modified: trunk/EusLisp/lisp/c/eus.h
===================================================================
--- trunk/EusLisp/lisp/c/eus.h 2013-04-19 05:11:14 UTC (rev 611)
+++ trunk/EusLisp/lisp/c/eus.h 2013-04-20 13:20:52 UTC (rev 612)
@@ -139,10 +139,10 @@
fib(29) nealy equals to 2.4M,
fib(30) to 4M words*/
#define MAXTHRBUDDY 6 /*small free cells cached thread-locally*/
-#define MAXSTACK 65536 /*can be expanded by sys:newstack*/
+#define MAXSTACK 8388608 /* patched: default stack size 16bit -> 23bit, can be expanded by sys:newstack*/
#define SYMBOLHASH 60 /*initial obvector size in package*/
#define MAXCLASS 4096 /* by M.Inaba from 64 */
-#define KEYWORDPARAMETERLIMIT 32 /*determined by bits in a long word*/
+#define KEYWORDPARAMETERLIMIT 128 /* patched: default keyword size 32->128 */
#define ARRAYRANKLIMIT 7 /*minimal requirement for CommonLisp*/
#define MAXTHREAD 64 /*maximum number of threads*/
#define MAX_SPECIALS 512 /*maximum number of special variables*/
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
