[ruby-dev:13004] rb_gc_stack_start

なかだです。

  __buitin_frame_address() のバグに関しては、どうやら gcc 3.0
では直ってるようです。__buitin_frame_address() を使ってる関数で
は -fomit-frame-pointer が off になるみたい。

  本題の方ですが、こういうのではどうでしょうか。GNU libc と
WIN32 限定ですが。


Index: configure.in
===================================================================
RCS file: /cvs/ruby/src/ruby/configure.in,v
retrieving revision 1.84
diff -u -2 -p -r1.84 configure.in
--- configure.in	2001/04/01 16:53:41	1.84
+++ configure.in	2001/04/18 22:10:17
@@ -275,4 +275,14 @@ LIBOBJS="$save_LIBOBJS"
 AC_STRUCT_ST_RDEV
 
+AC_CACHE_CHECK(for stack end address, rb_cv_stack_end_address,
+[cv_stack_end_address=no
+for addr in __libc_stack_end _SEND; do
+  AC_TRY_LINK(
+    [void *stack_end, *$addr;],
+    [stack_end = $addr;],
+    [rb_cv_stack_end_address="$addr"; break])
+done])
+AC_DEFINE_UNQUOTED(STACK_END_ADDRESS, $rb_cv_stack_end_address)
+
 dnl Checks for library functions.
 AC_TYPE_GETGROUPS
Index: gc.c
===================================================================
RCS file: /cvs/ruby/src/ruby/gc.c,v
retrieving revision 1.65
diff -u -2 -p -r1.65 gc.c
--- gc.c	2001/03/26 08:57:10	1.65
+++ gc.c	2001/04/18 22:49:44
@@ -1017,7 +1017,13 @@ Init_stack(addr)
     VALUE *addr;
 {
-#if defined(__human68k__)
-    extern void *_SEND;
-    rb_gc_stack_start = _SEND;
+#if defined(_WIN32)
+    MEMORY_BASIC_INFORMATION m;
+    memset(&m, 0, sizeof(m));
+    VirtualQuery(&m, &m, sizeof(m));
+    /* assume stack growing downward */
+    rb_gc_stack_start = (VALUE *)((char *)m.BaseAddress + m.RegionSize);
+#elif defined(STACK_END_ADDRESS)
+    extern void *STACK_END_ADDRESS;
+    rb_gc_stack_start = STACK_END_ADDRESS;
 #elif defined(__GNUC__) && defined(USE_BUILTIN_FRAME_ADDRESS)
     rb_gc_stack_start = __builtin_frame_address(2);


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦