ruby-core

Hi,

At Fri, 2 Jul 2004 01:12:45 +0900,
Mathieu Bouchard wrote in [ruby-core:03114]:
> On Fri, 25 Jun 2004, Michal Rokos wrote:
> > On Thursday 24 of June 2004 22:23, Mathieu Bouchard wrote:
> > > On Wed, 23 Jun 2004, Yukihiro Matsumoto wrote:
> > > > I don't think so.  Go ahead, or we will know if there's unseen
> > > > reason.
> > > If it's going to be global, it'd be better to have it start with the
> > > "rb_" prefix...
> > I assume you're talking about _stacksize...
> 
> Oh yes, sorry for my un-clarity...

Ruby source never use it, but C runtime does.  So it must be
exact that name and be kept unchanged.

> Another outstanding issue is that Ruby's support for embedding has a
> problem with ruby_init being done on a non-empty stack. It took me months
> to figure it out, and then I posted a fix a year ago... has anything been
> done about it while I was not looking? At least I can fix it from inside
> my own software using Init_stack and some black magic...

Do you mean [ruby-core:01229]?  This is another easy way I'm
using, which works just for glibc, win32 (including cygwin) and
human68k.


Index: configure.in
===================================================================
RCS file: /cvs/ruby/src/ruby/configure.in,v
retrieving revision 1.240
diff -U2 -p -d -r1.240 configure.in
--- configure.in	28 Jun 2004 05:58:09 -0000	1.240
+++ configure.in	28 Jun 2004 14:13:59 -0000
@@ -390,4 +390,16 @@ AC_STRUCT_ST_BLOCKS
 AC_STRUCT_ST_RDEV
 
+AC_CACHE_CHECK(for stack end address, rb_cv_stack_end_address,
+[rb_cv_stack_end_address=no
+for addr in __libc_stack_end _SEND; do
+  AC_TRY_LINK(
+    [extern void *$addr;],
+    [if (!$addr) return 1;],
+    [rb_cv_stack_end_address="$addr"; break])
+done])
+if test $rb_cv_stack_end_address != no; then
+  AC_DEFINE_UNQUOTED(STACK_END_ADDRESS, $rb_cv_stack_end_address)
+fi
+
 dnl Checks for library functions.
 AC_TYPE_GETGROUPS
Index: gc.c
===================================================================
RCS file: /cvs/ruby/src/ruby/gc.c,v
retrieving revision 1.180
diff -U2 -p -d -r1.180 gc.c
--- gc.c	29 Jun 2004 01:31:32 -0000	1.180
+++ gc.c	29 Jun 2004 15:45:13 -0000
@@ -45,4 +45,8 @@ extern unsigned long __libc_ia64_registe
 #endif
 
+#if defined _WIN32 || defined __CYGWIN__
+#include <windows.h>
+#endif
+
 void re_free_registers _((struct re_registers*));
 int rb_io_fptr_finalize _((struct OpenFile*));
@@ -1409,7 +1413,14 @@ Init_stack(addr)
     VALUE *addr;
 {
-#if defined(__human68k__)
-    extern void *_SEND;
-    rb_gc_stack_start = _SEND;
+#if defined(_WIN32) || defined(__CYGWIN__)
+    MEMORY_BASIC_INFORMATION m;
+    memset(&m, 0, sizeof(m));
+    VirtualQuery(&m, &m, sizeof(m));
+    rb_gc_stack_start =
+	STACK_UPPER((VALUE *)&m, (VALUE *)m.BaseAddress,
+		    (VALUE *)((char *)m.BaseAddress + m.RegionSize) - 1);
+#elif defined(STACK_END_ADDRESS)
+    extern void *STACK_END_ADDRESS;
+    rb_gc_stack_start = STACK_END_ADDRESS;
 #else
     if (!addr) addr = (VALUE *)&addr;


-- 
Nobu Nakada

Thread

Prev Next

In This Thread

Prev Next