Another improvement to SetLevels
[ghc.git] / rts / LdvProfile.h
index 8f63322..7475dc1 100644 (file)
 
 #include "ProfHeap.h"
 
-RTS_PRIVATE void LdvCensusForDead ( nat );
+RTS_PRIVATE void LdvCensusForDead ( uint32_t );
 RTS_PRIVATE void LdvCensusKillAll ( void );
 
 // Creates a 0-filled slop of size 'howManyBackwards' backwards from the
-// address 'from'. 
+// address 'from'.
 //
-// Invoked when: 
-//   1) Hp is incremented and exceeds HpLim (in Updates.hc).
+// Invoked when:
+//   1) Hp is incremented and exceeds HpLim (in Updates.cmm).
 //   2) copypart() is called (in GC.c).
-#define LDV_FILL_SLOP(from, howMany)   \
-  if (era > 0) {                               \
-    int i;                                     \
-    for (i = 0;i < (howMany); i++)     \
-      ((StgWord *)(from))[i] = 0;              \
+#define LDV_FILL_SLOP(from, howMany)    \
+  if (era > 0) {                                \
+    int i;                                      \
+    for (i = 0;i < (howMany); i++)      \
+      ((StgWord *)(from))[i] = 0;               \
   }
 
 // Informs the LDV profiler that closure c has just been evacuated.
@@ -39,11 +39,3 @@ RTS_PRIVATE void LdvCensusKillAll ( void );
 #endif /* PROFILING */
 
 #endif /* LDVPROFILE_H */
-
-// Local Variables:
-// mode: C
-// fill-column: 80
-// indent-tabs-mode: nil
-// c-basic-offset: 4
-// buffer-file-coding-system: utf-8-unix
-// End: