X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2Fprof%2FLDV.h;h=64266911bd7cc1eb2a7f7735863f543dca77ea47;hb=f30d527344db528618f64a25250a3be557d9f287;hp=f54724652d6ee954e9ddc7b6d7ee4f91237ad2e0;hpb=948c01bdb7f42504487a624b229137694871efd0;p=ghc-hetmet.git

diff --git a/includes/rts/prof/LDV.h b/includes/rts/prof/LDV.h
index f547246..6426691 100644
--- a/includes/rts/prof/LDV.h
+++ b/includes/rts/prof/LDV.h
@@ -1,9 +1,14 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The University of Glasgow, 2004
+ * (c) The University of Glasgow, 2009
  *
  * Lag/Drag/Void profiling.
  *
+ * Do not #include this file directly: #include "Rts.h" instead.
+ *
+ * To understand the structure of the RTS headers, see the wiki:
+ *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
+ *
  * ---------------------------------------------------------------------------*/
 
 #ifndef RTS_PROF_LDV_H
@@ -26,25 +31,16 @@
 
 #ifdef CMINUSMINUS
 
-#define LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(c) \
-  foreign "C" LDV_recordDead_FILL_SLOP_DYNAMIC(c "ptr")
-
 #else
 
 #define LDV_RECORD_CREATE(c)   \
   LDVW((c)) = ((StgWord)RTS_DEREF(era) << LDV_SHIFT) | LDV_STATE_CREATE
 
-void LDV_recordDead_FILL_SLOP_DYNAMIC( StgClosure *p );
-
-#define LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(c) \
-  LDV_recordDead_FILL_SLOP_DYNAMIC(c)
-
 #endif
 
 #else  /* !PROFILING */
 
 #define LDV_RECORD_CREATE(c)   /* nothing */
-#define LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(c)  /* nothing */
 
 #endif /* PROFILING */