From 28dd526f52487cd8cc6f637f3db64034181ab82e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 18 Aug 2000 13:29:07 +0000
Subject: [PATCH] [project @ 2000-08-18 13:29:07 by simonmar] Gratuitously
 remove a gratuitous ineficiency in allocatableRegs.

---
 ghc/compiler/nativeGen/MachRegs.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4