From d1a3ff224190eed70da56f68cb06e92d691fe131 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 8 Jan 2002 10:42:56 +0000
Subject: [PATCH] [project @ 2002-01-08 10:42:56 by sewardj] merge from stable
 branch, rev 1.34.4.1:

   Add missing case to magicIdPrimRep.
---
 ghc/compiler/absCSyn/AbsCUtils.lhs |    1 +
 1 file changed, 1 insertion(+)

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