X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fbecopyopt.h;h=ddf14366e03b090175c345bcc146b15ef957d512;hb=fcb579b8959da1d7563b1a7b9f008a423ffdf75a;hp=1c3bea7f308fd55f957ed91df2486d5be5936b39;hpb=b0eb36a9387e2b64e933b772ba56836acce062af;p=libfirm diff --git a/ir/be/becopyopt.h b/ir/be/becopyopt.h index 1c3bea7f3..ddf14366e 100644 --- a/ir/be/becopyopt.h +++ b/ir/be/becopyopt.h @@ -1,143 +1,190 @@ +/* + * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. + * + * This file is part of libFirm. + * + * This file may be distributed and/or modified under the terms of the + * GNU General Public License version 2 as published by the Free Software + * Foundation and appearing in the file LICENSE.GPL included in the + * packaging of this file. + * + * Licensees holding valid libFirm Professional Edition licenses may use + * this file in accordance with the libFirm Commercial License. + * Agreement provided with the Software. + * + * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE + * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR + * PURPOSE. + */ + /** - * Author: Daniel Grund - * Date: 12.04.2005 - * Copyright: (c) Universitaet Karlsruhe - * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + * @file + * @brief Copy minimization driver. + * @author Daniel Grund + * @date 11.04.2005 + * @version $Id$ * - * 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 FIRM_BE_BECOPYOPT_H +#define FIRM_BE_BECOPYOPT_H + +#include -#ifndef _BECOPYOPT_H -#define _BECOPYOPT_H +#include "firm_types.h" +#include "bechordal.h" +#include "beutil.h" -#include "debug.h" -#include "obst.h" -#include "list.h" -#include "set.h" -#include "pset.h" -#include "bitset.h" +/** + * Flags for dumping the IFG. + */ +enum { + CO_IFG_DUMP_COLORS = 1, /**< Dump the graph colored. */ + CO_IFG_DUMP_LABELS = 2, /**< Dump node/edge labels. */ + CO_IFG_DUMP_SHAPE = 4, /**< Give constrained nodes special shapes. */ + CO_IFG_DUMP_CONSTR = 8 /**< Dump the node constraints in the label. */ +}; -#include "irgraph.h" -#include "irgwalk.h" -#include "irnode.h" -#include "irdom.h" -#include "irouts.h" +/** + * Algorithms. + */ +enum { + CO_ALGO_NONE, + CO_ALGO_HEUR, + CO_ALGO_HEUR2, + CO_ALGO_HEUR3, + CO_ALGO_HEUR4, + CO_ALGO_ILP, + CO_ALGO_LAST +}; -#include "beutil.h" -#include "benumb_t.h" -#include "belive_t.h" -#include "bechordal_t.h" -#include "bearch.h" +/** The driver for copy minimization. */ +void co_driver(be_chordal_env_t *cenv); + +typedef struct _copy_opt_t copy_opt_t; -#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 +typedef int(*cost_fct_t)(const copy_opt_t *, ir_node *, ir_node *, int); -typedef int(*cost_fct_t)(ir_node*, ir_node*, int); +/** A coalescing algorithm. */ +typedef int (co_algo_t)(copy_opt_t *); /** - * Data representing the problem of copy minimization. + * Generate the problem. Collect all information and optimizable nodes. */ -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; +copy_opt_t *new_copy_opt(be_chordal_env_t *chordal_env, cost_fct_t get_costs); /** - * A single unit of optimization. Lots of these form a copy-opt problem + * Free the space used... */ -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; +void free_copy_opt(copy_opt_t *co); -/* 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)) +/** + * Checks if a node is optimizable, viz. has something to do with coalescing + * @param arch The architecture environment + * @param irn The irn to check + */ +int co_is_optimizable_root(const copy_opt_t *co, ir_node *irn); +/** + * Computes the costs of a copy according to loop depth + * @param co The copy opt object. + * @param pos the argument position of arg in the root arguments + * @return Must be >= 0 in all cases. + */ +int co_get_costs_loop_depth(const copy_opt_t *co, ir_node *root, ir_node* arg, int pos); -#define list_entry_units(lh) list_entry(lh, unit_t, units) +/** + * Computes the costs of a copy according to execution frequency + * @param co The copy opt object. + * @param pos the argument position of arg in the root arguments + * @return Must be >= 0 in all cases. + */ +int co_get_costs_exec_freq(const copy_opt_t *co, ir_node *root, ir_node* arg, int pos); +/** + * All costs equal 1. Using this will reduce the _number_ of copies. + * @param co The copy opt object. + * @return Must be >= 0 in all cases. + */ +int co_get_costs_all_one(const copy_opt_t *co, ir_node *root, ir_node* arg, int pos); /** - * Generate the problem. Collect all infos and optimizable nodes. + * Statistics over a copy optimization module. */ -copy_opt_t *new_copy_opt(be_chordal_env_t *chordal_env, int (*get_costs)(ir_node*, ir_node*, int)); +typedef struct { + ulong64 aff_edges; /**< number of affinity edges. */ + ulong64 aff_nodes; /**< number of nodes with incident affinity edges. */ + ulong64 aff_int; /**< number of affinity edges whose nodes also interfere. */ + ulong64 inevit_costs; /**< costs which cannot be evited (due to interfering affinities). */ + ulong64 max_costs; /**< all costs of the affinities. */ + ulong64 costs; /**< The costs of the current coloring. */ + ulong64 unsatisfied_edges; /**< The number of unequally colored affinity edges. */ +} co_complete_stats_t; /** - * Free the space... + * Collect statistics of a copy optimization module. + * @param co The copy optimization environment. + * @param stat Where to put the stats. + * @note This requires the graph info to be computed. */ -void free_copy_opt(copy_opt_t *co); +void co_complete_stats(const copy_opt_t *co, co_complete_stats_t *stat); -#define is_Perm(arch_env, irn) (arch_irn_classify(arch_env, irn) == arch_irn_class_perm) +/** + * Build internal optimization units structure + */ +void co_build_ou_structure(copy_opt_t *co); /** - * A copy is a proj haning out of perm node + * Frees the space used by the opt unit representation. + * Does NOT free the whole copyopt structure */ -#define is_Copy(arch_env, irn) (is_Proj(irn) && is_Perm(arch_env, get_Proj_pred(irn))) +void co_free_ou_structure(copy_opt_t *co); /** - * returns the corresponding argument of the perm node for a copy + * Solves the problem using a heuristic approach + * Uses the OU data structure */ -#define get_Copy_src(irn) (get_irn_n(get_Proj_pred(irn), get_Proj_proj(irn))) +int co_solve_heuristic(copy_opt_t *co); /** - * Checks if a node is optimizable, viz. is a target of a 'copy-op' + * Apply Park/Moon coalescing to the graph. + * @param co The copy optimization data structure. */ -#define is_optimizable(arch_env, irn) ((is_Phi(irn) && mode_is_datab(get_irn_mode(irn))) || is_Copy(arch_env, irn)) +void co_solve_park_moon(copy_opt_t *co); /** - * Checks if the irn is a non-interfering argument of a node which 'is_optimizable' + * Solves the copy minimization problem using another heuristic approach. + * Uses the OU and the GRAPH data structure. */ -int is_optimizable_arg(const copy_opt_t *co, ir_node *irn); +int co_solve_heuristic_new(copy_opt_t *co); /** - * 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. - * @return Must be >= 0 in all cases. + * Solves the copy minimization problem using another heuristic approach implemented in Java. + * This function needs a JVM which is started to call the Java module. + * Uses the GRAPH data structure. */ -int get_costs_loop_depth(ir_node *root, ir_node* arg, int pos); +int co_solve_heuristic_java(copy_opt_t *co); /** - * All costs equal 1. Using this will reduce the number of copies. - * @return Must be >= 0 in all cases. + * This is the pure C implementation of co_solve_heuristic_java(). */ -int get_costs_all_one(ir_node *root, ir_node* arg, int pos); +int co_solve_heuristic_mst(copy_opt_t *co); /** * Returns the maximal costs possible, i.e. the costs if all * pairs would be assigned different registers. + * Uses the OU data structure */ 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. + * Uses the OU data structure */ int co_get_inevit_copy_costs(const copy_opt_t *co); @@ -145,6 +192,7 @@ 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 + * Uses the OU data structure */ int co_get_copy_costs(const copy_opt_t *co); @@ -152,18 +200,63 @@ int co_get_copy_costs(const 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. + * Uses the OU data structure */ int co_get_lower_bound(const copy_opt_t *co); /** - * Solves the problem using a heuristic approach + * Dump the interference graph according to the Appel/George coalescing contest file format. + * See: http://www.cs.princeton.edu/~appel/coalesce/format.html + * @note Requires graph structure. + * @param co The copy opt object. + * @param f A file to dump to. + */ +void co_dump_appel_graph(const copy_opt_t *co, FILE *f); + +/** + * Dumps the IFG of the program splitting after each instruction in the Appel format. + * @param co The copy opt object. + * @param f The file to dump to. + */ +void co_dump_appel_graph_cliques(const copy_opt_t *co, FILE *f); +/** + * Dump the interference graph with the affinity edges and the coloring. + * @param co The copy opt structure. + * @param f The file to dump to. + * @param flags The dump flags (see enum above). */ -void co_heur_opt(copy_opt_t *co); +void co_dump_ifg_dot(const copy_opt_t *co, FILE *f, unsigned flags); + +/** + * Constructs another internal representation of the affinity edges + */ +void co_build_graph_structure(copy_opt_t *co); + +/** + * Frees the space used by the graph representation. + * Does NOT free the whole copyopt structure + */ +void co_free_graph_structure(copy_opt_t *co); /** * Solves the problem using mixed integer programming - * @retruns 1 iff solution state was optimal + * @returns 1 iff solution state was optimal + * NYI + */ +int co_solve_ilp1(copy_opt_t *co, double time_limit); + +/** + * Solves the problem using mixed integer programming + * @returns 1 iff solution state was optimal + * Uses the OU and the GRAPH data structure + * Dependency of the OU structure can be removed + */ +int co_solve_ilp2(copy_opt_t *co); + +/** + * Checks if a node is optimizable, viz has something to do with coalescing. + * Uses the GRAPH data structure */ -int co_ilp_opt(copy_opt_t *co, double time_limit); +int co_gs_is_optimizable(copy_opt_t *co, ir_node *irn); -#endif +#endif /* FIRM_BE_BECOPYOPT_H */