diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-16 01:18:53 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-16 01:18:53 +0000 |
| commit | 240a8f698e7aa7be84fb68e8aa63ed68389e74de (patch) | |
| tree | 56350f00d0940646433c56f8b177d3ae3aa62d28 | |
| parent | 10428c59580c05a349b1cb5e715a4efc9a97a327 (diff) | |
| download | haskell-240a8f698e7aa7be84fb68e8aa63ed68389e74de.tar.gz | |
SPARC NCG: Remove a comment that was confusing haddock
| -rw-r--r-- | compiler/nativeGen/RegAllocLinear.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs index 66ac1bfe1a..5e2529979d 100644 --- 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 |