[project @ 2002-01-08 10:42:56 by sewardj]

merge from stable branch, rev 1.34.4.1:

   Add missing case to magicIdPrimRep.

diff --git a/ghc/compiler/absCSyn/AbsCUtils.lhs b/ghc/compiler/absCSyn/AbsCUtils.lhs
index b05c3c1..923005b 100644 (file)
--- a/ghc/compiler/absCSyn/AbsCUtils.lhs
+++ b/ghc/compiler/absCSyn/AbsCUtils.lhs
@@ -151,6 +151,7 @@ magicIdPrimRep CurCostCentre            = CostCentreRep
 magicIdPrimRep VoidReg             = VoidRep
 magicIdPrimRep CurrentTSO          = ThreadIdRep
 magicIdPrimRep CurrentNursery      = PtrRep
+magicIdPrimRep HpAlloc              = WordRep
 \end{code}
 
 %************************************************************************