/**
* Author: Daniel Grund
- * Date: 12.04.2005
+ * Date: 11.04.2005
* Copyright: (c) Universitaet Karlsruhe
* Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE.
*
- * Header for copy optimization problem. Analysis and set up of the problem.
+ * Main file for the optimization reducing the copies needed for:
+ * - Phi coalescing
+ * - Register-constrained nodes
+ * - Two-address code instructions
*/
#ifndef _BECOPYOPT_H
#define _BECOPYOPT_H
-#include "debug.h"
-#include "obst.h"
-#include "list.h"
-#include "set.h"
-#include "pset.h"
-#include "bitset.h"
-
-#include "irgraph.h"
-#include "irgwalk.h"
#include "irnode.h"
-#include "irdom.h"
-#include "irouts.h"
-
-#include "beutil.h"
-#include "benumb_t.h"
-#include "belive_t.h"
-#include "bechordal_t.h"
-#include "bearch.h"
-
-#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
-#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
+#include "bechordal.h"
typedef int(*cost_fct_t)(ir_node*, ir_node*, int);
-/**
- * Data representing the problem of copy minimization.
- */
-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 */
- cost_fct_t get_costs; /**< function ptr used to get costs for copies */
- struct obstack ob;
-} copy_opt_t;
+typedef struct _copy_opt_t copy_opt_t;
/**
- * A single unit of optimization. Lots of these form a copy-opt problem
+ * Has to be called during the firm init phase
*/
-typedef struct _unit_t {
- struct list_head units; /**< chain for all units */
- copy_opt_t *co; /**< the copy_opt this unit belongs to */
- 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 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 */
- struct list_head queue; /**< list of qn's sorted by weight of qn-mis */
-} 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_irn_col(co, irn) \
- arch_register_get_index(arch_get_irn_register(get_arch_env(co), irn, 0))
-#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))
-
-
-#define list_entry_units(lh) list_entry(lh, unit_t, units)
-
+void be_copy_opt_init(void);
/**
- * Generate the problem. Collect all infos and optimizable nodes.
+ * Generate the problem. Collect all information and optimizable nodes.
*/
-copy_opt_t *new_copy_opt(be_chordal_env_t *chordal_env, int (*get_costs)(ir_node*, ir_node*, int));
+copy_opt_t *new_copy_opt(be_chordal_env_t *chordal_env, cost_fct_t get_costs);
/**
- * Free the space...
+ * Free the space used...
*/
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'
- */
-#define is_optimizable(arch_env, irn) ((is_Phi(irn) && is_firm_be_mode(get_irn_mode(irn))) || is_Copy(arch_env, irn))
-
-/**
- * Checks if the irn is a non-interfering argument of a node which 'is_optimizable'
- */
-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);
+int co_get_costs_loop_depth(ir_node *root, ir_node* arg, int pos);
/**
* All costs equal 1. Using this will reduce the number of copies.
* @return Must be >= 0 in all cases.
*/
-int get_costs_all_one(ir_node *root, ir_node* arg, int pos);
-
-/**
- * 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);
+int co_get_costs_all_one(ir_node *root, ir_node* arg, int pos);
/**
- * 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
+ * Solves the problem using a heuristic approach
*/
-int co_get_copy_costs(const copy_opt_t *co);
+int co_solve_heuristic(copy_opt_t *co);
/**
- * 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.
+ * Solves the problem using mixed integer programming
+ * @returns 1 iff solution state was optimal
*/
-int co_get_lower_bound(const copy_opt_t *co);
+int co_solve_ilp1(copy_opt_t *co, double time_limit);
/**
- * Solves the problem using a heuristic approach
+ * Solves the problem using mixed integer programming
+ * @returns 1 iff solution state was optimal
*/
-void co_heur_opt(copy_opt_t *co);
+int co_solve_ilp2(copy_opt_t *co, double time_limit);
/**
- * Solves the problem using mixed integer programming
- * @retruns 1 iff solution state was optimal
+ * Compares different solutions of the same problem
*/
-int co_ilp_opt(copy_opt_t *co, double time_limit);
+void co_compare_solvers(be_chordal_env_t *chordal_env);
#endif