X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fbecopyopt.h;h=701f00bdf9ebba10822c381e4d25d416f88a7787;hb=2822b67ee0e55acbdc420a9dc9a29d7e2b3f4723;hp=8e7654779621d37ec599a9f99a0cc56c7bd90427;hpb=48398403237b6bbc2e7d6fb46e22cff0f1d2d032;p=libfirm diff --git a/ir/be/becopyopt.h b/ir/be/becopyopt.h index 8e7654779..701f00bdf 100644 --- a/ir/be/becopyopt.h +++ b/ir/be/becopyopt.h @@ -29,7 +29,7 @@ #include "bechordal_t.h" #include "bearch.h" -#define DEBUG_IRG "MergeSort.c__merge__datab" +#define DEBUG_IRG "!!deflate.c__longest_match__datab" #define DEBUG_IRG_LVL_CO SET_LEVEL_1 #define DEBUG_IRG_LVL_HEUR SET_LEVEL_1 #define DEBUG_IRG_LVL_ILP SET_LEVEL_1 @@ -37,6 +37,9 @@ #define DEBUG_LVL_HEUR SET_LEVEL_0 #define DEBUG_LVL_ILP SET_LEVEL_0 +#define MIS_HEUR_TRIGGER 8 + + typedef int(*cost_fct_t)(ir_node*, ir_node*, int); /** @@ -45,8 +48,7 @@ typedef int(*cost_fct_t)(ir_node*, ir_node*, int); typedef struct _copy_opt_t { be_chordal_env_t *chordal_env; char *name; /**< ProgName__IrgName__RegClass */ - struct list_head units; /**< all units to optimize in right order */ - pset *roots; /**< used only temporary for detecting multiple appends */ + struct list_head units; /**< all units to optimize in specific order */ cost_fct_t get_costs; /**< function ptr used to get costs for copies */ struct obstack ob; } copy_opt_t; @@ -60,8 +62,9 @@ typedef struct _unit_t { int node_count; /**< size of the nodes array */ ir_node **nodes; /**< [0] is the root-node, others are non interfering args of it. */ int *costs; /**< costs[i] are arising, if nodes[i] has a different color */ + int inevitable_costs; /**< sum of costs of all args interfering with root */ int all_nodes_costs; /**< sum of all costs[i] */ - int min_nodes_costs; /**< a lower bound for this ou, considering only ifg (not coloring conflicts) */ + int min_nodes_costs; /**< a lower bound for the costs in costs[], determined by a max indep. set */ int sort_key; /**< maximum costs. controls the order of ou's in the struct list_head units. */ /* for heuristic */ @@ -69,11 +72,13 @@ typedef struct _unit_t { } unit_t; /* Helpers */ +#define get_arch_env(co) ((co)->chordal_env->main_env->arch_env) +#define get_irg(co) ((co)->chordal_env->irg) +#define get_irn_col(co, irn) \ + arch_register_get_index(arch_get_irn_register(get_arch_env(co), irn)) #define set_irn_col(co, irn, col) \ - arch_set_irn_register(co->chordal_env->arch_env, irn, 0, arch_register_for_index(co->chordal_env->cls, col)) + arch_set_irn_register(get_arch_env(co), irn, arch_register_for_index(co->chordal_env->cls, col)) -#define get_irn_col(co, irn) \ - arch_register_get_index(arch_get_irn_register(co->chordal_env->arch_env, irn, 0)) #define list_entry_units(lh) list_entry(lh, unit_t, units) @@ -88,23 +93,20 @@ copy_opt_t *new_copy_opt(be_chordal_env_t *chordal_env, int (*get_costs)(ir_node */ void free_copy_opt(copy_opt_t *co); - -#define is_Perm(arch_env, irn) (arch_irn_classify(arch_env, irn) == arch_irn_class_perm) - -/** - * A copy is a proj haning out of perm node - */ -#define is_Copy(arch_env, irn) (is_Proj(irn) && is_Perm(arch_env, get_Proj_pred(irn))) - -/** - * returns the corresponding argument of the perm node for a copy - */ #define get_Copy_src(irn) (get_irn_n(get_Proj_pred(irn), get_Proj_proj(irn))) +#define is_Perm(arch_env, irn) (arch_irn_classify(arch_env, irn) == arch_irn_class_perm) + +#define is_Reg_Phi(irn) (is_Phi(irn) && mode_is_data(get_irn_mode(irn))) +#define is_Copy(arch_env, irn) (is_Proj(irn) && is_Perm(arch_env, get_Proj_pred(irn))) +#define is_2addr_code(arch_env, irn, req) (arch_get_register_req(arch_env, req, irn, -1)->type == arch_register_req_type_should_be_same) /** - * Checks if a node is optimizable, viz. is a target of a 'copy-op' + * Checks if a node is optimizable, viz. has somthing to do with coalescing + * @param arch The architecture environment + * @param irn The irn to check + * @param req A register_requirement structure (used to check for 2-addr-code) */ -#define is_optimizable(arch_env, irn) (is_Phi(irn) || is_Copy(arch_env, irn)) +#define is_optimizable(arch, irn, req) (is_Reg_Phi(irn) || is_Copy(arch, irn) || is_2addr_code(arch, irn, req)) /** * Checks if the irn is a non-interfering argument of a node which 'is_optimizable' @@ -113,9 +115,7 @@ int is_optimizable_arg(const copy_opt_t *co, ir_node *irn); /** * Computes the costs of a copy according to loop depth - * @param root, arg: clear. - * @param pos: -1 for perm-copies. - * Else the argument position of arg in the phi node root. + * @param pos: the argument position of arg in the root arguments * @return Must be >= 0 in all cases. */ int get_costs_loop_depth(ir_node *root, ir_node* arg, int pos); @@ -127,13 +127,28 @@ int get_costs_loop_depth(ir_node *root, ir_node* arg, int pos); int get_costs_all_one(ir_node *root, ir_node* arg, int pos); /** - * Returns the current costs the copies are causing + * Returns the maximal costs possible, i.e. the costs if all + * pairs would be assigned different registers. + */ +int co_get_max_copy_costs(const copy_opt_t *co); + +/** + * Returns the inevitable costs, i.e. the costs of + * all copy pairs which interfere. + */ +int co_get_inevit_copy_costs(const copy_opt_t *co); + +/** + * Returns the current costs the copies are causing. + * The result includes inevitable costs and the costs + * of the copies regarding the current register allocation */ int co_get_copy_costs(const copy_opt_t *co); /** - * Returns a lower bound for the costs of copies based on interfering - * arguments and the size of a max indep. set (only ifg-edges) of the other args. + * Returns a lower bound for the costs of copies in this ou. + * The result includes inevitable costs and the costs of a + * minimal costs caused by the nodes of the ou. */ int co_get_lower_bound(const copy_opt_t *co); @@ -144,7 +159,8 @@ void co_heur_opt(copy_opt_t *co); /** * Solves the problem using mixed integer programming + * @returns 1 iff solution state was optimal */ -void co_ilp_opt(copy_opt_t *co); +int co_ilp_opt(copy_opt_t *co, double time_limit); #endif