X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcodeGen%2FCgExpr.lhs;fp=ghc%2Fcompiler%2FcodeGen%2FCgExpr.lhs;h=d8c7b29dd81f1386f15e2b0eafe21496af74a6af;hb=96fd092f6646f2cd1a71ddb10f4024a9d3da53a3;hp=3f900d1c8eee13cd517fadb42de0e09eb1e1fa13;hpb=3f5e4368fd4e87e116ce34be4cf9dd0f9f96726d;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgExpr.lhs b/ghc/compiler/codeGen/CgExpr.lhs
index 3f900d1..d8c7b29 100644
--- a/ghc/compiler/codeGen/CgExpr.lhs
+++ b/ghc/compiler/codeGen/CgExpr.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: CgExpr.lhs,v 1.54 2003/07/02 13:12:36 simonpj Exp $
+% $Id: CgExpr.lhs,v 1.56 2003/07/02 13:19:28 simonpj Exp $
 %
 %********************************************************
 %*							*
@@ -25,7 +25,7 @@ import SMRep		( fixedHdrSize )
 import CoreSyn		( AltCon(..) )
 import CgBindery	( getArgAmodes, getArgAmode, CgIdInfo, 
 			  nukeDeadBindings, addBindC, addBindsC )
-import CgCase		( cgCase, saveVolatileVarsAndRegs, restoreCurrentCostCentre )
+import CgCase		( cgCase, saveVolatileVarsAndRegs )
 import CgClosure	( cgRhsClosure, cgStdRhsClosure )
 import CgCon		( buildDynCon, cgReturnDataCon )
 import CgLetNoEscape	( cgLetNoEscapeClosure )
@@ -234,11 +234,6 @@ cgExpr (StgLetNoEscape live_in_whole_let live_in_rhss bindings body)
     saveVolatileVarsAndRegs live_in_rhss
     	    `thenFC` \ (save_assts, rhs_eob_info, maybe_cc_slot) ->
 
-	-- TEMP: put back in for line-by-line compatibility
-	-- Doesn't look right; surely should restore in the branch!
-	-- And the code isn't used....
-    restoreCurrentCostCentre maybe_cc_slot `thenFC` \ restore_cc ->
-
 	-- Save those variables right now!
     absC save_assts				`thenC`