{
return POINTER_READ(firm_thing, sizeof(firm_kind)) ? *(firm_kind *)firm_thing : k_BAD;
} /* get_kind */
-
-const char *print_firm_kind(void *firm_thing)
-{
- if (! firm_thing)
- return "(NULL)";
-
- switch (*(firm_kind *)firm_thing) {
- case k_entity : return "k_entity";
- case k_type : return "k_type";
- case k_ir_graph : return "k_ir_graph";
- case k_ir_node : return "k_ir_node";
- case k_ir_mode : return "k_ir_mode";
- case k_ir_op : return "k_ir_op";
- case k_tarval : return "k_tarval";
- case k_ir_loop : return "k_ir_loop";
- case k_ir_compound_graph_path : return "k_ir_compound_graph_path";
- case k_ir_extblk : return "k_ir_extblk";
- case k_ir_prog : return "k_ir_prog";
- case k_ir_region : return "k_ir_region";
-
- default: return "";
- }
-} /* print_firm_kind */
-
-/*
- * identify a firm thing
- */
-void firm_identify_thing(void *X)
-{
- if (! X) {
- printf("(NULL)\n");
- return;
- }
-
- switch (get_kind(X)) {
- case k_BAD:
- printf("BAD: (%p)\n", X);
- break;
- case k_entity:
- printf("entity: %s: %ld (%p)\n", get_entity_name(X), get_entity_nr(X), X);
- break;
- case k_type: {
- char buf[256];
- ir_print_type(buf, sizeof(buf), X);
- printf("type: %s '%s': %ld (%p)\n", get_type_tpop_name(X), buf, get_type_nr(X), X);
- break;
- }
- case k_ir_graph:
- printf("graph: %s: %ld (%p)\n", get_entity_name(get_irg_entity(X)), get_irg_graph_nr(X), X);
- break;
- case k_ir_node:
- printf("irnode: %s %s %ld (%p)\n", get_irn_opname(X), get_mode_name(get_irn_mode(X)), get_irn_node_nr(X), X);
- break;
- case k_ir_mode:
- printf("mode %s: (%p)\n", get_mode_name(X), X);
- break;
- case k_ir_op:
- printf("op %s: (%p)\n", get_op_name(X), X);
- break;
- case k_tarval:
- printf("tarval : "); tarval_printf(X); printf(" (%p)\n", X);
- break;
- case k_ir_loop:
- printf("loop: with depth %d: (%p)\n", get_loop_depth(X), X);
- break;
- case k_ir_compound_graph_path:
- printf("compound_graph_path: (%p)\n", X);
- break;
- case k_ir_extblk:
- printf("extended block: (%p)\n", X);
- break;
- case k_ir_prog:
- printf("irp: (%p)\n", X);
- break;
- case k_ir_region:
- printf("region: (%p)\n", X);
- break;
- default:
- printf("Cannot identify thing at (%p).\n", X);
- }
-} /* firm_identify_thing */