X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FCodeGen.hs;h=799dec328fa8bbea30d7c38de84dfbc927ba848f;hb=e5fba2f55f560b41e27047bf59958729d51aca84;hp=8a1c77e1df299c8780735a3404870f0c657962d0;hpb=f949be5748e7a99ec323b8d59144e322e9e86eb1;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs
index 8a1c77e..799dec3 100644
--- a/compiler/nativeGen/X86/CodeGen.hs
+++ b/compiler/nativeGen/X86/CodeGen.hs
@@ -27,7 +27,7 @@ where
 
 #include "HsVersions.h"
 #include "nativeGen/NCG.h"
-#include "MachDeps.h"
+#include "../includes/MachDeps.h"
 
 -- NCG stuff:
 import X86.Instr
@@ -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`