From: simonmar <unknown>
Date: Tue, 18 Apr 2000 15:06:19 +0000 (+0000)
Subject: [project @ 2000-04-18 15:06:19 by simonmar]
X-Git-Tag: Approximately_9120_patches~4660
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=40f2c680e87099d65ad51c3d6845171b417daf1b;p=ghc-hetmet.git

[project @ 2000-04-18 15:06:19 by simonmar]
give CAF_BLACKHOLEs a closure description/type (for profiling).
---

diff --git a/ghc/rts/StgMiscClosures.hc b/ghc/rts/StgMiscClosures.hc
index 8d1dfda..94ae338 100644
--- a/ghc/rts/StgMiscClosures.hc
+++ b/ghc/rts/StgMiscClosures.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.hc,v 1.41 2000/04/05 15:20:13 simonmar Exp $
+ * $Id: StgMiscClosures.hc,v 1.42 2000/04/18 15:06:19 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -340,7 +340,7 @@ NON_ENTERABLE_ENTRY_CODE(RBH_Save_2);
 #endif /* defined(PAR) || defined(GRAN) */
 
 /* identical to BLACKHOLEs except for the infotag */
-INFO_TABLE(CAF_BLACKHOLE_info, CAF_BLACKHOLE_entry,0,2,CAF_BLACKHOLE,,EF_,0,0);
+INFO_TABLE(CAF_BLACKHOLE_info, CAF_BLACKHOLE_entry,0,2,CAF_BLACKHOLE,,EF_,"CAF_BLACKHOLE","CAF_BLACKHOLE");
 STGFUN(CAF_BLACKHOLE_entry)
 {
   FB_