# include "irbackedge_t.h"
# include "irflag_t.h"
# include "firmstat.h"
+# include "cgana.h"
/* Defined in iropt.c */
pset *new_identities (void);
/* Handle graph state */
assert(get_irg_phase_state(current_ir_graph) != phase_building);
- assert(get_irg_callee_info_state(current_ir_graph) == irg_callee_info_none);
+ free_callee_info(current_ir_graph);
free_outs(current_ir_graph);
-
/* @@@ so far we loose loops when copying */
free_loop_information(current_ir_graph);
current_ir_graph = irg;
/* Handle graph state */
assert(get_irg_phase_state(current_ir_graph) != phase_building);
- assert(get_irg_callee_info_state(current_ir_graph) == irg_callee_info_none);
+ free_callee_info(current_ir_graph);
/* Find Call nodes to inline.
(We can not inline during a walk of the graph, as inlineing the same
for (i = 0; i < n_irgs; ++i) {
current_ir_graph = get_irp_irg(i);
assert(get_irg_phase_state(current_ir_graph) != phase_building);
- assert(get_irg_callee_info_state(current_ir_graph) == irg_callee_info_none);
+ free_callee_info(current_ir_graph);
irg_walk(get_irg_end(current_ir_graph), NULL, collect_calls2,
get_irg_link(current_ir_graph));
/* res->obst = (struct obstack *) xmalloc (sizeof (struct obstack)); */
res->graphs = NEW_ARR_F (ir_graph *, 1);
res->types = NEW_ARR_F (type *, 1);
- res->name = NULL;
+ res->name = new_id_from_str("no_name_set");
#ifdef DEBUG_libfirm
res->max_node_nr = 0;
# include <config.h>
#endif
+# include "irprog.h"
# include "irgraph_t.h"
# include "irvrfy.h"
# include "irgwalk.h"
static node_verification_t opt_do_node_verification = NODE_VERIFICATION_ON;
static const char *bad_msg;
-
-/** Borrowed from interprete.c
-static entity *hunt_for_entity (ir_node *addr, ir_node *load) {
- ir_op *op = get_irn_op(addr);
- if (op == op_Sel)
- return get_Sel_entity(addr);
- if (op == op_Const) {
- tarval *tv = get_Const_tarval(addr);
- assert(tarval_is_entity(tv));
- return get_tarval_entity(tv);
- }
-
- if(get_irn_opcode(load) == iro_Load)
- return(NULL);
- assert(0 && "unexpected address expression.");
- return NULL;
-}
-*/
/**
* little helper for NULL modes
*/
);
break;
- case iro_Const:
+ case iro_Const: {
+ tarval *tv = get_Const_tarval(n);
+ if (tarval_is_entity(tv))
+ assert((get_irn_irg(n) == get_const_code_irg() ||
+ get_entity_peculiarity(tarval_to_entity(tv)) != peculiarity_description) &&
+ "descriptions have no address!");
ASSERT_AND_RET(
/* Const: BB --> data */
(mode_is_data (mymode) ||
mymode == mode_b) /* we want boolean constants for static evaluation */
,"Const node", 0 /* of Cmp. */
);
- break;
+ } break;
case iro_SymConst:
ASSERT_AND_RET(