Commit 28dd526f authored by simonmar's avatar simonmar

[project @ 2000-08-18 13:29:07 by simonmar]

Gratuitously remove a gratuitous ineficiency in allocatableRegs.
parent 151673d4
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment