From: Ian Lynagh <igloo@earth.li>
Date: Thu, 7 Sep 2006 17:10:38 +0000 (+0000)
Subject: If we get an unknown or unimplemented opcode, say what it is
X-Git-Tag: Before_FC_branch_merge~44
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=06b8942c4f279ca62fad6d1b5e955dd33ec3f985;hp=bbc6aa4c27224208fc2a0d415b510c8fc1d3efd5

If we get an unknown or unimplemented opcode, say what it is
---

diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index 81d4e38..94a0286 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -1249,7 +1249,8 @@ run_BCO:
 	    
 	    // Errors
 	default: 
-	    barf("interpretBCO: unknown or unimplemented opcode");
+	    barf("interpretBCO: unknown or unimplemented opcode %d",
+                 (int)BCO_NEXT);
 
 	} /* switch on opcode */
     }