From: simonmar <unknown>
Date: Fri, 11 Nov 2005 14:41:01 +0000 (+0000)
Subject: [project @ 2005-11-11 14:41:01 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~22
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b959bfb92f069ebe2911d1239155fc80beceb283;p=ghc-base.git

[project @ 2005-11-11 14:41:01 by simonmar]
waitForProcess: if the process died with a signal, just return the
exit status rather than EINTR.

This means a segfault shows up as (ExitFailure 139) rather than
an exception complaining about system call interruption.  If the
client wants a more unix-ish interpretation, they probably should be
using System.Posix.Process anyway.
---

diff --git a/cbits/runProcess.c b/cbits/runProcess.c
index a0c2453..b89e130 100644
--- a/cbits/runProcess.c
+++ b/cbits/runProcess.c
@@ -216,7 +216,7 @@ int waitForProcess (ProcHandle handle)
     else
 	if (WIFSIGNALED(wstat))
 	{
-	    errno = EINTR;
+	    return wstat;
 	}
 	else
 	{