From: simonmar <unknown>
Date: Thu, 11 May 2000 11:54:56 +0000 (+0000)
Subject: [project @ 2000-05-11 11:54:56 by simonmar]
X-Git-Tag: Approximately_9120_patches~4515
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=511ec7f33db67d0daa4919bc06043b1e92879318;p=ghc-hetmet.git

[project @ 2000-05-11 11:54:56 by simonmar]
StablePtrRep is now more like a pointer than an integer, so use the
correct union tag when assigning one to a register to avoid warnings.
---

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index 8996adf..c90b9b4 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -1294,7 +1294,7 @@ pprUnionTag AddrRep		= char 'a'
 pprUnionTag FloatRep		= char 'f'
 pprUnionTag DoubleRep		= panic "pprUnionTag:Double?"
 
-pprUnionTag StablePtrRep	= char 'i'
+pprUnionTag StablePtrRep	= char 'p'
 pprUnionTag StableNameRep	= char 'p'
 pprUnionTag WeakPtrRep		= char 'p'
 pprUnionTag ForeignObjRep	= char 'p'