/*
- * Project: libFIRM
- * File name: ir/ir/irargs.c
- * Purpose: Support for libcore IR object output.
- * Author: Sebastian Hack
- * Modified by:
- * Created:
- * CVS-ID: $Id$
- * Copyright: (c) 1998-2005 Universitaet Karlsruhe
- * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE.
+ * Copyright (C) 1995-2007 University of Karlsruhe. All right reserved.
+ *
+ * This file is part of libFirm.
+ *
+ * This file may be distributed and/or modified under the terms of the
+ * GNU General Public License version 2 as published by the Free Software
+ * Foundation and appearing in the file LICENSE.GPL included in the
+ * packaging of this file.
+ *
+ * Licensees holding valid libFirm Professional Edition licenses may use
+ * this file in accordance with the libFirm Commercial License.
+ * Agreement provided with the Software.
+ *
+ * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
+ * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE.
*/
+/**
+ * @file
+ * @brief Support for libcore IR object output.
+ * @author Sebastian Hack
+ * @version $Id$
+ */
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
* identify a firm object type
*/
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) {
+ (void) occ;
return lc_arg_type_int;
}
static int bitset_get_arg_type(const lc_arg_occ_t *occ) {
+ (void) occ;
return lc_arg_type_ptr;
}
/**
* Beware: do not set the entity ld_name
*/
-static const char *get_entity_ld_name_ex(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);
char add[64];
char buf[256];
char tv_buf[256];
- entity *ent;
+ ir_entity *ent;
buf[0] = '\0';
add[0] = '\0';
snprintf(add, sizeof(add), "[%ld]", get_type_nr(X));
break;
case k_ir_graph:
- snprintf(buf, sizeof(buf), "%s%s", A("irg"), get_entity_name(get_irg_entity(X)));
+ if (X == get_const_code_irg())
+ snprintf(buf, sizeof(buf), "%s<ConstCodeIrg>", 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));
break;
case k_ir_node:
snprintf(buf, sizeof(buf), "%s%s", A("tv"), tv_buf);
break;
case k_ir_loop:
- snprintf(buf, sizeof(buf), "ldepth[%d]", get_loop_depth(X));
+ snprintf(buf, sizeof(buf), "loop[%d:%d]", get_loop_loop_nr(X), get_loop_depth(X));
break;
case k_ir_op:
snprintf(buf, sizeof(buf), "%s%s", A("op"), get_op_name(X));
X("irn_nr", 'N'),
X("mode", 'm'),
X("block", 'B'),
- X("pnc", '='),
X("cg_path", 'P'),
};
- int i;
+ size_t i;
if(env == NULL) {
env = lc_arg_new_env();
lc_arg_register(env, "firm:indent", '>', &indent_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:pnc", '=', &pnc_handler);
}
return env;