X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firgraph.c;h=0b033a1c581d3f6bc7a9504ab85c7a969861feb6;hb=d3e8303285c4f2ef23c9e65ea5842c4bd4a071a5;hp=f9454a1e8bb9260a6c303db21dc27b6ef8f7a17f;hpb=b5120954ba6ccf704d26ba6ac78a0339824df886;p=libfirm diff --git a/ir/ir/irgraph.c b/ir/ir/irgraph.c index f9454a1e8..0b033a1c5 100644 --- a/ir/ir/irgraph.c +++ b/ir/ir/irgraph.c @@ -17,8 +17,9 @@ #ifdef HAVE_STRING_H # include #endif - -#include +#ifdef HAVE_STDDEF_H +# include +#endif #include "xmalloc.h" #include "ircons.h" @@ -37,6 +38,8 @@ #include "iredges_t.h" #include "type_t.h" +#define INITIAL_IDX_IRN_MAP_SIZE 1024 + /** * Indicates, whether additional data can be registered to graphs. * If set to 1, this is not possible anymore. @@ -138,6 +141,10 @@ new_r_ir_graph (entity *ent, int n_loc) edges_init_graph(res); + /* initialize the idx->node map. */ + res->idx_irn_map = NEW_ARR_F(ir_node *, INITIAL_IDX_IRN_MAP_SIZE); + memset(res->idx_irn_map, 0, INITIAL_IDX_IRN_MAP_SIZE * sizeof(res->idx_irn_map[0])); + /* inform statistics here, as blocks will be already build on this graph */ hook_new_graph(res, ent); @@ -195,6 +202,7 @@ new_r_ir_graph (entity *ent, int n_loc) res->execfreq_state = exec_freq_none; res->class_cast_state = ir_class_casts_transitive; res->extblk_state = ir_extblk_info_none; + res->fp_model = fp_model_precise; /*-- Type information for the procedure of the graph --*/ res->ent = ent; @@ -218,11 +226,13 @@ new_r_ir_graph (entity *ent, int n_loc) set_irg_start (res, start); /* Proj results of start node */ - projX = new_Proj(start, mode_X, pn_Start_X_initial_exec); - set_irg_frame (res, new_Proj(start, mode_P_data, pn_Start_P_frame_base)); - set_irg_globals (res, new_Proj(start, mode_P_data, pn_Start_P_globals)); - set_irg_args (res, new_Proj(start, mode_T, pn_Start_T_args)); - initial_mem = new_Proj(start, mode_M, pn_Start_M); + projX = new_Proj(start, mode_X, pn_Start_X_initial_exec); + set_irg_frame (res, new_Proj(start, mode_P_data, pn_Start_P_frame_base)); + set_irg_globals (res, new_Proj(start, mode_P_data, pn_Start_P_globals)); + set_irg_tls (res, new_Proj(start, mode_P_data, pn_Start_P_tls)); + set_irg_args (res, new_Proj(start, mode_T, pn_Start_T_args)); + set_irg_value_param_base(res, new_Proj(start, mode_P_data, pn_Start_P_value_arg_base)); + initial_mem = new_Proj(start, mode_M, pn_Start_M); set_irg_initial_mem(res, initial_mem); add_immBlock_pred(start_block, projX); @@ -238,11 +248,11 @@ new_r_ir_graph (entity *ent, int n_loc) * Use of this edge is matter of discussion, unresolved. Also possible: * add_immBlock_pred(res->start_block, res->start_block), but invalid typed. */ - mature_immBlock (res->current_block); + mature_immBlock(res->current_block); /*-- Make a block to start with --*/ first_block = new_immBlock(); - add_immBlock_pred (first_block, projX); + add_immBlock_pred(first_block, projX); res->method_execution_frequency = -1; res->estimated_node_count = 0; @@ -252,14 +262,14 @@ new_r_ir_graph (entity *ent, int n_loc) ir_graph * -new_ir_graph (entity *ent, int n_loc) +new_ir_graph(entity *ent, int n_loc) { - ir_graph *res = new_r_ir_graph (ent, n_loc); + ir_graph *res = new_r_ir_graph(ent, n_loc); add_irp_irg(res); /* remember this graph global. */ return res; } -/* Make a rudimentary ir graph for the constant code. +/* Make a rudimentary IR graph for the constant code. Must look like a correct irg, spare everything else. */ ir_graph *new_const_code_irg(void) { ir_graph *res; @@ -267,6 +277,10 @@ ir_graph *new_const_code_irg(void) { res = alloc_graph(); + /* initialize the idx->node map. */ + res->idx_irn_map = NEW_ARR_F(ir_node *, INITIAL_IDX_IRN_MAP_SIZE); + memset(res->idx_irn_map, 0, INITIAL_IDX_IRN_MAP_SIZE * sizeof(res->idx_irn_map[0])); + /* inform statistics here, as blocks will be already build on this graph */ hook_new_graph(res, NULL); @@ -287,6 +301,7 @@ ir_graph *new_const_code_irg(void) { res->phase_state = phase_building; res->irg_pinned_state = op_pin_state_pinned; res->extblk_state = ir_extblk_info_none; + res->fp_model = fp_model_precise; res->value_table = new_identities (); /* value table for global value numbering for optimizing use in @@ -468,6 +483,16 @@ void _set_irg_globals(irg, node); } +ir_node * +(get_irg_tls)(const ir_graph *irg) { + return _get_irg_tls(irg); +} + +void +(set_irg_tls)(ir_graph *irg, ir_node *node) { + _set_irg_tls(irg, node); +} + ir_node * (get_irg_initial_mem)(const ir_graph *irg) { return _get_irg_initial_mem(irg); @@ -488,6 +513,16 @@ void _set_irg_args(irg, node); } +ir_node * +(get_irg_value_param_base)(const ir_graph *irg) { + return _get_irg_value_param_base(irg); +} + +void +(set_irg_value_param_base)(ir_graph *irg, ir_node *node) { + _set_irg_value_param_base(irg, node); +} + ir_node ** (get_irg_proj_args) (const ir_graph *irg) { return _get_irg_proj_args (irg); @@ -786,6 +821,15 @@ void _inc_irg_block_visited(irg); } +/* Return the floating point model of this graph. */ +unsigned (get_irg_fp_model)(const ir_graph *irg) { + return _get_irg_fp_model(irg); +} + +/* Sets the floating point model for this graph. */ +void set_irg_fp_model(ir_graph *irg, unsigned model) { + irg->fp_model = model; +} /** * walker Start->End: places Proj nodes into the same block @@ -794,8 +838,7 @@ void * @param n the node * @param env ignored */ -static void normalize_proj_walker(ir_node *n, void *env) -{ +static void normalize_proj_walker(ir_node *n, void *env){ if (is_Proj(n)) { ir_node *pred = get_Proj_pred(n); ir_node *block = get_nodes_block(pred); @@ -805,15 +848,13 @@ static void normalize_proj_walker(ir_node *n, void *env) } /* move Proj nodes into the same block as its predecessors */ -void normalize_proj_nodes(ir_graph *irg) -{ +void normalize_proj_nodes(ir_graph *irg) { irg_walk_graph(irg, NULL, normalize_proj_walker, NULL); set_irg_outs_inconsistent(irg); } /* set a description for local value n */ -void set_irg_loc_description(ir_graph *irg, int n, void *description) -{ +void set_irg_loc_description(ir_graph *irg, int n, void *description) { assert(0 <= n && n < irg->n_loc); if (! irg->loc_descriptions) @@ -823,8 +864,7 @@ void set_irg_loc_description(ir_graph *irg, int n, void *description) } /* get the description for local value n */ -void *get_irg_loc_description(ir_graph *irg, int n) -{ +void *get_irg_loc_description(ir_graph *irg, int n) { assert(0 <= n && n < irg->n_loc); return irg->loc_descriptions ? irg->loc_descriptions[n] : NULL; }