From: panne <unknown>
Date: Thu, 25 May 2000 12:49:34 +0000 (+0000)
Subject: [project @ 2000-05-25 12:49:34 by panne]
X-Git-Tag: Approximately_9120_patches~4375
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=23acbea8efa873489de4c8ce218893038a8bc1b2;p=ghc-hetmet.git

[project @ 2000-05-25 12:49:34 by panne]
Cosmetics: Removed two "Pattern match(es) are overlapped" warnings.
(can be merged with 4.07)
---

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index 6befe2e..e94ee6e 100644
--- a/ghc/compiler/absCSyn/Costs.lhs
+++ b/ghc/compiler/absCSyn/Costs.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: Costs.lhs,v 1.22 2000/04/10 13:59:17 simonmar Exp $
+% $Id: Costs.lhs,v 1.23 2000/05/25 12:49:34 panne Exp $
 %
 % Only needed in a GranSim setup -- HWL
 % ---------------------------------------------------------------------------
@@ -298,8 +298,6 @@ addrModeCosts addr_mode side =
 
     CMacroExpr _ macro mode_list -> exprMacroCosts side macro mode_list
 
-    _ -> trace ("Costs.addrModeCosts") nullCosts
-
 -- ---------------------------------------------------------------------------
 
 exprMacroCosts :: Side -> CExprMacro -> [CAddrMode] -> CostRes
@@ -315,7 +313,6 @@ exprMacroCosts side macro mode_list =
     ARG_TAG -> nullCosts -- nothing
     GET_TAG -> Cost (0, 0, 1, 0, 0)  -- indirect load
     UPD_FRAME_UPDATEE -> Cost (0, 0, 1, 0, 0)  -- indirect load
-    _ -> trace ("Costs.exprMacroCosts") nullCosts
 
 -- ---------------------------------------------------------------------------