From: sewardj <unknown>
Date: Mon, 2 Oct 2000 14:05:22 +0000 (+0000)
Subject: [project @ 2000-10-02 14:05:22 by sewardj]
X-Git-Tag: Approximately_9120_patches~3708
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=296a1b44be334be658059713300e8cafa6958c0d;p=ghc-hetmet.git

[project @ 2000-10-02 14:05:22 by sewardj]
Partially back out changes mistakenly included in last commit :-(
---

diff --git a/ghc/compiler/nativeGen/AsmRegAlloc.lhs b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
index 6349b44..e6a80c4 100644
--- a/ghc/compiler/nativeGen/AsmRegAlloc.lhs
+++ b/ghc/compiler/nativeGen/AsmRegAlloc.lhs
@@ -206,14 +206,7 @@ doGeneralAlloc
 
 doGeneralAlloc all_regs reserve_regs instrs
    -- succeeded without spilling
-   | --trace (showSDoc (
-     --   text "allocating with these regs" <+> ppr prespill_regs
-     --   $$
-     --   text "giving code" 
-     --   $$
-     --   vcat (map pprInstr prespill_insns)
-     --))
-     prespill_ok
+   | prespill_ok
    = Just prespill_insns
 
    -- failed, and no spill regs avail, so pointless to attempt spilling