From 801399017fa35b14858deb267bbc80141566d0db Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 21 Oct 1999 08:23:56 +0000
Subject: [PATCH] [project @ 1999-10-21 08:23:56 by simonmar] Eliminate those
 annoying "unexpected lazy BHing required" messages during
 ticky-ticky profiling.

---
 ghc/rts/GC.c |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 8bc77bc..9c72a42 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.62 1999/09/15 13:45:16 simonmar Exp $
+ * $Id: GC.c,v 1.63 1999/10/21 08:23:56 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -2924,7 +2924,8 @@ threadSqueezeStack(StgTSO *tso)
        */
       if (is_update_frame) {
 	StgBlockingQueue *bh = (StgBlockingQueue *)frame->updatee;
-	if (bh->header.info != &BLACKHOLE_BQ_info &&
+	if (bh->header.info != &BLACKHOLE_info &&
+	    bh->header.info != &BLACKHOLE_BQ_info &&
 	    bh->header.info != &CAF_BLACKHOLE_info) {
 #if (!defined(LAZY_BLACKHOLING)) && defined(DEBUG)
           fprintf(stderr,"Unexpected lazy BHing required at 0x%04x\n",(int)bh);
-- 
1.7.10.4