From 528b1f5237bc4e031228a27c00cdd679319f2472 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 8 Jul 1998 07:16:56 +0000
Subject: wait

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@261 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 compar.c        |  4 ++--
 lib/delegate.rb |  2 +-
 process.c       | 55 ++++++++++++++++++++++---------------------------------
 3 files changed, 25 insertions(+), 36 deletions(-)

diff --git a/compar.c b/compar.c
index ce85198873..846364ef49 100644
--- a/compar.c
+++ b/compar.c
@@ -76,11 +76,11 @@ cmp_between(x, min, max)
     VALUE x, min, max;
 {
     VALUE c = rb_funcall(x, cmp, 1, min);
-    int t = NUM2INT(c);
+    long t = NUM2LONG(c);
     if (t < 0) return FALSE;
 
     c = rb_funcall(x, cmp, 1, max);
-    t = NUM2INT(c);
+    t = NUM2LONG(c);
     if (t > 0) return FALSE;
     return TRUE;
 }
diff --git a/lib/delegate.rb b/lib/delegate.rb
index 925b4ec867..16e68c9d6c 100644
--- a/lib/delegate.rb
+++ b/lib/delegate.rb
@@ -24,7 +24,7 @@ class Delegator
       preserved |= t.instance_methods
       break if t == Delegator
     end
-    preserved -= ["__getobj__","to_s","to_a","inspect","hash","eql?","==","=~","==="]
+    preserved -= ["to_s","to_a","inspect","hash","eql?","==","=~","==="]
     for method in obj.methods
       next if preserved.include? method
       eval <<EOS
diff --git a/process.c b/process.c
index 0066733934..384e3f2aba 100644
--- a/process.c
+++ b/process.c
@@ -66,10 +66,10 @@ get_ppid()
 
 VALUE last_status = Qnil;
 
-#if !defined(HAVE_WAITPID) && !defined(HAVE_WAIT4)
-static st_table *pid_tbl;
-#else
+#if defined(HAVE_WAITPID) || defined(HAVE_WAIT4)
 # define WAIT_CALL
+#else
+static st_table *pid_tbl;
 #endif
 
 static int
@@ -79,16 +79,20 @@ rb_waitpid(pid, flags, st)
     int *st;
 {
     int result;
-#if defined(THREAD) && (defined(HAVE_WAITPID) || defined(HAVE_WAIT4))
+#ifdef WAIT_CALL
+#if defined(THREAD)
     int oflags = flags;
     if (!thread_alone()) {	/* there're other threads to run */
 	flags |= WNOHANG;
     }
 #endif
 
-#ifdef HAVE_WAITPID
   retry:
+#ifdef HAVE_WAITPID
     result = waitpid(pid, st, flags);
+#else  /* HAVE_WAIT4 */
+    result = wait4(pid, st, flags, NULL);
+#endif
     if (result < 0) {
 	if (errno == EINTR) {
 #ifdef THREAD
@@ -106,26 +110,7 @@ rb_waitpid(pid, flags, st)
 	goto retry;
     }
 #endif
-#else
-#ifdef HAVE_WAIT4
-  retry:
-
-    result = wait4(pid, st, flags, NULL);
-    if (result < 0) {
-	if (errno == EINTR) {
-	    goto retry;
-	}
-	return -1;
-    }
-#ifdef THREAD
-    if (result == 0) {
-	if (oflags & WNOHANG) return 0;
-	thread_schedule();
-	if (thread_alone()) flags = oflags;
-	goto retry;
-    }
-#endif
-#else
+#else  /* WAIT_CALL */
     if (pid_tbl && st_lookup(pid_tbl, pid, st)) {
 	last_status = INT2FIX(*st);
 	st_delete(pid_tbl, &pid, NULL);
@@ -153,8 +138,10 @@ rb_waitpid(pid, flags, st)
 	if (!pid_tbl)
 	    pid_tbl = st_init_numtable();
 	st_insert(pid_tbl, pid, st);
-    }
+#ifdef THREAD
+	if (!thread_alone()) thread_schedule();
 #endif
+    }
 #endif
     last_status = INT2FIX(*st);
     return result;
@@ -192,19 +179,21 @@ f_wait()
 	last_status = data.status;
 	return INT2FIX(data.pid);
     }
-#endif
 
     while ((pid = wait(&state)) < 0) {
-	if (errno == EINTR) {
+        if (errno == EINTR) {
 #ifdef THREAD
-	    thread_schedule();
+            thread_schedule();
 #endif
-	    continue;
-	}
-	if (errno == ECHILD) return Qnil;
-	rb_sys_fail(0);
+            continue;
+        }
+        rb_sys_fail(0);
     }
     last_status = INT2FIX(state);
+#else
+    if ((pid = rb_waitpid(-1, 0, &state)) < 0)
+	rb_sys_fail(0);
+#endif
     return INT2FIX(pid);
 }
 
-- 
cgit v1.2.3