SPARC NCG: Remove a comment that was confusing haddock

[ghc-hetmet.git] / compiler / nativeGen / RegAllocLinear.hs

diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs
index 66ac1bf..5e25299 100644 (file)
--- a/compiler/nativeGen/RegAllocLinear.hs
+++ b/compiler/nativeGen/RegAllocLinear.hs
@@ -204,8 +204,6 @@ noFreeRegs = FreeRegs 0 0 0
 --     Don't treat the top half of reg pairs we're using as doubles as being free.
 initFreeRegs :: FreeRegs
 initFreeRegs 
--- =   trace (show allocable ++ "\n" ++ show freeDouble) 
--- $   regs
  =     regs
  where 
        freeDouble      = getFreeRegs RcDouble regs