diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-12-29 10:35:18 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-12-29 10:35:18 +0000 |
| commit | e5fba2f55f560b41e27047bf59958729d51aca84 (patch) | |
| tree | 34860e232ae2ed30e9e2d4e7a3ebdc575871d780 | |
| parent | 0472771eb382f4707c3c793dfab76a48b4c9cbc3 (diff) | |
| download | haskell-e5fba2f55f560b41e27047bf59958729d51aca84.tar.gz | |
Nicer panic message
| -rw-r--r-- | compiler/nativeGen/X86/CodeGen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs index 2e72d16854..799dec328f 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` |