Remove CONSTR_CHARLIKE and CONSTR_INTLIKE closure types

[ghc-hetmet.git] / rts / Printer.c

diff --git a/rts/Printer.c b/rts/Printer.c
index 8290d22..83afd48 100644 (file)
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -133,8 +133,6 @@ printClosure( StgClosure *obj )
     case CONSTR:
     case CONSTR_1_0: case CONSTR_0_1:
     case CONSTR_1_1: case CONSTR_0_2: case CONSTR_2_0:
     case CONSTR:
     case CONSTR_1_0: case CONSTR_0_1:
     case CONSTR_1_1: case CONSTR_0_2: case CONSTR_2_0:

-    case CONSTR_INTLIKE:
-    case CONSTR_CHARLIKE:

     case CONSTR_STATIC:
     case CONSTR_NOCAF_STATIC:
         {
     case CONSTR_STATIC:
     case CONSTR_NOCAF_STATIC:
         {

@@ -381,7 +379,7 @@ printClosure( StgClosure *obj )
 
     case TSO:
       debugBelch("TSO("); 
 
     case TSO:
       debugBelch("TSO("); 

-      debugBelch("%d (%p)",((StgTSO*)obj)->id, (StgTSO*)obj);
+      debugBelch("%lu (%p)",(unsigned long)(((StgTSO*)obj)->id), (StgTSO*)obj);

       debugBelch(")\n"); 
       break;
 
       debugBelch(")\n"); 
       break;
 

@@ -657,8 +655,6 @@ static char *closure_type_names[] = {
     "CONSTR_2",
     "CONSTR_1",
     "CONSTR_0",
     "CONSTR_2",
     "CONSTR_1",
     "CONSTR_0",

-    "CONSTR_INTLIKE",
-    "CONSTR_CHARLIKE",

     "CONSTR_STATIC",
     "CONSTR_NOCAF_STATIC",
     "FUN",
     "CONSTR_STATIC",
     "CONSTR_NOCAF_STATIC",
     "FUN",