/*
- * Copyright (C) 1995-2007 University of Karlsruhe. All right reserved.
+ * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
*
* This file is part of libFirm.
*
if (is_Call(call)) {
call_ptr = get_Call_ptr(call);
- /* Call pointer must be a SymConst*/
- if (op_SymConst != get_irn_op(call_ptr))
- return;
- /* Call pointer must be the address of an entity.*/
- if (get_SymConst_kind(call_ptr) != symconst_addr_ent)
+ if (! is_SymConst_addr_ent(call_ptr))
return;
callee = get_SymConst_entity(call_ptr);
irn_copy = get_irn_link(irn);
if (is_Block(irn)) {
+ set_Block_MacroBlock(irn_copy, get_irn_link(get_Block_MacroBlock(irn)));
for (i = get_Block_n_cfgpreds(irn) - 1; i >= 0; i--) {
pred = get_Block_cfgpred(irn, i);
/* "End" block must be handled extra, because it is not matured.*/
sym.entity_p = new_entity;
rem = current_ir_graph;
current_ir_graph = get_const_code_irg();
- new_entity->value = new_SymConst(sym, symconst_addr_ent);
+ new_entity->value = new_SymConst(mode_P_code, sym, symconst_addr_ent);
current_ir_graph = rem;
/* The "new_entity" don't have this information. */
ir_node *bl = get_nodes_block(call);
sym.entity_p = new_entity;
- callee = new_r_SymConst(irg, bl, sym, symconst_addr_ent);
+ callee = new_r_SymConst(irg, bl, mode_P_code, sym, symconst_addr_ent);
mtp = get_entity_type(new_entity);
n_params = get_Call_n_params(call);