From e5fba2f55f560b41e27047bf59958729d51aca84 Mon Sep 17 00:00:00 2001
From: "Ben.Lippmeier@anu.edu.au" <unknown>
Date: Tue, 29 Dec 2009 10:35:18 +0000
Subject: [PATCH] Nicer panic message

---
 compiler/nativeGen/X86/CodeGen.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs
index 2e72d16..799dec3 100644
--- a/compiler/nativeGen/X86/CodeGen.hs
+++ b/compiler/nativeGen/X86/CodeGen.hs
@@ -1633,7 +1633,7 @@ genCCall target dest_regs args = do
 		w  = typeWidth ty
 		r_dest_hi = getHiVRegFromLo r_dest
 		r_dest    = getRegisterReg (CmmLocal dest)
-	assign_code many = panic "genCCall.assign_code many"
+	assign_code many = pprPanic "genCCall.assign_code - too many return values:" (ppr many)
 
     return (push_code `appOL` 
 	    call `appOL` 
-- 
1.7.10.4