[project @ 2001-05-28 07:13:54 by sof]

get rid of some more cpp warnings

diff --git a/ghc/rts/parallel/HLComms.c b/ghc/rts/parallel/HLComms.c
index fffc32c..889892a 100644 (file)
--- 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.5 2001/05/28 07:13:54 sof Exp $
  *
  * High Level Communications Routines (HLComms.lc)
  *
@@ -56,7 +56,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 +510,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

diff --git a/ghc/rts/parallel/Pack.c b/ghc/rts/parallel/Pack.c
index 7d785d9..80a2fae 100644 (file)
--- a/ghc/rts/parallel/Pack.c
+++ b/ghc/rts/parallel/Pack.c
@@ -1,6 +1,6 @@
 /* 
    Time-stamp: <Wed Mar 21 2001 16:32:47 Stardate: [-30]6363.44 hwloidl>
-   $Id: Pack.c,v 1.6 2001/03/22 03:51:11 hwloidl Exp $
+   $Id: Pack.c,v 1.7 2001/05/28 07:13:54 sof Exp $
 
    Graph packing and unpacking code for sending it to another processor
    and retrieving the original graph structure from the packet.
@@ -822,7 +822,7 @@ PackRemoteRef(StgClosure *closure)
   
   unpacked_size += PACK_FETCHME_SIZE;
 }
-#endif DIST
+#endif /* DIST */
 
 //@node Packing Closures,  , Packing Sections of Nearby Graph, Packing Functions
 //@subsubsection Packing Closures
@@ -2230,7 +2230,7 @@ SetGAandCommonUp(globalAddr *ga, StgClosure *closure, rtsBool hasGA)
     ga->weight=0;
 // ***************************************************************************
 // ***************************************************************************
-#endif DIST
+#endif /* DIST */
     
     /* Two closures, one global name.  Someone loses */
     oldip = get_itbl(existing);

diff --git a/ghc/rts/parallel/Parallel.c b/ghc/rts/parallel/Parallel.c
index 8dd7f88..97cdf0e 100644 (file)
--- a/ghc/rts/parallel/Parallel.c
+++ b/ghc/rts/parallel/Parallel.c
@@ -1002,7 +1002,7 @@ get_closure_info(StgClosure* node, nat *size, nat *ptrs, nat *nonptrs,
     strcpy(info_hdr_ty, "REMOTE_REF");
 #endif
     return info; 
-#endif DIST
+#endif /* DIST */
     
   case FETCH_ME_BQ:
     *size = sizeofW(StgFetchMeBlockingQueue);