From: simonpj <unknown>
Date: Fri, 29 Jun 2001 11:35:14 +0000 (+0000)
Subject: [project @ 2001-06-29 11:35:14 by simonpj]
X-Git-Tag: Approximately_9120_patches~1656
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9ed940ffd8767e81634159a76a6b75b0a11f0d61;p=ghc-hetmet.git

[project @ 2001-06-29 11:35:14 by simonpj]
Add comments
---

diff --git a/ghc/lib/std/cbits/system.c b/ghc/lib/std/cbits/system.c
index b35b2b5..9983c92 100644
--- a/ghc/lib/std/cbits/system.c
+++ b/ghc/lib/std/cbits/system.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: system.c,v 1.14 2001/06/12 17:19:34 rrt Exp $
+ * $Id: system.c,v 1.15 2001/06/29 11:35:14 simonpj Exp $
  *
  * system Runtime Support
  */
@@ -18,6 +18,7 @@
 HsInt
 systemCmd(HsAddr cmd)
 {
+  /* -------------------- WINDOWS VERSION --------------------- */
 #if defined(mingw32_TARGET_OS)
   STARTUPINFO sInfo;
   PROCESS_INFORMATION pInfo;
@@ -38,7 +39,9 @@ systemCmd(HsAddr cmd)
   CloseHandle(pInfo.hProcess);
   CloseHandle(pInfo.hThread);
   return retCode;
+
 #else
+  /* -------------------- UNIX VERSION --------------------- */
     int pid;
     int wstat;