eliminate a warning

[ghc-hetmet.git] / ghc / rts / RetainerSet.c

diff --git a/ghc/rts/RetainerSet.c b/ghc/rts/RetainerSet.c
index 2990a38..bfa0bc8 100644 (file)
--- a/ghc/rts/RetainerSet.c
+++ b/ghc/rts/RetainerSet.c
@@ -1,5 +1,4 @@
 /* -----------------------------------------------------------------------------
- * $Id: RetainerSet.c,v 1.6 2004/09/03 15:28:39 simonmar Exp $
  *
  * (c) The GHC Team, 2001
  * Author: Sungwoo Park
@@ -10,8 +9,6 @@
 
 #ifdef PROFILING
 
-#include <stdlib.h>
-
 #include "Rts.h"
 #include "RtsFlags.h"
 #include "Stats.h"
@@ -20,6 +17,7 @@
 #include "Arena.h"
 #include "Profiling.h"
 
+#include <stdlib.h>
 #include <string.h>
 
 #define HASH_TABLE_SIZE 255
@@ -90,7 +88,7 @@ refreshAllRetainerSet(void)
     for (i = 0; i < HASH_TABLE_SIZE; i++)
        hashTable[i] = NULL;
     nextId = 2;
-#endif // FIRST_APPROACH
+#endif /* FIRST_APPROACH */
 }
 
 /* -----------------------------------------------------------------------------
@@ -495,6 +493,6 @@ outputAllRetainerSet(FILE *prof_file)
 
     stgFree(rsArray);
 }
-#endif // SECOND_APPROACH
+#endif /* SECOND_APPROACH */
 
 #endif /* PROFILING */