#include "bechordal_t.h"
#include "bearch.h"
-#define DEBUG_IRG "MergeSort.c__merge__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
-#define DEBUG_LVL_CO SET_LEVEL_0
-#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);
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;
} unit_t;
/* Helpers */
-#define get_arch_env(co) ((co)->chordal_env->session_env->main_env->arch_env)
-#define get_irg(co) ((co)->chordal_env->session_env->irg)
+#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, 0))
+ arch_register_get_index(arch_get_irn_register(get_arch_env(co), irn))
#define set_irn_col(co, irn, col) \
- arch_set_irn_register(get_arch_env(co), 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 list_entry_units(lh) list_entry(lh, unit_t, units)
+#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_Perm_Proj(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)
+
/**
* Generate the problem. Collect all infos and optimizable nodes.
*/
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)))
-
/**
- * 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_Perm_Proj(arch, irn) || is_2addr_code(arch, irn, req))
/**
* Checks if the irn is a non-interfering argument of a node which 'is_optimizable'
/**
* 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);
/**
* 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