X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;h=a0a6110fd0ab3d60899e1b21c8749852bca0839c;hb=5d42ac16b2e956c03455a1f8328d876b670d3635;hp=e94ee6e9a79a3608716953b2447589ece88c4238;hpb=f7e174ea8689ba9416af633fb545102631be5bfb;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index e94ee6e..a0a6110 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.23 2000/05/25 12:49:34 panne Exp $
+% $Id: Costs.lhs,v 1.24 2000/07/06 14:08:31 simonmar Exp $
 %
 % Only needed in a GranSim setup -- HWL
 % ---------------------------------------------------------------------------
@@ -289,10 +289,6 @@ addrModeCosts addr_mode side =
     CLit    _	   -> if lhs then nullCosts	       -- should never occur
 			     else Cost (1, 0, 0, 0, 0) -- typ.: mov lit,%reg
 
-    CLitLit _  _   -> if lhs then nullCosts
-			     else Cost (1, 0, 0, 0, 0)
-		      -- same es CLit
-
     CJoinPoint _	  -> if lhs then Cost (0, 0, 0, 1, 0)
 				    else Cost (0, 0, 1, 0, 0)