X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FRegAllocLinear.hs;fp=compiler%2FnativeGen%2FRegAllocLinear.hs;h=c4a5a4a632574f6cdd7381861f8512e070dce1b5;hb=8c4b04006dcf5aedfb11fcbc7fcfb05c2b387f92;hp=c67ce3ee6a3dba432380f9ef92450f79898af517;hpb=598d761c769316dc4550028285f6508538b8a99c;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/RegAllocLinear.hs b/compiler/nativeGen/RegAllocLinear.hs
index c67ce3e..c4a5a4a 100644
--- a/compiler/nativeGen/RegAllocLinear.hs
+++ b/compiler/nativeGen/RegAllocLinear.hs
@@ -699,8 +699,11 @@ allocateRegsAndSpill reading keep spills alloc (r:rs) = do
 	        -- to spill.  We just pick the first one that isn't used in 
 	        -- the current instruction for now.
 
-	        let (temp_to_push_out, my_reg) = myHead "regalloc" candidates2
-
+	        let (temp_to_push_out, my_reg) 
+			= case candidates2 of
+				[]	-> panic "RegAllocLinear.allocRegsAndSpill: no spill candidates"
+				(x:_)	-> x
+				
     	        (spill_insn, slot) <- spillR (RealReg my_reg) temp_to_push_out
 		let spill_store	 = (if reading then id else reverse)
 					[ COMMENT (fsLit "spill alloc") 
@@ -741,9 +744,6 @@ loadTemp _ _ _ _ spills =
    return spills
 
 
-myHead s [] = panic s
-myHead _ (x:_) = x
-
 -- -----------------------------------------------------------------------------
 -- Joining a jump instruction to its targets