[ruby-dev:13005] Re: rb_gc_stack_start

なかだです。

At Thu, 19 Apr 2001 13:15:59 +0900,
Nobuyoshi-Nakada wrote:
>   本題の方ですが、こういうのではどうでしょうか。GNU libc と
> WIN32 限定ですが。

  早速 WIN32 の方がバグってました。rb_gc_mark_locations() は境
界じゃなくて最初と最後の有効なアドレスを渡すというのを忘れてま
した。


Index: gc.c
===================================================================
RCS file: /cvs/ruby/src/ruby/gc.c,v
retrieving revision 1.48.2.12
diff -u -2 -p -r1.48.2.12 gc.c
--- gc.c	2001/04/10 06:09:00	1.48.2.12
+++ gc.c	2001/04/19 07:54:57
@@ -1021,7 +1021,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) - 1;
+#elif defined(STACK_END_ADDRESS)
+    extern void *STACK_END_ADDRESS;
+    rb_gc_stack_start = (VALUE *)STACK_END_ADDRESS;
 #elif defined(__GNUC__) && defined(__i386__)
     rb_gc_stack_start = __builtin_frame_address(2);


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