From: sof <unknown>
Date: Fri, 14 Aug 1998 11:44:17 +0000 (+0000)
Subject: [project @ 1998-08-14 11:44:17 by sof]
X-Git-Tag: Approx_2487_patches~399
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4eaea513c945a1571054e0b298920e4a2a38950b;p=ghc-hetmet.git

[project @ 1998-08-14 11:44:17 by sof]
primOpCosts: CcallOp p. match update
---

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index 44514ea..0ce8907 100644
--- a/ghc/compiler/absCSyn/Costs.lhs
+++ b/ghc/compiler/absCSyn/Costs.lhs
@@ -59,7 +59,7 @@ module Costs( costs,
 
 import AbsCSyn
 import PrimOp		( primOpNeedsWrapper, PrimOp(..) )
-import GlaExts		( trace )
+import Util		( trace )
 
 -- --------------------------------------------------------------------------
 newtype CostRes = Cost (Int, Int, Int, Int, Int)
@@ -416,7 +416,7 @@ primOpCosts :: PrimOp -> CostRes
 
 -- Special cases
 
-primOpCosts (CCallOp _ _ _ _ _) = SAVE_COSTS + RESTORE_COSTS  	
+primOpCosts (CCallOp _ _ _ _ _ _) = SAVE_COSTS + RESTORE_COSTS  	
 	                          -- don't guess costs of ccall proper
                                   -- for exact costing use a GRAN_EXEC
                                   -- in the C code