From: sewardj <unknown>
Date: Tue, 8 Jan 2002 10:42:56 +0000 (+0000)
Subject: [project @ 2002-01-08 10:42:56 by sewardj]
X-Git-Tag: Approximately_9120_patches~303
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d1a3ff224190eed70da56f68cb06e92d691fe131;p=ghc-hetmet.git

[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
--- 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}
 
 %************************************************************************