From 4eaea513c945a1571054e0b298920e4a2a38950b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 11:44:17 +0000
Subject: [PATCH] [project @ 1998-08-14 11:44:17 by sof] primOpCosts: CcallOp
p. match update
---
ghc/compiler/absCSyn/Costs.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index 44514ea0b6b6..0ce89077bf44 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
--
GitLab