X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FInstr.hs;h=00b57f9b06617aa3cb61d8d5e31b7f20857fb063;hb=335b9f366ac440259318777c4c07e4fa42fbbec6;hp=5cb28d5c40d3ba28ab7efd914e4adef898ae929b;hpb=f9288086f935c97812b2d80defcff38baf7b6a6c;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/SPARC/Instr.hs b/compiler/nativeGen/SPARC/Instr.hs
index 5cb28d5..00b57f9 100644
--- a/compiler/nativeGen/SPARC/Instr.hs
+++ b/compiler/nativeGen/SPARC/Instr.hs
@@ -43,8 +43,6 @@ import FastString
 import FastBool
 import Outputable
 
-import GHC.Exts
-
 
 -- | Register or immediate
 data RI 
@@ -375,6 +373,7 @@ sparc_mkSpillInstr reg _ slot
 			RcInteger -> II32
 			RcFloat   -> FF32
 			RcDouble  -> FF64
+			_         -> panic "sparc_mkSpillInstr"
 		
     in ST sz reg (fpRel (negate off_w))
 
@@ -393,6 +392,7 @@ sparc_mkLoadInstr reg _ slot
 			RcInteger -> II32
 			RcFloat   -> FF32
 			RcDouble  -> FF64
+			_         -> panic "sparc_mkLoadInstr"
 
         in LD sz (fpRel (- off_w)) reg
 
@@ -440,6 +440,7 @@ sparc_mkRegRegMoveInstr src dst
 		RcInteger -> ADD  False False src (RIReg g0) dst
 		RcDouble  -> FMOV FF64 src dst
 		RcFloat   -> FMOV FF32 src dst
+                _         -> panic "sparc_mkRegRegMoveInstr"
 	
 	| otherwise
 	= panic "SPARC.Instr.mkRegRegMoveInstr: classes of src and dest not the same"