X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;ds=sidebyside;f=ir%2Fir%2Firargs.c;h=2432daa169f1880cef77ac613c657fa69470ee7e;hb=8c9aa24a1f17891325986165a58434cf75f96f6d;hp=bdc546d0d8d5b0da378d015c4ab73f25034be0d3;hpb=05ea88e192e74d381d74c6336e36fd972d7d728e;p=libfirm diff --git a/ir/ir/irargs.c b/ir/ir/irargs.c index bdc546d0d..2432daa16 100644 --- a/ir/ir/irargs.c +++ b/ir/ir/irargs.c @@ -1,5 +1,5 @@ /* - * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. + * Copyright (C) 1995-2011 University of Karlsruhe. All right reserved. * * This file is part of libFirm. * @@ -21,16 +21,14 @@ * @file * @brief Support for libcore IR object output. * @author Sebastian Hack - * @version $Id$ */ -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif +#include "config.h" -#include "bitset.h" +#include "irargs_t.h" #include +#include "bitset.h" #include "lc_printf.h" #include "firm_common.h" #include "irnode_t.h" @@ -38,23 +36,27 @@ #include "irloop_t.h" #include "tv_t.h" #include "dbginfo_t.h" +#include "util.h" /** * identify a firm object type */ -static int firm_get_arg_type(const lc_arg_occ_t *occ) { +static int firm_get_arg_type(const lc_arg_occ_t *occ) +{ (void) occ; /* Firm objects are always pointer */ return lc_arg_type_ptr; } -static int firm_get_arg_type_int(const lc_arg_occ_t *occ) { +static int firm_get_arg_type_int(const lc_arg_occ_t *occ) +{ (void) occ; return lc_arg_type_int; } -static int bitset_get_arg_type(const lc_arg_occ_t *occ) { +static int bitset_get_arg_type(const lc_arg_occ_t *occ) +{ (void) occ; return lc_arg_type_ptr; } @@ -63,8 +65,8 @@ static int bitset_emit(lc_appendable_t *app, const lc_arg_occ_t *occ, const lc_arg_value_t *arg) { int res = 2; - bitset_t *b = arg->v_ptr; - bitset_pos_t p; + bitset_t *b = (bitset_t*)arg->v_ptr; + size_t p; char buf[32]; const char *prefix = ""; @@ -89,21 +91,18 @@ static int firm_emit_dbg(lc_appendable_t *app, const lc_arg_occ_t *occ, const lc_arg_value_t *arg) { char buf[1024]; - ir_node *irn = arg->v_ptr; + ir_node *irn = (ir_node*)arg->v_ptr; dbg_info *dbg = get_irn_dbg_info(irn); - buf[0] = '\0'; - if (dbg && __dbg_info_snprint) { - if (__dbg_info_snprint(buf, sizeof(buf), dbg) <= 0) - buf[0] = '\0'; - } + ir_dbg_info_snprint(buf, sizeof(buf), dbg); return lc_arg_append(app, occ, buf, strlen(buf)); } /** * Beware: do not set the entity ld_name */ -static const char *get_entity_ld_name_ex(ir_entity *ent) { +static const char *get_entity_ld_name_ex(ir_entity *ent) +{ if (ent->ld_name) return get_entity_ld_name(ent); return get_entity_name(ent); @@ -117,114 +116,123 @@ static int firm_emit(lc_appendable_t *app, { #define A(s) occ->flag_hash ? s " ": "" - void *X = arg->v_ptr; - firm_kind *obj = X; - int i, n; + void *X = (void*)arg->v_ptr; + firm_kind *obj = (firm_kind*)X; ir_node *block; char add[64]; char buf[256]; char tv_buf[256]; - ir_entity *ent; buf[0] = '\0'; add[0] = '\0'; - if (! X) - strncpy(buf, "(null)", sizeof(buf)); - else { - switch (*obj) { + if (X == NULL) { + return lc_arg_append(app, occ, "(null)", 6); + } + + switch (*obj) { case k_BAD: snprintf(buf, sizeof(buf), "BAD"); snprintf(add, sizeof(add), "[%p]", X); break; - case k_entity: + case k_entity: { + ir_entity *entity = (ir_entity*)X; snprintf(buf, sizeof(buf), "%s%s", A("ent"), - isupper(occ->conversion) ? get_entity_ld_name_ex(X): get_entity_name(X)); - snprintf(add, sizeof(add), "[%ld]", get_entity_nr(X)); + isupper((unsigned char)occ->conversion) ? get_entity_ld_name_ex(entity): get_entity_name(entity)); + snprintf(add, sizeof(add), "[%ld]", get_entity_nr(entity)); break; - case k_type: - snprintf(buf, sizeof(buf), "%s%s:%s", A("type"), get_type_tpop_name(X), get_type_name(X)); - snprintf(add, sizeof(add), "[%ld]", get_type_nr(X)); + } + case k_type: { + ir_type *type = (ir_type*)X; + char type_name[256]; + ir_print_type(type_name, sizeof(type_name), type); + snprintf(buf, sizeof(buf), "%s%s:%s", A("type"), + get_type_tpop_name(type), type_name); + snprintf(add, sizeof(add), "[%ld]", get_type_nr(type)); break; - case k_ir_graph: - if (X == get_const_code_irg()) + } + case k_ir_graph: { + ir_graph *irg = (ir_graph*)X; + if (irg == get_const_code_irg()) snprintf(buf, sizeof(buf), "%s", A("irg")); else - snprintf(buf, sizeof(buf), "%s%s", A("irg"), get_entity_name(get_irg_entity(X))); - snprintf(add, sizeof(add), "[%ld]", get_irg_graph_nr(X)); + snprintf(buf, sizeof(buf), "%s%s", A("irg"), get_entity_name(get_irg_entity(irg))); + snprintf(add, sizeof(add), "[%ld]", get_irg_graph_nr(irg)); break; - case k_ir_node: + } + case k_ir_node: { + ir_node *node = (ir_node*)X; switch (occ->conversion) { case 'B': - block = is_no_Block(X) ? get_nodes_block(X) : X; - snprintf(buf, sizeof(buf), "%s%s%s", A("irn"), get_irn_opname(block), - get_mode_name(get_irn_mode(block))); + block = !is_Block(node) ? get_nodes_block(node) : node; + snprintf(buf, sizeof(buf), "%s%s %s", A("irn"), + get_irn_opname(block), get_mode_name(get_irn_mode(block))); snprintf(add, sizeof(add), "[%ld]", get_irn_node_nr(block)); break; case 'N': - snprintf(buf, sizeof(buf), "%ld", get_irn_node_nr(X)); + snprintf(buf, sizeof(buf), "%ld", get_irn_node_nr(node)); break; default: - if (is_Const(X)) { - tarval *tv = get_Const_tarval(X); + if (is_Const(node)) { + ir_tarval *tv = get_Const_tarval(node); if (tv) tarval_snprintf(tv_buf, sizeof(tv_buf), tv); else strncpy(tv_buf, "(NULL)", sizeof(tv_buf)); - snprintf(buf, sizeof(buf), "%s%s%s<%s>", A("irn"), get_irn_opname(X), - get_mode_name(get_irn_mode(X)), tv_buf); - } - else - snprintf(buf, sizeof(buf), "%s%s%s", A("irn"), get_irn_opname(X), - get_mode_name(get_irn_mode(X))); - snprintf(add, sizeof(add), "[%ld:%d]", get_irn_node_nr(X), get_irn_idx(X)); + snprintf(buf, sizeof(buf), "%s%s %s<%s>", A("irn"), get_irn_opname(node), + get_mode_name(get_irn_mode(node)), tv_buf); + } else if (is_SymConst_addr_ent(node)) { + snprintf(buf, sizeof(buf), "%s%s %s[%s]", A("irn"), get_irn_opname(node), + get_mode_name(get_irn_mode(node)), get_entity_name(get_SymConst_entity(node))); + } else if (is_Sel(node)) { + ir_entity *entity = get_Sel_entity(node); + const char *entity_name = "(null)"; + if (entity != NULL) + entity_name = get_entity_name(entity); + snprintf(buf, sizeof(buf), "%s%s %s[%s]", A("irn"), get_irn_opname(node), + get_mode_name(get_irn_mode(node)), entity_name); + } else if (is_Cmp(node)) { + ir_relation relation = get_Cmp_relation(node); + snprintf(buf, sizeof(buf), "%s%s %s", A("irn"), get_irn_opname(node), get_relation_string(relation)); + } else { + snprintf(buf, sizeof(buf), "%s%s %s", A("irn"), get_irn_opname(node), + get_mode_name(get_irn_mode(node))); } - break; - case k_ir_mode: - snprintf(buf, sizeof(buf), "%s%s", A("mode"), get_mode_name(X)); - break; - case k_tarval: - tarval_snprintf(tv_buf, sizeof(tv_buf), X); - snprintf(buf, sizeof(buf), "%s%s", A("tv"), tv_buf); + snprintf(add, sizeof(add), "[%ld:%u]", get_irn_node_nr(node), get_irn_idx(node)); + } break; - case k_ir_loop: - snprintf(buf, sizeof(buf), "loop[%d:%d]", get_loop_loop_nr(X), get_loop_depth(X)); + } + case k_ir_mode: { + ir_mode *mode = (ir_mode*)X; + snprintf(buf, sizeof(buf), "%s%s", A("mode"), get_mode_name(mode)); break; - case k_ir_op: - snprintf(buf, sizeof(buf), "%s%s", A("op"), get_op_name(X)); + } + case k_tarval: { + ir_tarval *tarval = (ir_tarval*)X; + tarval_snprintf(tv_buf, sizeof(tv_buf), tarval); + snprintf(buf, sizeof(buf), "%s%s", A("tv"), tv_buf); break; - case k_ir_compound_graph_path: - n = get_compound_graph_path_length(X); - - for (i = 0; i < n; ++i) { - ent = get_compound_graph_path_node(X, i); - - strncat(buf, ".", sizeof(buf)); - strncat(buf, get_entity_name(ent), 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)); - } - } - add[0] = '\0'; + } + case k_ir_loop: { + ir_loop *loop = (ir_loop*)X; + snprintf(buf, sizeof(buf), "loop[%ld:%u]", get_loop_loop_nr(loop), get_loop_depth(loop)); break; - case k_ir_extblk: - snprintf(buf, sizeof(buf), "ExtBlock"); - snprintf(add, sizeof(add), "[%ld]", get_irn_node_nr(get_extbb_leader(X))); + } + case k_ir_op: { + ir_op *op = (ir_op*)X; + snprintf(buf, sizeof(buf), "%s%s", A("op"), get_op_name(op)); break; + } default: snprintf(buf, sizeof(buf), "UNKWN"); snprintf(add, sizeof(add), "[%p]", X); - } } if (occ->flag_plus) - strncat(buf, add, sizeof(buf)); + strncat(buf, add, sizeof(buf)-1); return lc_arg_append(app, occ, buf, strlen(buf)); - #undef A } @@ -263,7 +271,7 @@ static int firm_emit_pnc(lc_appendable_t *app, const lc_arg_occ_t *occ, const lc_arg_value_t *arg) { int value = arg->v_int; - const char *p = get_pnc_string(value); + const char *p = get_relation_string(value); return lc_arg_append(app, occ, p, strlen(p)); } @@ -284,18 +292,15 @@ lc_arg_env_t *firm_get_arg_env(void) const char *name; char letter; } args[] = { -#define X(name, letter) {"firm:" name, letter} - X("type", 't'), - X("entity", 'e'), - X("entity_ld", 'E'), - X("tarval", 'T'), - X("irn", 'n'), - X("op", 'O'), - X("irn_nr", 'N'), - X("mode", 'm'), - X("block", 'B'), - X("cg_path", 'P'), -#undef X + {"firm:type", 't'}, + {"firm:entity", 'e'}, + {"firm:entity_ld", 'E'}, + {"firm:tarval", 'T'}, + {"firm:irn", 'n'}, + {"firm:op", 'O'}, + {"firm:irn_nr", 'N'}, + {"firm:mode", 'm'}, + {"firm:block", 'B'}, }; size_t i; @@ -305,7 +310,7 @@ lc_arg_env_t *firm_get_arg_env(void) lc_arg_add_std(env); lc_arg_register(env, "firm", 'F', &firm_handler); - for (i = 0; i < sizeof(args)/sizeof(args[0]); ++i) + for (i = 0; i != ARRAY_SIZE(args); ++i) lc_arg_register(env, args[i].name, args[i].letter, &firm_handler); lc_arg_register(env, "firm:ident", 'I', &ident_handler);