X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FInterpreter.c;h=94a0286167e01ca42010f5a8ecc99aa457d8a0cb;hb=2fff69381d951c08a42e512722c3633d9ba556d0;hp=81d4e38d93178ff23fc71d1ec664810c89fd01b4;hpb=a0be7e7ccd602efd9b7d35b3e0747a2c4f155ce9;p=ghc-hetmet.git

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 */
     }