[project @ 2003-07-28 16:05:30 by simonmar]

[ghc-hetmet.git] / ghc / compiler / nativeGen / StixMacro.lhs

diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs
index 27b544c..8c3dafb 100644 (file)
--- 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