From 5e7649bbb9ed026be91e3d6af4221ac970bca471 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Wed, 15 Apr 1998 13:14:35 +0000
Subject: [PATCH] [project @ 1998-04-15 13:14:35 by simonm] - remove
StgCoerceBinding (unused).
---
ghc/compiler/stgSyn/StgSyn.lhs | 5 -----
1 file changed, 5 deletions(-)
diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 704be4b1de1a..5963387370a6 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) -}")))])
--
GitLab