Hey, what's a coding sprint without an uncovered register allocation bug? No fun, I say.

This commit is contained in:
Graydon Hoare 2010-07-02 22:44:21 -07:00
parent c5a3c9736a
commit cf19c5132a

View file

@ -434,7 +434,8 @@ let reg_alloc
then
begin
Hashtbl.remove dirty_vregs vreg;
if (Bits.get (live_out_vregs.(i)) vreg)
if (Bits.get (live_out_vregs.(i)) vreg) ||
(Bits.get (live_in_vregs.(i)) vreg)
then
let spill_idx =
if Hashtbl.mem vreg_to_spill vreg