X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FnativeGen%2FStixMacro.lhs;h=8c3dafbbe8a1e353725d80016f65e3c1f1882ff6;hb=387a411e5d6478249de6872c283f2df78ef83bf4;hp=27b544c4507bdeca451e70498e03d2705593237d;hpb=cc19a5c807af2b8128943dfb18eed0a566218b13;p=ghc-hetmet.git

diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs
index 27b544c..8c3dafb 100644
--- a/ghc/compiler/nativeGen/StixMacro.lhs
+++ b/ghc/compiler/nativeGen/StixMacro.lhs
@@ -116,23 +116,6 @@ macroCode SET_TAG [tag]
 -----------------------------------------------------------------------------
 
 \begin{code}
-macroCode AWAKEN_BQ_CLOSURE [arg]
-  =  getUniqLabelNCG		`thenUs` \ label ->
-     let
-	info = StInd AddrRep arg
-	cond = StMachOp MO_Nat_Ne [info, bq_info ]
-	jump = StCondJump label cond
-	blocking_queue = StInd PtrRep 
-			  (StIndex PtrRep arg (StInt (toInteger fixedHdrSize)))
-        call = StVoidable (StCall (Left FSLIT("awakenBlockedQueue")) 
-		 		CCallConv VoidRep [blocking_queue])
-     in
-     returnUs ( \xs -> jump : call : StLabel label : xs )
-\end{code}
-
------------------------------------------------------------------------------
-
-\begin{code}
 macroCode REGISTER_IMPORT [arg]
    = returnUs (
 	\xs -> StAssignMem WordRep (StReg stgSp) arg