[Euslisp-commit] SF.net SVN: euslisp:[612] trunk/EusLisp/lisp/c

[<k-...@us...>]

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.