const char *prefix = "";
lc_arg_append(app, occ, "[", 1);
const char *prefix = "";
lc_arg_append(app, occ, "[", 1);
int n;
n = snprintf(buf, sizeof(buf), "%s%d", prefix, (int) p);
int n;
n = snprintf(buf, sizeof(buf), "%s%d", prefix, (int) p);
return lc_arg_append(app, occ, buf, strlen(buf));
}
return lc_arg_append(app, occ, buf, strlen(buf));
}
break;
case k_entity:
snprintf(buf, sizeof(buf), "%s%s", A("ent"),
break;
case k_entity:
snprintf(buf, sizeof(buf), "%s%s", A("ent"),
snprintf(add, sizeof(add), "[%ld]", get_entity_nr(X));
break;
case k_type:
snprintf(add, sizeof(add), "[%ld]", get_entity_nr(X));
break;
case k_type:
snprintf(buf, sizeof(buf), "%s%s", A("op"), get_op_name(X));
break;
case k_ir_compound_graph_path:
snprintf(buf, sizeof(buf), "%s%s", A("op"), get_op_name(X));
break;
case k_ir_compound_graph_path:
- entity *ent = get_compound_graph_path_node(X, i);
+ ent = get_compound_graph_path_node(X, i);
+
+ strncat(buf, ".", sizeof(buf));
- if (i < n - 1)
- strncat(buf, ".", sizeof(buf));
+ if (is_Array_type(get_entity_owner(ent))) {
+ snprintf(add, sizeof(add), "[%d]",
+ get_compound_graph_path_array_index(X, i));
+ strncat(buf, add, sizeof(buf));
+ }
default:
snprintf(buf, sizeof(buf), "UNKWN");
snprintf(add, sizeof(add), "[%p]", X);
}
}
default:
snprintf(buf, sizeof(buf), "UNKWN");
snprintf(add, sizeof(add), "[%p]", X);
}
}
strncat(buf, add, sizeof(buf));
return lc_arg_append(app, occ, buf, strlen(buf));
strncat(buf, add, sizeof(buf));
return lc_arg_append(app, occ, buf, strlen(buf));
lc_arg_register(env, "firm:indent", 'D', &indent_handler);
lc_arg_register(env, "firm:pnc", '=', &pnc_handler);
lc_arg_register(env, "firm:dbg_info", 'G', &debug_handler);
lc_arg_register(env, "firm:indent", 'D', &indent_handler);
lc_arg_register(env, "firm:pnc", '=', &pnc_handler);
lc_arg_register(env, "firm:dbg_info", 'G', &debug_handler);
- /* lc_arg_register(env, "firm:bitset", 'b', &bitset_handler); */
+ lc_arg_register(env, "firm:bitset", 'B', &bitset_handler);