From: simonmar <unknown>
Date: Fri, 18 Aug 2000 13:29:07 +0000 (+0000)
Subject: [project @ 2000-08-18 13:29:07 by simonmar]
X-Git-Tag: Approximately_9120_patches~3860
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=28dd526f52487cd8cc6f637f3db64034181ab82e;p=ghc-hetmet.git

[project @ 2000-08-18 13:29:07 by simonmar]
Gratuitously remove a gratuitous ineficiency in allocatableRegs.
---

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index 45f062f..5c9bcc9 100644
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -814,8 +814,8 @@ allMachRegNos
 -- register allocator to attempt to map VRegs to.
 allocatableRegs :: [Reg]
 allocatableRegs
-   = let isFree (RealReg (I# i)) = _IS_TRUE_(freeReg i)
-     in  filter isFree (map RealReg allMachRegNos)
+   = let isFree (I# i) = _IS_TRUE_(freeReg i)
+     in  map RealReg (filter isFree allMachRegNos)
 
 -------------------------------
 -- these are the regs which we cannot assume stay alive over a