X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2Fparallel%2FHLComms.c;h=9435536aefa131c0ae864d944f77cfff78458570;hb=62b639a5468c97298f478ae2489e12b7eed2f386;hp=fffc32c0e465325d58c05efcec878e7dbaf5272e;hpb=20fc2f0ced64a12d8e44956931b2ac341ed2186f;p=ghc-hetmet.git

diff --git a/ghc/rts/parallel/HLComms.c b/ghc/rts/parallel/HLComms.c
index fffc32c..9435536 100644
--- a/ghc/rts/parallel/HLComms.c
+++ b/ghc/rts/parallel/HLComms.c
@@ -1,6 +1,6 @@
 /* ----------------------------------------------------------------------------
  * 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 $
+ * $Id: HLComms.c,v 1.6 2001/08/14 13:40:10 sewardj Exp $
  *
  * High Level Communications Routines (HLComms.lc)
  *
@@ -31,9 +31,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 +55,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 +509,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