From: stolz <unknown>
Date: Thu, 5 Jun 2003 14:04:28 +0000 (+0000)
Subject: [project @ 2003-06-05 14:04:28 by stolz]
X-Git-Tag: Approx_11550_changesets_converted~808
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7219d84257674be12a3e294867f9157b16630a37;hp=dfc15b64151029dd51c423ec5e7baf6096d1ba3f;p=ghc-hetmet.git

[project @ 2003-06-05 14:04:28 by stolz]
Work around broken getProcessStatus in 5.04.x
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index c8163d9..20339bc 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -720,7 +720,16 @@ runSomething phase_name pgm args
 	      -- NOT REACHED
               return ExitSuccess
             Just child -> do -- Parent
+#if __GLASGOW_HASKELL__ <= 504
+              -- avoid interaction with broken getProcessStatus-FFI:
+              oldHandler <- installHandler sigCONT Ignore Nothing
+#endif
               Just (Exited res) <- getProcessStatus True False child
+#if __GLASGOW_HASKELL__ <= 504
+              -- restore handler
+              installHandler sigCONT oldHandler Nothing
+#endif
+
               return res
 #else
           exit_code <- rawSystem cmd_line