[ruby-dev:27104] Re: fail on make install

なかだです。

At Wed, 14 Sep 2005 16:02:28 +0900,
H.Yamamoto wrote in [ruby-dev:27073]:
> ただ、ALLOC_N も便利な面があるので、メモリ関数だけは失敗したときに
> if (!ruby_running) rb_bug とかするのはどうでしょうか。

便利すぎて完全に排除するほうが難しいので、こんなところでどうで
しょうか。


Index: gc.c
===================================================================
RCS file: /cvs/ruby/src/ruby/gc.c,v
retrieving revision 1.209
diff -U2 -p -r1.209 gc.c
--- gc.c	14 Sep 2005 08:30:15 -0000	1.209
+++ gc.c	16 Sep 2005 02:57:11 -0000
@@ -92,5 +92,5 @@ static unsigned long malloc_limit = GC_M
 static void run_final(VALUE obj);
 static VALUE nomem_error;
-static void garbage_collect(void);
+static int garbage_collect(void);
 
 void
@@ -99,5 +99,5 @@ rb_memerror(void)
     static int recurse = 0;
 
-    if (recurse > 0 && rb_safe_level() < 4) {
+    if (!nomem_error || (recurse > 0 && rb_safe_level() < 4)) {
 	fprintf(stderr, "[FATAL] failed to allocate memory\n");
 	exit(1);
@@ -123,6 +123,7 @@ ruby_xmalloc(long size)
     RUBY_CRITICAL(mem = malloc(size));
     if (!mem) {
-	garbage_collect();
-	RUBY_CRITICAL(mem = malloc(size));
+	if (garbage_collect()) {
+	    RUBY_CRITICAL(mem = malloc(size));
+	}
 	if (!mem) {
 	    rb_memerror();
@@ -157,6 +158,7 @@ ruby_xrealloc(void *ptr, long size)
     RUBY_CRITICAL(mem = realloc(ptr, size));
     if (!mem) {
-	garbage_collect();
-	RUBY_CRITICAL(mem = realloc(ptr, size));
+	if (garbage_collect()) {
+	    RUBY_CRITICAL(mem = realloc(ptr, size));
+	}
 	if (!mem) {
 	    rb_memerror();
@@ -373,5 +375,6 @@ rb_newobj(void)
     VALUE obj;
 
-    if (!freelist) garbage_collect();
+    if (!freelist && !garbage_collect())
+	rb_memerror();
 
     obj = (VALUE)freelist;
@@ -1245,5 +1249,5 @@ int rb_setjmp (rb_jmp_buf);
 #endif /* __GNUC__ */
 
-static void
+static int
 garbage_collect(void)
 {
@@ -1253,4 +1257,5 @@ garbage_collect(void)
     SET_STACK_END;
 
+    if (!heaps) return Qfalse;
 #ifdef HAVE_NATIVETHREAD
     if (!is_ruby_native_thread()) {
@@ -1262,5 +1267,5 @@ garbage_collect(void)
 	    add_heap();
 	}
-	return;
+	return Qfalse;
     }
     if (during_gc) return;
@@ -1356,4 +1361,6 @@ garbage_collect(void)
     }
     gc_sweep();
+
+    return Qtrue;
 }
 


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