From ac8634452f6e1636bfc6ae9b7935eb1c4b38ca12 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 12 Sep 2005 14:34:08 +0000
Subject: [PATCH] [project @ 2005-09-12 14:34:08 by simonmar] checkBQ() is
 dead code in non-GRAN/PAR

---
 ghc/rts/Sanity.c |   24 ------------------------
 1 file changed, 24 deletions(-)

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index 8e0093d..97abd3c 100644
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -886,30 +886,6 @@ checkBQ (StgTSO *bqe, StgClosure *closure)
     }
   } while (!end);
 }
-#else
-void
-checkBQ (StgTSO *bqe, StgClosure *closure) 
-{  
-  rtsBool end = rtsFalse;
-  StgInfoTable *info = get_itbl(closure);
-
-  ASSERT(info->type == MVAR);
-
-  do {
-    switch (get_itbl(bqe)->type) {
-    case TSO:
-      checkClosure((StgClosure *)bqe);
-      bqe = bqe->link;
-      end = (bqe==END_TSO_QUEUE);
-      break;
-
-    default:
-      barf("checkBQ: strange closure %d in blocking queue for closure %p\n", 
-	   get_itbl(bqe)->type, closure, info->type);
-    }
-  } while (!end);
-}
-    
 #endif
     
 
-- 
1.7.10.4