X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FInterpreter.c;h=62fe50530e2d2cbe6b7197ce94aad02eeefe07d9;hb=d0c6c8b3979e6bd11edba434ccbc61105dcd2537;hp=56e9bb67cea7c43ec25d9bc8c4ffe8c6c27123b9;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index 56e9bb6..62fe505 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -10,9 +10,9 @@
 #include "RtsUtils.h"
 #include "Closures.h"
 #include "TSO.h"
+#include "Storage.h"
 #include "Schedule.h"
 #include "RtsFlags.h"
-#include "Storage.h"
 #include "LdvProfile.h"
 #include "Updates.h"
 #include "Sanity.h"
@@ -261,8 +261,6 @@ eval_obj:
     case CONSTR_2_0:
     case CONSTR_1_1:
     case CONSTR_0_2:
-    case CONSTR_INTLIKE:
-    case CONSTR_CHARLIKE:
     case CONSTR_STATIC:
     case CONSTR_NOCAF_STATIC:
     case FUN:
@@ -1251,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 */
     }