+ case bci_PUSH_UBX:
+ fprintf(stderr, "PUSH_UBX ");
+ for (i = 0; i < instrs[pc+1]; i++)
+ fprintf(stderr, "0x%x ", literals[i + instrs[pc]] );
+ fprintf(stderr, "\n");
+ pc += 2; break;
+ case bci_PUSH_APPLY_N:
+ fprintf(stderr, "PUSH_APPLY_N\n");
+ break;
+ case bci_PUSH_APPLY_V:
+ fprintf(stderr, "PUSH_APPLY_V\n");
+ break;
+ case bci_PUSH_APPLY_F:
+ fprintf(stderr, "PUSH_APPLY_F\n");
+ break;
+ case bci_PUSH_APPLY_D:
+ fprintf(stderr, "PUSH_APPLY_D\n");
+ break;
+ case bci_PUSH_APPLY_L:
+ fprintf(stderr, "PUSH_APPLY_L\n");
+ break;
+ case bci_PUSH_APPLY_P:
+ fprintf(stderr, "PUSH_APPLY_P\n");
+ break;
+ case bci_PUSH_APPLY_PP:
+ fprintf(stderr, "PUSH_APPLY_PP\n");
+ break;
+ case bci_PUSH_APPLY_PPP:
+ fprintf(stderr, "PUSH_APPLY_PPP\n");
+ break;
+ case bci_PUSH_APPLY_PPPP:
+ fprintf(stderr, "PUSH_APPLY_PPPP\n");
+ break;
+ case bci_PUSH_APPLY_PPPPP:
+ fprintf(stderr, "PUSH_APPLY_PPPPP\n");
+ break;
+ case bci_PUSH_APPLY_PPPPPP:
+ fprintf(stderr, "PUSH_APPLY_PPPPPP\n");
+ break;
+ case bci_SLIDE:
+ fprintf(stderr, "SLIDE %d down by %d\n", instrs[pc], instrs[pc+1] );
+ pc += 2; break;
+ case bci_ALLOC_AP:
+ fprintf(stderr, "ALLOC_AP %d words\n", instrs[pc] );
+ pc += 1; break;
+ case bci_ALLOC_PAP:
+ fprintf(stderr, "ALLOC_PAP %d words, %d arity\n",
+ instrs[pc], instrs[pc+1] );
+ pc += 2; break;
+ case bci_MKAP:
+ fprintf(stderr, "MKAP %d words, %d stkoff\n", instrs[pc+1],
+ instrs[pc] );
+ pc += 2; break;
+ case bci_UNPACK:
+ fprintf(stderr, "UNPACK %d\n", instrs[pc] );
+ pc += 1; break;
+ case bci_PACK:
+ fprintf(stderr, "PACK %d words with itbl ", instrs[pc+1] );
+ printPtr( (StgPtr)itbls[instrs[pc]] );
+ fprintf(stderr, "\n");
+ pc += 2; break;