/*
- * 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.
*
# include "config.h"
#endif
-#ifdef HAVE_STRING_H
-#include <string.h>
-#endif
+#ifdef INTERPROCEDURAL_VIEW
+#include <string.h>
#include <stdbool.h>
#include "ircgcons.h"
* auch wenn sie nicht im intraprozeduralen Graphen erreichbar
* sind. */
link(start, get_irg_frame(irg));
- link(start, get_irg_globals(irg));
/* walk */
irg_walk_graph(irg, firm_clear_link, (irg_walk_func *) collect_phicallproj_walker, &end);
}
}
/* Globle Einträge für ersetzte Operationen korrigieren. */
- set_irg_frame (irg, skip_Id(get_irg_frame(irg)));
- set_irg_globals (irg, skip_Id(get_irg_globals(irg)));
- set_irg_initial_mem(irg, skip_Id(get_irg_initial_mem(irg)));
+ set_irg_initial_exec(irg, skip_Id(get_irg_initial_exec(irg)));
+ set_irg_frame (irg, skip_Id(get_irg_frame(irg)));
+ set_irg_initial_mem (irg, skip_Id(get_irg_initial_mem(irg)));
/* Unbekannten Aufrufer sofort eintragen. */
if (data->open) {
/* Abhängigkeiten vom Start-Block und den Filter-Operationen im
* Start-Block auf den Aufrufer hinzufügen. */
static void construct_start(ir_entity * caller, ir_entity * callee,
- ir_node * call, ir_node * exec) {
+ ir_node * call, ir_node * exec)
+{
irg_data_t *data = get_entity_link(callee);
ir_graph *irg = get_entity_irg(callee);
ir_node *start = get_irg_start(irg);
ir_node *filter;
+ (void) caller;
assert(irg);
assert(get_entity_peculiarity(callee) == peculiarity_existent); /* Else data is not initalized. */
return true;
}
+#ifdef INTERPROCEDURAL_VIEW
/* Grundblock der Call-Operation aufteilen. CallBegin- und Filter-Operationen
* einfügen. Die Steuer- und Datenflussabhängigkeiten von den aufgerufenen
* Methoden auf die CallBegin-Operation, und von der Aufrufstelle auf die
DEL_ARR_F(irgs);
DEL_ARR_F(data);
}
+#endif
void cg_construct(int arr_len, ir_entity ** free_methods_arr) {
-static void destruct_walker(ir_node * node, void * env) {
+static void destruct_walker(ir_node * node, void * env)
+{
+ (void) env;
if (get_irn_op(node) == op_Block) {
remove_Block_cg_cfgpred_arr(node);
/* Do not turn Break into Jmp. Better: merge blocks right away.
ir_graph * irg = get_irp_irg(i);
irg_walk_graph(irg, destruct_walker, firm_clear_link, NULL);
- set_irg_frame (irg, skip_Id(get_irg_frame(irg)));
- set_irg_globals (irg, skip_Id(get_irg_globals(irg)));
- set_irg_initial_mem(irg, skip_Id(get_irg_initial_mem(irg)));
- set_irg_end_reg (irg, get_irg_end(irg));
- set_irg_end_except (irg, get_irg_end(irg));
+ set_irg_initial_exec(irg, skip_Id(get_irg_initial_exec(irg)));
+ set_irg_frame (irg, skip_Id(get_irg_frame(irg)));
+ set_irg_initial_mem (irg, skip_Id(get_irg_initial_mem(irg)));
+ set_irg_end_reg (irg, get_irg_end(irg));
+ set_irg_end_except (irg, get_irg_end(irg));
set_irg_callee_info_state(irg, irg_callee_info_none);
}
set_irp_ip_view(ip_view_no);
}
}
+
+#endif