X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FJoinToTargets.hs;fp=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FJoinToTargets.hs;h=a9367f9f016be6b8ff06c11827a03c9e919803ce;hb=4e589b58e1bf3d36b95d48fd45ec76cb84a1b46d;hp=8ff06eb886ae74636ebd9e46d9145fbf9b56384b;hpb=368a69a51c3787991e1a1a8726a33fcdff3a39d2;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs b/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs
index 8ff06eb..a9367f9 100644
--- a/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/JoinToTargets.hs
@@ -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)