- Instr in;
- ASSERT(pc < bco->n_instrs);
- in = bcoInstr(bco,pc++);
- switch (in) {
- case i_INTERNAL_ERROR:
- return disNone(bco,pc,"INTERNAL_ERROR");
- case i_PANIC:
- return disNone(bco,pc,"PANIC");
- case i_STK_CHECK:
- return disInt(bco,pc,"STK_CHECK");
- case i_STK_CHECK_big:
- return disInt16(bco,pc,"STK_CHECK_big");
- case i_ARG_CHECK:
- return disInt(bco,pc,"ARG_CHECK");
- case i_ALLOC_AP:
- return disInt(bco,pc,"ALLOC_AP");
- case i_ALLOC_PAP:
- return disInt(bco,pc,"ALLOC_PAP");
- case i_ALLOC_CONSTR:
- return disInfo(bco,pc,"ALLOC_CONSTR");
- case i_ALLOC_CONSTR_big:
- return disInfo16(bco,pc,"ALLOC_CONSTR_big");
- case i_MKAP:
- return disIntInt(bco,pc,"MKAP");
- case i_MKAP_big:
- return disIntInt16(bco,pc,"MKAP_big");
- case i_MKPAP:
- return disIntInt(bco,pc,"MKPAP");
- case i_PACK:
- return disInt(bco,pc,"PACK");
- case i_SLIDE:
- return disIntInt(bco,pc,"SLIDE");
- case i_RV:
- return disIntInt(bco,pc,"R_V");
- case i_RVE:
- return disIntInt(bco,pc,"R_V_E");
- case i_VV:
- return disIntInt(bco,pc,"V_V");
- case i_SE:
- return disIntInt(bco,pc,"S_E");
- case i_SLIDE_big:
- return disIntInt16(bco,pc,"SLIDE_big");
- case i_ENTER:
- return disNone(bco,pc,"ENTER");
- case i_RETADDR:
- return disConstPtr(bco,pc,"RETADDR");
- case i_RETADDR_big:
- return disConstPtr16(bco,pc,"RETADDR_big");
- case i_TEST:
- return disIntPC(bco,pc,"TEST");
- case i_UNPACK:
- return disNone(bco,pc,"UNPACK");
- case i_VAR:
- return disInt(bco,pc,"VAR");
- case i_VAR_big:
- return disInt16(bco,pc,"VAR_big");
- case i_CONST:
- return disConstPtr(bco,pc,"CONST");
- case i_CONST_big:
- return disConstPtr16(bco,pc,"CONST_big");
-
-#ifdef XMLAMBDA
- case i_ALLOC_ROW:
- return disInt(bco,pc,"ALLOC_ROW");
- case i_ALLOC_ROW_big:
- return disInt16(bco,pc,"ALLOC_ROW_big");
- case i_PACK_ROW:
- return disInt(bco,pc,"PACK_ROW");
- case i_PACK_ROW_big:
- return disInt16(bco,pc,"PACK_ROW_big");
- case i_UNPACK_ROW:
- return disNone(bco,pc,"UNPACK_ROW");
- case i_CONST_ROW_TRIV:
- return disNone(bco,pc,"CONST_ROW_TRIV");
-
- case i_PACK_INJ_VAR:
- return disInt(bco,pc,"PACK_INJ_VAR");
- case i_PACK_INJ_VAR_big:
- return disInt16(bco,pc,"PACK_INJ_VAR_big");
- case i_PACK_INJ_CONST_8:
- return disInt(bco,pc,"PACK_INJ_CONST_8");
- case i_PACK_INJ_REL_8:
- return disIntInt(bco,pc,"PACK_INJ_REL_8");
- case i_PACK_INJ:
- return disNone(bco,pc,"PACK_INJ");
-
- case i_UNPACK_INJ:
- return disNone(bco,pc,"UNPACK_INJ");
-
- case i_TEST_INJ_VAR:
- return disIntPC(bco,pc,"TEST_INJ_VAR");
- case i_TEST_INJ_VAR_big:
- return disInt16PC(bco,pc,"TEST_INJ_VAR_big");
- case i_TEST_INJ_CONST_8:
- return disIntPC(bco,pc,"TEST_INJ_CONST_8");
- case i_TEST_INJ_REL_8:
- return disIntIntPC(bco,pc,"TEST_INJ_REL_8");
- case i_TEST_INJ:
- return disPC(bco,pc,"TEST_INJ");
-
- case i_CONST_WORD_8:
- return disInt(bco,pc,"CONST_WORD_8");
- case i_ADD_WORD_VAR:
- return disInt(bco,pc,"ADD_WORD_VAR");
- case i_ADD_WORD_VAR_big:
- return disInt16(bco,pc,"ADD_WORD_VAR_big");
- case i_ADD_WORD_VAR_8:
- return disIntInt(bco,pc,"ADD_WORD_VAR_8");
-#endif
-
- case i_VOID:
- return disNone(bco,pc,"VOID");
-
- case i_VAR_INT:
- return disInt(bco,pc,"VAR_INT");
- case i_VAR_INT_big:
- return disInt16(bco,pc,"VAR_INT_big");
- case i_CONST_INT:
- return disConstInt(bco,pc,"CONST_INT");
- case i_CONST_INT_big:
- return disConstInt16(bco,pc,"CONST_INT_big");
- case i_PACK_INT:
- return disNone(bco,pc,"PACK_INT");
- case i_UNPACK_INT:
- return disNone(bco,pc,"UNPACK_INT");
- case i_TEST_INT:
- return disPC(bco,pc,"TEST_INT");
-
- case i_CONST_INTEGER:
- return disConstAddr(bco,pc,"CONST_INTEGER");
- case i_CONST_INTEGER_big:
- return disConstAddr16(bco,pc,"CONST_INTEGER_big");
-
- case i_VAR_WORD:
- return disInt(bco,pc,"VAR_WORD");
- case i_CONST_WORD:
- return disConstInt(bco,pc,"CONST_WORD");
- case i_CONST_WORD_big:
- return disConstInt16(bco,pc,"CONST_WORD_big");
- case i_PACK_WORD:
- return disNone(bco,pc,"PACK_WORD");
- case i_UNPACK_WORD:
- return disNone(bco,pc,"UNPACK_WORD");
-
- case i_VAR_ADDR:
- return disInt(bco,pc,"VAR_ADDR");
- case i_VAR_ADDR_big:
- return disInt16(bco,pc,"VAR_ADDR_big");
- case i_CONST_ADDR:
- return disConstAddr(bco,pc,"CONST_ADDR");
- case i_CONST_ADDR_big:
- return disConstAddr16(bco,pc,"CONST_ADDR_big");
- case i_PACK_ADDR:
- return disNone(bco,pc,"PACK_ADDR");
- case i_UNPACK_ADDR:
- return disNone(bco,pc,"UNPACK_ADDR");
-
- case i_VAR_CHAR:
- return disInt(bco,pc,"VAR_CHAR");
- case i_VAR_CHAR_big:
- return disInt16(bco,pc,"VAR_CHAR_big");
- case i_CONST_CHAR:
- return disConstChar(bco,pc,"CONST_CHAR");
- case i_CONST_CHAR_big:
- return disConstChar16(bco,pc,"CONST_CHAR_big");
- case i_PACK_CHAR:
- return disNone(bco,pc,"PACK_CHAR");
- case i_UNPACK_CHAR:
- return disNone(bco,pc,"UNPACK_CHAR");
-
- case i_VAR_FLOAT:
- return disInt(bco,pc,"VAR_FLOAT");
- case i_VAR_FLOAT_big:
- return disInt16(bco,pc,"VAR_FLOAT_big");
- case i_CONST_FLOAT:
- return disConstFloat(bco,pc,"CONST_FLOAT");
- case i_CONST_FLOAT_big:
- return disConstFloat16(bco,pc,"CONST_FLOAT_big");
- case i_PACK_FLOAT:
- return disNone(bco,pc,"PACK_FLOAT");
- case i_UNPACK_FLOAT:
- return disNone(bco,pc,"UNPACK_FLOAT");
-
- case i_VAR_DOUBLE:
- return disInt(bco,pc,"VAR_DOUBLE");
- case i_VAR_DOUBLE_big:
- return disInt16(bco,pc,"VAR_DOUBLE_big");
- case i_CONST_DOUBLE:
- return disConstDouble(bco,pc,"CONST_DOUBLE");
- case i_CONST_DOUBLE_big:
- return disConstDouble16(bco,pc,"CONST_DOUBLE_big");
- case i_PACK_DOUBLE:
- return disNone(bco,pc,"PACK_DOUBLE");
- case i_UNPACK_DOUBLE:
- return disNone(bco,pc,"UNPACK_DOUBLE");
-
- case i_VAR_STABLE:
- return disInt(bco,pc,"VAR_STABLE");
- case i_PACK_STABLE:
- return disNone(bco,pc,"PACK_STABLE");
- case i_UNPACK_STABLE:
- return disNone(bco,pc,"UNPACK_STABLE");