Commit 4e589b58 authored by Simon Marlow's avatar Simon Marlow
Browse files

joinToTargets: fix a case of panic "handleComponent cyclic"

parent 368a69a5
......@@ -289,7 +289,8 @@ handleComponent delta _ (AcyclicSCC (vreg, src, dsts))
-- require a fixup.
--
handleComponent delta instr
(CyclicSCC ( (vreg, InReg sreg, [InReg dreg]) : rest))
(CyclicSCC ( (vreg, InReg sreg, (InReg dreg: _)) : rest))
-- dest list may have more than one element, if the reg is also InMem.
= do
-- spill the source into its slot
(instrSpill, slot)
......
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