From: simonm <unknown>
Date: Wed, 15 Apr 1998 13:14:35 +0000 (+0000)
Subject: [project @ 1998-04-15 13:14:35 by simonm]
X-Git-Tag: Approx_2487_patches~797
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5e7649bbb9ed026be91e3d6af4221ac970bca471;p=ghc-hetmet.git

[project @ 1998-04-15 13:14:35 by simonm]
- remove StgCoerceBinding (unused).
---

diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 704be4b..5963387 100644
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -64,7 +64,6 @@ with respect to binder and occurrence information (just as in
 data GenStgBinding bndr occ
   = StgNonRec	bndr (GenStgRhs bndr occ)
   | StgRec	[(bndr, GenStgRhs bndr occ)]
-  | StgCoerceBinding bndr occ			-- UNUSED?
 \end{code}
 
 %************************************************************************
@@ -498,10 +497,6 @@ pprGenStgBinding (StgNonRec bndr rhs)
   = hang (hsep [ppr bndr, equals])
     	 4 ((<>) (ppr rhs) semi)
 
-pprGenStgBinding (StgCoerceBinding bndr occ)
-  = hang (hsep [ppr bndr, equals, ptext SLIT("{-Coerce-}")])
-    	 4 ((<>) (ppr occ) semi)
-
 pprGenStgBinding (StgRec pairs)
   = vcat ((ifPprDebug (ptext SLIT("{- StgRec (begin) -}"))) :
 	      (map (ppr_bind) pairs) ++ [(ifPprDebug (ptext SLIT("{- StgRec (end) -}")))])