[ruby-dev:15186] Re: make test fails at gc #2 test on NetBSD

Ryo HAYASAKAさんの<[e-mail]>から
> $ ./ruby -v
> ruby 1.7.2 (2001-11-15) [i386-netbsdelf]
> $ ./ruby sample/test.rb 
> assignment
> ok 1
> ok 2
> ...
> gc
> ok 1
> Illegal instruction (core dumped)
> NetBSD-1.5.2/current で起きます. でも Linux や Solaris では起きない
> みたいです. ruby 1.7.2 (2001-11-08) のバージョンでは起きません.

Mac OS X 10.1で再現しました。
STACK_LEVEL_MAXの値のセットの仕方をeval.cと完全に同じようにすると
直りました。
原因確認のためのパッチです。
(CVS最新に対するパッチであり、私が送った[ruby-dev:15160]の変更は
含んでいません。)


--- gc.c.orig	Tue Nov 13 17:19:51 2001
+++ gc.c	Fri Nov 16 11:40:00 2001
@@ -402,14 +402,40 @@
     }
 }
 
-#if defined(DJGPP)
-# define STACK_LEVEL_MAX 65535;
-#elif defined(__human68k__)
+#ifdef HAVE_SYS_TIME_H
+# include <sys/time.h>
+#else
+#ifndef NT
+struct timeval {
+        long    tv_sec;         /* seconds */
+        long    tv_usec;        /* and microseconds */
+};
+#endif /* NT */
+#endif
+
+#ifdef HAVE_SYS_RESOURCE_H
+#include <sys/resource.h>
+#endif
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+#ifdef DJGPP
+static unsigned int STACK_LEVEL_MAX = 65535;
+#else
+#ifdef __human68k__
 extern unsigned int _stacksize;
 # define STACK_LEVEL_MAX (_stacksize - 4096)
+# undef HAVE_GETRLIMIT
+#else
+#ifdef HAVE_GETRLIMIT
+static unsigned int STACK_LEVEL_MAX = 655300;
 #else
 # define STACK_LEVEL_MAX 655300
 #endif
+#endif
+#endif
 
 #ifdef C_ALLOCA
 # define SET_STACK_END VALUE stack_end; alloca(0);
@@ -1171,6 +1197,19 @@
     if (!addr) addr = &start;
     rb_gc_stack_start = addr;
 #endif
+
+#ifdef HAVE_GETRLIMIT
+    {
+	struct rlimit rlim;
+
+	if (getrlimit(RLIMIT_STACK, &rlim) == 0) {
+	    double space = (double)rlim.rlim_cur*0.2;
+
+	    if (space > 1024*1024) space = 1024*1024;
+	    STACK_LEVEL_MAX = (rlim.rlim_cur - space) / sizeof(VALUE);
+	}
+    }
+#endif
 }
 
 void
--
小迫＠ソフネック   渋谷区恵比寿1-15-1