diff options
| author | simonmar <unknown> | 1999-06-09 14:27:38 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-06-09 14:27:38 +0000 |
| commit | 2004d680b4a7b73dd0dcfe574afdbfee077877f8 (patch) | |
| tree | bd48a3cccfc1619959c36dad15cdf82fa32edf93 /ghc/compiler/codeGen/CgCase.lhs | |
| parent | 87f049812d8fa1f2a935a77a45252cecc81419de (diff) | |
| download | haskell-2004d680b4a7b73dd0dcfe574afdbfee077877f8.tar.gz | |
[project @ 1999-06-09 14:27:38 by simonmar]
Remove debugging trace that sneaked in.
Diffstat (limited to 'ghc/compiler/codeGen/CgCase.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CgCase.lhs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ghc/compiler/codeGen/CgCase.lhs b/ghc/compiler/codeGen/CgCase.lhs index 2ad8e99617..6b7f9f2e98 100644 --- a/ghc/compiler/codeGen/CgCase.lhs +++ b/ghc/compiler/codeGen/CgCase.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgCase.lhs,v 1.30 1999/06/08 15:56:45 simonmar Exp $ +% $Id: CgCase.lhs,v 1.31 1999/06/09 14:27:38 simonmar Exp $ % %******************************************************** %* * @@ -864,8 +864,6 @@ restoreCurrentCostCentre Nothing = returnFC AbsCNop restoreCurrentCostCentre (Just slot) = getSpRelOffset slot `thenFC` \ sp_rel -> freeStackSlots [slot] `thenC` - (\info_down state@(MkCgState abs_c binds ((vsp, free, real, hw), heap_usage)) - -> trace (show slot ++ " " ++ show vsp ++ " " ++ show free) $ state) `thenC` returnFC (CCallProfCCMacro SLIT("RESTORE_CCCS") [CVal sp_rel CostCentreRep]) -- we use the RESTORE_CCCS macro, rather than just -- assigning into CurCostCentre, in case RESTORE_CCC |