Add a panic to fix the build on amd64/Linux; to be fixed properly later

[ghc-hetmet.git] / compiler / nativeGen / X86 / RegInfo.hs

diff --git a/compiler/nativeGen/X86/RegInfo.hs b/compiler/nativeGen/X86/RegInfo.hs
index e47cc63..39bc6de 100644 (file)
--- a/compiler/nativeGen/X86/RegInfo.hs
+++ b/compiler/nativeGen/X86/RegInfo.hs
@@ -9,7 +9,7 @@ module X86.RegInfo (
        patchJump,
        isRegRegMove,
 
-        JumpDest, 
+        JumpDest(..), 
        canShortcut, 
        shortcutJump, 
 
@@ -412,6 +412,7 @@ mkSpillInstr reg delta slot
     in case regClass reg of
           RcInteger -> MOV II64 (OpReg reg) (OpAddr (spRel off_w))
           RcDouble  -> MOV FF64 (OpReg reg) (OpAddr (spRel off_w))
+          RcFloat   -> panic "mkSpillInstr/RcFloat"
                -- ToDo: will it work to always spill as a double?
                -- does that cause a stall if the data was a float?
 #else
@@ -457,6 +458,7 @@ mkRegRegMoveInstr src dst
         RcInteger -> MOV wordSize (OpReg src) (OpReg dst)
 #if   i386_TARGET_ARCH
         RcDouble  -> GMOV src dst
+       RcFloat   -> panic "X86.RegInfo.mkRegRegMoveInstr: no match"
 #else
         RcDouble  -> MOV FF64 (OpReg src) (OpReg dst)
        RcFloat   -> panic "X86.RegInfo.mkRegRegMoveInstr: no match"