X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAlloc%2FLinear%2FMain.hs;h=7f977d1aa9e5b021e2846a65f2d427d88d1828b0;hp=ce28c4e96ec79437756547a475b01eada748ccaf;hb=67136d3a04b96b043328df9d4716d3da7a24a517;hpb=ee6bba6f3d80c56b47bc623bc6e4f076be1f046f

diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs
index ce28c4e..7f977d1 100644
--- a/compiler/nativeGen/RegAlloc/Linear/Main.hs
+++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs
@@ -323,7 +323,7 @@ raInsn block_live new_instrs id (Instr instr (Just live))
 			(uniqSetToList $ liveDieWrite live)
 
 
-raInsn _ _ id instr
+raInsn _ _ _ instr
 	= pprPanic "raInsn" (text "no match for:" <> ppr instr)