-/** dumps something like:
- *
- * "prefix" "Name" (x): node1, ... node7,\n
- * "prefix" node8, ... node15,\n
- * "prefix" node16, node17\n
- */
-static void dump_node_list(FILE *F, firm_kind *k, const char *prefix,
- size_t (*get_entity_n_nodes)(firm_kind *ent),
- ir_node *(*get_entity_node)(firm_kind *ent, size_t pos),
- const char *name)
-{
- size_t i, n_nodes = get_entity_n_nodes(k);
- const char *comma = "";
-
- ir_fprintf(F, "%s %s (%zu):", prefix, name, n_nodes);
- for (i = 0; i < n_nodes; ++i) {
- if (i > 7 && !(i & 7)) { /* line break every eight node. */
- fprintf(F, ",\n%s ", prefix);
- comma = "";
- }
- fprintf(F, "%s ", comma);
- dump_node_label(F, get_entity_node(k, i));
- comma = ",";
- }
- fprintf(F, "\n");
-}
-
-/** dumps something like:
- *
- * "prefix" "Name" (x): node1, ... node7,\n
- * "prefix" node8, ... node15,\n
- * "prefix" node16, node17\n
- */
-static void dump_type_list(FILE *F, ir_type *tp, const char *prefix,
- size_t (*get_n_types)(const ir_type *tp),
- ir_type *(*get_type)(const ir_type *tp, size_t pos),
- const char *name)
-{
- size_t i, n_nodes = get_n_types(tp);
- const char *comma = "";
-
- ir_fprintf(F, "%s %s (%zu):", prefix, name, n_nodes);
- for (i = 0; i < n_nodes; ++i) {
- if (i > 7 && !(i & 7)) { /* line break every eight node. */
- fprintf(F, ",\n%s ", prefix);
- comma = "";
- }
- ir_fprintf(F, "%s %+F", comma, get_type(tp, i));
- comma = ",";
- }
- fprintf(F, "\n");
-}
-