From: simonmar <unknown>
Date: Mon, 23 May 2005 08:22:06 +0000 (+0000)
Subject: [project @ 2005-05-23 08:22:06 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~493
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4c03d4ee9f9a1544608c3f8ee65ee59c30e9b8df

[project @ 2005-05-23 08:22:06 by simonmar]
needsCDecl: remove extra equation for CaseLabel, which was overlapped
(and wrong!).
---

diff --git a/ghc/compiler/cmm/CLabel.hs b/ghc/compiler/cmm/CLabel.hs
index f9f2ead..de6ca7a 100644
--- a/ghc/compiler/cmm/CLabel.hs
+++ b/ghc/compiler/cmm/CLabel.hs
@@ -457,7 +457,6 @@ needsCDecl (ModuleInitLabel _ _ _)	= True
 needsCDecl (PlainModuleInitLabel _ _)	= True
 needsCDecl ModuleRegdLabel		= False
 
-needsCDecl (CaseLabel _ _)		= False
 needsCDecl (StringLitLabel _)		= False
 needsCDecl (AsmTempLabel _)		= False
 needsCDecl (RtsLabel _)			= False