From: sof <unknown>
Date: Wed, 20 Jan 1999 09:15:37 +0000 (+0000)
Subject: [project @ 1999-01-20 09:15:37 by sof]
X-Git-Tag: Approx_2487_patches~39
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=32e31760a1292cef4365917f570e6ca5db26e4bc;p=ghc-hetmet.git

[project @ 1999-01-20 09:15:37 by sof]
Dead code removal
---

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index 9143b3b..f5456b8 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -207,10 +207,6 @@ pprAbsC (CSwitch discrim alts deflt) c -- general case
     -- Costs for addressing header of switch and cond. branching        -- HWL
     switch_head_cost = addrModeCosts discrim Rhs + (Cost (0, 1, 0, 0, 0))
 
-{-
-pprAbsC stmt@(COpStmt results op@(CCallOp _ _ _) args vol_regs) _
-  = pprCCall op args results vol_regs
--}
 pprAbsC stmt@(COpStmt results op@(CCallOp _ _ _ _) args vol_regs) _
   = pprCCall op args results vol_regs