[project @ 2000-12-07 17:26:30 by simonmar]

[ghc-hetmet.git] / ghc / compiler / nativeGen / MachRegs.lhs

diff --git a/ghc/compiler/nativeGen/MachRegs.lhs b/ghc/compiler/nativeGen/MachRegs.lhs
index 6ef3594..2417cb9 100644 (file)
--- a/ghc/compiler/nativeGen/MachRegs.lhs
+++ b/ghc/compiler/nativeGen/MachRegs.lhs
@@ -812,7 +812,7 @@ allMachRegNos
 -- register allocator to attempt to map VRegs to.
 allocatableRegs :: [Reg]
 allocatableRegs
-   = let isFree i = _IS_TRUE_(freeReg i)
+   = let isFree i = isFastTrue (freeReg i)
      in  map RealReg (filter isFree allMachRegNos)
 
 -------------------------------