#include <stddef.h>
-# include "xmalloc.h"
-# include "ircons.h"
-# include "irgraph_t.h"
-# include "irprog_t.h"
-# include "irnode_t.h"
-# include "iropt_t.h"
-# include "irflag_t.h"
-# include "array.h"
-# include "irgmod.h"
-# include "mangle.h"
-# include "irouts.h"
-# include "irhooks.h"
-# include "irgwalk.h"
+#include "xmalloc.h"
+#include "ircons.h"
+#include "irgraph_t.h"
+#include "irprog_t.h"
+#include "irnode_t.h"
+#include "iropt_t.h"
+#include "irflag_t.h"
+#include "array.h"
+#include "irgmod.h"
+#include "mangle.h"
+#include "irouts.h"
+#include "irhooks.h"
+#include "irtools.h"
+#include "irgwalk.h"
+#include "iredges_t.h"
+#include "type_t.h"
/**
* Indicates, whether additional data can be registered to graphs.
}
-int __interprocedural_view = false;
+int firm_interprocedural_view = 0;
int (get_interprocedural_view)(void) {
return _get_interprocedural_view();
}
void (set_interprocedural_view)(int state) {
- __interprocedural_view = state;
+ firm_interprocedural_view = state;
/* set function vectors for faster access */
if (state) {
static ident *frame_type_suffix = NULL;
/* initialize the IR graph module */
-void init_irgraph(void) {
+void firm_init_irgraph(void) {
frame_type_suffix = new_id_from_str(FRAME_TP_SUFFIX);
- forbid_new_data = 1;
+ forbid_new_data = 1;
}
/**
* allocated (new_r_ir_graph, new_const_code_irg).
* @return Memory for a new graph.
*/
-static ir_graph *alloc_graph(void)
-{
- size_t size = sizeof(ir_graph) + additional_graph_data_size;
- char *ptr = xmalloc(size);
- memset(ptr, 0, size);
+static ir_graph *alloc_graph(void) {
+ size_t size = sizeof(ir_graph) + additional_graph_data_size;
+ char *ptr = xmalloc(size);
+ memset(ptr, 0, size);
+
+ return (ir_graph *) (ptr + additional_graph_data_size);
+}
- return (ir_graph *) (ptr + additional_graph_data_size);
+/**
+ * Frees an allocated IR graph
+ */
+static void free_graph(ir_graph *irg) {
+ char *ptr = (char *)irg;
+ free(ptr - additional_graph_data_size);
}
#if USE_EXPLICIT_PHI_IN_STACK
res = alloc_graph();
res->kind = k_ir_graph;
+ edges_init_graph(res);
+
/* inform statistics here, as blocks will be already build on this graph */
hook_new_graph(res, ent);
#endif
res->kind = k_ir_graph;
res->obst = xmalloc (sizeof(*res->obst));
- obstack_init (res->obst);
+ obstack_init(res->obst);
+ res->extbb_obst = NULL;
+
res->value_table = new_identities (); /* value table for global value
numbering for optimizing use in
iropt.c */
res->outs = NULL;
- res->phase_state = phase_building;
- res->op_pin_state_pinned = op_pin_state_pinned;
- res->outs_state = outs_none;
- res->dom_state = dom_none;
- res->typeinfo_state = irg_typeinfo_none;
- res->loopinfo_state = loopinfo_none;
+ res->inline_property = irg_inline_any;
+ res->additional_properties = mtp_property_inherited; /* inherited from type */
+
+ res->phase_state = phase_building;
+ res->irg_pinned_state = op_pin_state_pinned;
+ res->outs_state = outs_none;
+ res->dom_state = dom_none;
+ res->pdom_state = dom_none;
+ res->typeinfo_state = ir_typeinfo_none;
+ set_irp_typeinfo_inconsistent(); /* there is a new graph with typeinfo_none. */
+ res->callee_info_state = irg_callee_info_none;
+ res->loopinfo_state = loopinfo_none;
+ res->execfreq_state = exec_freq_none;
+ res->class_cast_state = ir_class_casts_transitive;
+ res->extblk_state = ir_extblk_info_none;
/*-- Type information for the procedure of the graph --*/
res->ent = ent;
set_entity_irg(ent, res);
/*-- a class type so that it can contain "inner" methods as in Pascal. --*/
- res->frame_type = new_type_class(mangle(get_entity_ident(ent), frame_type_suffix));
-
- /* Remove type from type list. Must be treated differently than other types. */
- remove_irp_type_from_list(res->frame_type);
+ res->frame_type = new_type_frame(mangle(get_entity_ident(ent), frame_type_suffix));
/*-- Nodes needed in every graph --*/
res->end_block = new_immBlock();
/* Proj results of start node */
projX = new_Proj (res->start, mode_X, pn_Start_X_initial_exec);
- res->frame = new_Proj (res->start, mode_P_mach, pn_Start_P_frame_base);
- res->globals = new_Proj (res->start, mode_P_mach, pn_Start_P_globals);
+ res->frame = new_Proj (res->start, mode_P_data, pn_Start_P_frame_base);
+ res->globals = new_Proj (res->start, mode_P_data, pn_Start_P_globals);
res->initial_mem = new_Proj (res->start, mode_M, pn_Start_M);
res->args = new_Proj (res->start, mode_T, pn_Start_T_args);
#ifdef DEBUG_libfirm
add_immBlock_pred (first_block, projX);
res->method_execution_frequency = -1;
+ res->estimated_node_count = 0;
return res;
}
res->kind = k_ir_graph;
res->obst = xmalloc (sizeof(*res->obst));
obstack_init (res->obst);
- res->phase_state = phase_building;
- res->op_pin_state_pinned = op_pin_state_pinned;
+ res->extbb_obst = NULL;
+
+ res->phase_state = phase_building;
+ res->irg_pinned_state = op_pin_state_pinned;
+ res->extblk_state = ir_extblk_info_none;
+
res->value_table = new_identities (); /* value table for global value
numbering for optimizing use in
iropt.c */
set_irn_visited(res->no_mem, -1);
res->phase_state = phase_high;
+
return res;
}
Does not free types, entities or modes that are used only by this
graph, nor the entity standing for this graph. */
void free_ir_graph (ir_graph *irg) {
+ assert(is_ir_graph(irg));
hook_free_graph(irg);
- if (irg->outs_state != outs_none) free_outs(irg);
+ if (irg->outs_state != outs_none) free_irg_outs(irg);
if (irg->frame_type) free_type(irg->frame_type);
if (irg->value_table) del_identities(irg->value_table);
if (irg->ent) {
if (irg->loc_descriptions)
free(irg->loc_descriptions);
irg->kind = k_BAD;
- free(irg);
+ free_graph(irg);
}
/* access routines for all ir_graph attributes:
}
/* Outputs a unique number for this node */
-
-long
-get_irg_graph_nr(ir_graph *irg) {
+long get_irg_graph_nr(ir_graph *irg) {
assert(irg);
#ifdef DEBUG_libfirm
return irg->graph_nr;
#else
- return (long)irg;
+ return (long)PTR_TO_INT(irg);
#endif
}
_set_irg_entity(irg, ent);
}
-type *
-(get_irg_frame_type)(const ir_graph *irg) {
+ir_type *
+(get_irg_frame_type)(ir_graph *irg) {
return _get_irg_frame_type(irg);
}
void
-(set_irg_frame_type)(ir_graph *irg, type *ftp) {
+(set_irg_frame_type)(ir_graph *irg, ir_type *ftp) {
_set_irg_frame_type(irg, ftp);
}
-
-/* To test for a frame type */
-int
-is_frame_type(const type *ftp) {
- int i;
- if (is_Class_type(ftp)) {
- for (i = 0; i < get_irp_n_irgs(); i++) {
- const type *frame_tp = get_irg_frame_type(get_irp_irg(i));
- if (ftp == frame_tp) return true;
- }
- }
- return false;
-}
-
int
get_irg_n_locs (ir_graph *irg)
{
struct _obstack_chunk *p;
/*
- * checks wheater the ir_node pointer i on the obstack.
+ * checks weather the ir_node pointer is on the obstack.
* A more sophisticated check would test the "whole" ir_node
*/
for (p = irg->obst->chunk; p; p = p->prev) {
_set_irg_outs_inconsistent(irg);
}
+irg_extblk_state
+(get_irg_extblk_state)(const ir_graph *irg) {
+ return _get_irg_extblk_state(irg);
+}
+
+void
+(set_irg_extblk_inconsistent)(ir_graph *irg) {
+ _set_irg_extblk_inconsistent(irg);
+}
+
irg_dom_state
(get_irg_dom_state)(const ir_graph *irg) {
return _get_irg_dom_state(irg);
}
+irg_dom_state
+(get_irg_postdom_state)(const ir_graph *irg) {
+ return _get_irg_postdom_state(irg);
+}
+
void
-(set_irg_dom_inconsistent)(ir_graph *irg) {
- _set_irg_dom_inconsistent(irg);
+(set_irg_doms_inconsistent)(ir_graph *irg) {
+ _set_irg_doms_inconsistent(irg);
}
irg_loopinfo_state
}
void
-set_irg_loopinfo_inconsistent(ir_graph *irg) {
- if (irg->loopinfo_state == loopinfo_ip_consistent)
- irg->loopinfo_state = loopinfo_ip_inconsistent;
+(set_irg_loopinfo_inconsistent)(ir_graph *irg) {
+ _set_irg_loopinfo_inconsistent(irg);
+}
- else if (irg->loopinfo_state == loopinfo_consistent)
- irg->loopinfo_state = loopinfo_inconsistent;
+void set_irp_loopinfo_inconsistent(void) {
+ int i, n_irgs = get_irp_n_irgs();
+ for (i = 0; i < n_irgs; ++i) {
+ set_irg_loopinfo_inconsistent(get_irp_irg(i));
+ }
+}
- else if (irg->loopinfo_state == loopinfo_cf_ip_consistent)
- irg->loopinfo_state = loopinfo_cf_ip_inconsistent;
- else if (irg->loopinfo_state == loopinfo_cf_consistent)
- irg->loopinfo_state = loopinfo_cf_inconsistent;
-}
void
(set_irg_pinned)(ir_graph *irg, op_pin_state p) {
_set_irg_inline_property(irg, s);
}
+unsigned
+(get_irg_additional_properties)(const ir_graph *irg) {
+ return _get_irg_additional_properties(irg);
+}
+
+void
+(set_irg_additional_properties)(ir_graph *irg, unsigned property_mask) {
+ _set_irg_additional_properties(irg, property_mask);
+}
+
+void
+(set_irg_additional_property)(ir_graph *irg, mtp_additional_property flag) {
+ _set_irg_additional_property(irg, flag);
+}
+
void
(set_irg_link)(ir_graph *irg, void *thing) {
_set_irg_link(irg, thing);
assert(0 <= n && n < irg->n_loc);
if (! irg->loc_descriptions)
- irg->loc_descriptions = xmalloc(sizeof(*irg->loc_descriptions) * irg->n_loc);
+ irg->loc_descriptions = xcalloc(sizeof(*irg->loc_descriptions), irg->n_loc);
irg->loc_descriptions[n] = description;
}
return irg->loc_descriptions ? irg->loc_descriptions[n] : NULL;
}
+/* Returns a estimated node count of the irg. */
+unsigned (get_irg_estimated_node_cnt)(const ir_graph *irg) {
+ return _get_irg_estimated_node_cnt(irg);
+}
+
/* register additional space in an IR graph */
size_t register_additional_graph_data(size_t size)
{
projects / libfirm / blobdiff