X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;h=063fe130d8192476eb8cf3341814009d8f2c32be;hb=4a91d102be99778efcab80211ca5de3f2cf6619a;hp=943934fb35c4268dc8d16c0b0f58af63825742b6;hpb=ebef357f943e8fce48adb73053082204cc892f99;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index 943934f..063fe13 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.26 2000/09/27 14:03:12 simonpj Exp $
+% $Id: Costs.lhs,v 1.27 2000/10/24 07:35:00 simonpj Exp $
 %
 % Only needed in a GranSim setup -- HWL
 % ---------------------------------------------------------------------------
@@ -71,9 +71,6 @@ data CostRes = Cost (Int, Int, Int, Int, Int)
 
 nullCosts    = Cost (0, 0, 0, 0, 0) :: CostRes
 initHdrCosts = Cost (2, 0, 0, 1, 0) :: CostRes
-errorCosts   = Cost (-1, -1, -1, -1, -1)  -- just for debugging
-
-oneArithm = Cost (1, 0, 0, 0, 0) :: CostRes
 
 instance Eq CostRes where
  (==) t1 t2 = i && b && l && s && f
@@ -367,9 +364,6 @@ gmpOps	=
   ]
 
 
-abs_costs = nullCosts   -- NB:  This is normal STG code with costs already 
-			--	included; no need to add costs again.
-
 umul_costs = Cost (21,4,0,0,0)	   -- due to spy counts
 rem_costs =  Cost (30,15,0,0,0)	   -- due to spy counts
 div_costs =  Cost (30,15,0,0,0)	   -- due to spy counts