[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 (file)
--- 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) -}")))])