Cleanup after the OPTIONS parsing was moved.

[ghc-hetmet.git] / ghc / rts / parallel / HLComms.c

diff --git a/ghc/rts/parallel/HLComms.c b/ghc/rts/parallel/HLComms.c
index fffc32c..b0982e4 100644 (file)
--- a/ghc/rts/parallel/HLComms.c
+++ b/ghc/rts/parallel/HLComms.c
@@ -1,6 +1,5 @@
 /* ----------------------------------------------------------------------------
  * Time-stamp: <Wed Mar 21 2001 16:34:41 Stardate: [-30]6363.45 hwloidl>
- * $Id: HLComms.c,v 1.4 2001/03/22 03:51:11 hwloidl Exp $
  *
  * High Level Communications Routines (HLComms.lc)
  *
@@ -31,9 +30,8 @@
 //@node Macros etc, Includes, High Level Communications Routines, High Level Communications Routines
 //@subsection Macros etc
 
-# ifndef _AIX
-# define NON_POSIX_SOURCE /* so says Solaris */
-# endif
+/* Evidently not Posix */
+/* #include "PosixSource.h" */
 
 //@node Includes, GUM Message Sending and Unpacking Functions, Macros etc, High Level Communications Routines
 //@subsection Includes
@@ -56,7 +54,7 @@
 #ifdef DIST
 #include "SchedAPI.h" //for createIOThread
 extern unsigned int context_switch; 
-#endif DIST
+#endif /* DIST */
 
 //@node GUM Message Sending and Unpacking Functions, Message-Processing Functions, Includes, High Level Communications Routines
 //@subsection GUM Message Sending and Unpacking Functions
@@ -510,7 +508,7 @@ void FinishReval(StgTSO *t)
     belch("@;~) Reval Finished"));
 }
 
-#endif DIST
+#endif /* DIST */
 
 //@node Message-Processing Functions, GUM Message Processor, GUM Message Sending and Unpacking Functions, High Level Communications Routines
 //@subsection Message-Processing Functions