- case BCO:
- disassemble( (StgBCO*)obj );
- break;
-
- case AP_UPD:
- {
- StgAP_UPD* ap = stgCast(StgAP_UPD*,obj);
- StgWord i;
- fprintf(stderr,"AP_UPD("); printPtr((StgPtr)ap->fun);
- for (i = 0; i < ap->n_args; ++i) {
- fprintf(stderr,", ");
- printPtr((P_)ap->payload[i]);
- }
- fprintf(stderr,")\n");
- break;
- }
-
- case PAP:
- {
- StgPAP* pap = stgCast(StgPAP*,obj);
- StgWord i;
- fprintf(stderr,"PAP("); printPtr((StgPtr)pap->fun);
- for (i = 0; i < pap->n_args; ++i) {
- fprintf(stderr,", ");
- printPtr((StgPtr)pap->payload[i]);
- }
- fprintf(stderr,")\n");
- break;
- }
-
- case IND:
- fprintf(stderr,"IND(");
- printPtr((StgPtr)stgCast(StgInd*,obj)->indirectee);
- fprintf(stderr,")\n");
- break;
-
- case IND_STATIC:
- fprintf(stderr,"IND_STATIC(");
- printPtr((StgPtr)stgCast(StgInd*,obj)->indirectee);
- fprintf(stderr,")\n");
- break;
-
- case IND_OLDGEN:
- fprintf(stderr,"IND_OLDGEN(");
- printPtr((StgPtr)stgCast(StgInd*,obj)->indirectee);
- fprintf(stderr,")\n");
- break;
-
- case CAF_BLACKHOLE:
- fprintf(stderr,"CAF_BH(");
- printPtr((StgPtr)stgCast(StgBlockingQueue*,obj)->blocking_queue);
- fprintf(stderr,")\n");
- break;
-
- case SE_BLACKHOLE:
- fprintf(stderr,"SE_BH\n");
- break;
-
- case SE_CAF_BLACKHOLE:
- fprintf(stderr,"SE_CAF_BH\n");
- break;
-
- case BLACKHOLE:
- fprintf(stderr,"BH\n");
- break;
-
- case BLACKHOLE_BQ:
- fprintf(stderr,"BQ(");
- printPtr((StgPtr)stgCast(StgBlockingQueue*,obj)->blocking_queue);
- fprintf(stderr,")\n");
- break;
-
- case TSO:
- fprintf(stderr,"TSO(");
- fprintf(stderr,"%d (%p)",((StgTSO*)obj)->id, (StgTSO*)obj);
- fprintf(stderr,")\n");
- break;
-
-#if defined(PAR)
- case BLOCKED_FETCH:
- fprintf(stderr,"BLOCKED_FETCH(");
- printGA(&(stgCast(StgBlockedFetch*,obj)->ga));
- printPtr((StgPtr)(stgCast(StgBlockedFetch*,obj)->node));
- fprintf(stderr,")\n");
- break;
-
- case FETCH_ME:
- fprintf(stderr,"FETCH_ME(");
- printGA((globalAddr *)stgCast(StgFetchMe*,obj)->ga);
- fprintf(stderr,")\n");
- break;
-
-#ifdef DIST
- case REMOTE_REF:
- fprintf(stderr,"REMOTE_REF(");
- printGA((globalAddr *)stgCast(StgFetchMe*,obj)->ga);
- fprintf(stderr,")\n");
- break;
-#endif
-
- case FETCH_ME_BQ:
- fprintf(stderr,"FETCH_ME_BQ(");
- // printGA((globalAddr *)stgCast(StgFetchMe*,obj)->ga);
- printPtr((StgPtr)stgCast(StgFetchMeBlockingQueue*,obj)->blocking_queue);
- fprintf(stderr,")\n");
- break;
-#endif
-#if defined(GRAN) || defined(PAR)
- case RBH:
- fprintf(stderr,"RBH(");
- printPtr((StgPtr)stgCast(StgRBH*,obj)->blocking_queue);
- fprintf(stderr,")\n");
- break;
-
-#endif