X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCmmCallConv.hs;h=d40edae4820b1cebfb4d451eb15edd1cff1ba018;hp=7c70736629a0c76b7ff731b2070bd60a884686bb;hb=5d1c70a506f366eca47464f2a354de8cc0d9a795;hpb=e239aa2329416a2822fcc03c4ed486c7d28739e1

diff --git a/compiler/cmm/CmmCallConv.hs b/compiler/cmm/CmmCallConv.hs
index 7c70736..d40edae 100644
--- a/compiler/cmm/CmmCallConv.hs
+++ b/compiler/cmm/CmmCallConv.hs
@@ -60,14 +60,13 @@ assignArgumentsPos conv isCall arg_ty reps = map cvt assignments
                  (_, GC    ) -> getRegsWithNode
                  (_, PrimOpCall) -> allRegs
                  (_, Slow  ) -> noRegs
-                 _ -> panic "Unknown calling convention"
+                 _ -> pprPanic "Unknown calling convention" (ppr conv)
              else
                case (reps, conv) of
                  ([_], _)    -> allRegs
                  (_, NativeCall)   -> getRegsWithNode
                  (_, NativeReturn) -> getRegsWithNode
                  (_, GC    ) -> getRegsWithNode
-                 (_, PrimOpCall) -> getRegsWithNode
                  (_, PrimOpReturn) -> getRegsWithNode
                  (_, Slow  ) -> noRegs
                  _ -> pprPanic "Unknown calling convention" (ppr conv)