From: simonmar <unknown>
Date: Mon, 3 Jul 2000 14:32:58 +0000 (+0000)
Subject: [project @ 2000-07-03 14:32:58 by simonmar]
X-Git-Tag: Approximately_9120_patches~4098
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9b87106fe0cea58e7ffb5f7e2b01c63307f8e4f6;p=ghc-hetmet.git

[project @ 2000-07-03 14:32:58 by simonmar]
dead code removal
---

diff --git a/ghc/compiler/nativeGen/StixPrim.lhs b/ghc/compiler/nativeGen/StixPrim.lhs
index b7ca132..a77235d 100644
--- a/ghc/compiler/nativeGen/StixPrim.lhs
+++ b/ghc/compiler/nativeGen/StixPrim.lhs
@@ -487,13 +487,6 @@ iNTLIKE_closure = StCLbl mkIntlikeClosureLabel
 cHARLIKE_closure :: StixTree
 cHARLIKE_closure = StCLbl mkCharlikeClosureLabel
 
--- Trees for the ErrorIOPrimOp
-
-topClosure, errorIO :: StixTree
-
-topClosure = StInd PtrRep (StCLbl mkTopClosureLabel)
-errorIO = StJump (StInd PtrRep (StCLbl mkErrorIO_innardsLabel))
-
 mutArrPtrsFrozen_info = StCLbl mkMAP_FROZEN_infoLabel
 
 -- these are the sizes of charLike and intLike closures, in _bytes_.