nsz Git - libfirm/blob - ir/be/becopyopt_t.h

   1 /*
   2  * Copyright (C) 1995-2007 University of Karlsruhe.  All right reserved.
   3  *
   4  * This file is part of libFirm.
   5  *
   6  * This file may be distributed and/or modified under the terms of the
   7  * GNU General Public License version 2 as published by the Free Software
   8  * Foundation and appearing in the file LICENSE.GPL included in the
   9  * packaging of this file.
  10  *
  11  * Licensees holding valid libFirm Professional Edition licenses may use
  12  * this file in accordance with the libFirm Commercial License.
  13  * Agreement provided with the Software.
  14  *
  15  * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
  16  * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  17  * PURPOSE.
  18  */
  19
  20 /**
  21  * @file
  22  * @brief       Internal header for copy optimization problem.
  23  * @author      Daniel Grund
  24  * @date        12.04.2005
  25  * @version     $Id$
  26  */
  27 #ifndef FIRM_BE_BECOPYOPT_T_H
  28 #define FIRM_BE_BECOPYOPT_T_H
  29
  30 #include "obst.h"
  31 #include "list.h"
  32 #include "set.h"
  33 #include "irnode_t.h"
  34
  35 #include "bearch_t.h"
  36 #include "bechordal_t.h"
  37 #include "becopyopt.h"
  38
  39 /**
  40  * Data representing the problem of copy minimization.
  41  */
  42 struct _copy_opt_t {
  43         be_chordal_env_t            *cenv;
  44         const arch_register_class_t *cls;
  45         const arch_env_t            *aenv;
  46         ir_graph                    *irg;
  47         char                        *name;       /**< ProgName__IrgName__RegClassName */
  48         cost_fct_t                  get_costs;   /**< function ptr used to get costs for copies */
  49
  50         /** Representation as optimization units */
  51         struct list_head units;    /**< all units to optimize in specific order */
  52
  53         /** Representation in graph structure. Only build on demand */
  54         struct obstack obst;
  55         set    *nodes;
  56 };
  57
  58 /* Helpers */
  59 #define ASSERT_OU_AVAIL(co)             assert((co)->units.next && "Representation as optimization-units not build")
  60 #define ASSERT_GS_AVAIL(co)             assert((co)->nodes && "Representation as graph not build")
  61
  62 #define get_irn_col(co, irn)            arch_register_get_index(arch_get_irn_register((co)->aenv, irn))
  63 #define set_irn_col(co, irn, col)       arch_set_irn_register((co)->aenv, irn, arch_register_for_index((co)->cls, col))
  64 #define is_curr_reg_class(co, irn)      (arch_get_irn_reg_class((co)->aenv, irn, -1) == (co)->cls)
  65
  66 #define list_entry_units(lh) list_entry(lh, unit_t, units)
  67
  68 #define is_Reg_Phi(irn)                                         (is_Phi(irn) && mode_is_data(get_irn_mode(irn)))
  69
  70 #define get_Perm_src(irn)                   (get_irn_n(get_Proj_pred(irn), get_Proj_proj(irn)))
  71 #define is_Perm(arch_env, irn)                          (arch_irn_classify(arch_env, irn) == arch_irn_class_perm)
  72 #define is_Perm_Proj(arch_env, irn)                     (is_Proj(irn) && is_Perm(arch_env, get_Proj_pred(irn)))
  73
  74 static INLINE int is_2addr_code(const arch_register_req_t *req)
  75 {
  76         return (req->type & arch_register_req_type_should_be_same) != 0;
  77 }
  78
  79 /******************************************************************************
  80    ____        _   _    _       _ _          _____ _
  81   / __ \      | | | |  | |     (_) |        / ____| |
  82  | |  | |_ __ | |_| |  | |_ __  _| |_ ___  | (___ | |_ ___  _ __ __ _  __ _  ___
  83  | |  | | '_ \| __| |  | | '_ \| | __/ __|  \___ \| __/ _ \| '__/ _` |/ _` |/ _ \
  84  | |__| | |_) | |_| |__| | | | | | |_\__ \  ____) | || (_) | | | (_| | (_| |  __/
  85   \____/| .__/ \__|\____/|_| |_|_|\__|___/ |_____/ \__\___/|_|  \__,_|\__, |\___|
  86         | |                                                            __/ |
  87         |_|                                                           |___/
  88  ******************************************************************************/
  89
  90 #define MIS_HEUR_TRIGGER 8
  91
  92 typedef struct _unit_t {
  93         struct list_head units;              /**< chain for all units */
  94         copy_opt_t       *co;                /**< the copy opt this unit belongs to */
  95         int              node_count;         /**< size of the nodes array */
  96         ir_node          **nodes;            /**< [0] is the root-node, others are non interfering args of it. */
  97         int              *costs;             /**< costs[i] are incurred, if nodes[i] has a different color */
  98         int              inevitable_costs;   /**< sum of costs of all args interfering with root */
  99         int              all_nodes_costs;    /**< sum of all costs[i] */
 100         int              min_nodes_costs;    /**< a lower bound for the costs in costs[], determined by a max independent set */
 101         int              sort_key;           /**< maximum costs. controls the order of ou's in the struct list_head units. */
 102
 103         /* for heuristic */
 104         struct list_head queue;                  /**< list of qn's sorted by weight of qn-mis */
 105 } unit_t;
 106
 107
 108
 109 /******************************************************************************
 110    _____                 _        _____ _
 111   / ____|               | |      / ____| |
 112  | |  __ _ __ __ _ _ __ | |__   | (___ | |_ ___  _ __ __ _  __ _  ___
 113  | | |_ | '__/ _` | '_ \| '_ \   \___ \| __/ _ \| '__/ _` |/ _` |/ _ \
 114  | |__| | | | (_| | |_) | | | |  ____) | || (_) | | | (_| | (_| |  __/
 115   \_____|_|  \__,_| .__/|_| |_| |_____/ \__\___/|_|  \__,_|\__, |\___|
 116                   | |                                       __/ |
 117                   |_|                                      |___/
 118  ******************************************************************************/
 119
 120 typedef struct _neighb_t neighb_t;
 121 typedef struct _affinity_node_t affinity_node_t;
 122
 123 struct _neighb_t {
 124         neighb_t *next;   /** the next neighbour entry*/
 125         ir_node  *irn;    /** the neighbour itself */
 126         int      costs;   /** the costs of the edge (affinity_node_t->irn, neighb_t->irn) */
 127 };
 128
 129 struct _affinity_node_t {
 130         ir_node  *irn;          /** a node with affinity edges */
 131         int      degree;        /** number of affinity edges in the linked list below */
 132         neighb_t *neighbours;   /** a linked list of all affinity neighbours */
 133         void     *data;         /** stuff that is attachable. */
 134 };
 135
 136
 137 static INLINE affinity_node_t *get_affinity_info(const copy_opt_t *co, ir_node *irn) {
 138         affinity_node_t find;
 139
 140         ASSERT_GS_AVAIL(co);
 141
 142         find.irn = irn;
 143         return set_find(co->nodes, &find, sizeof(find), hash_irn(irn));
 144 }
 145
 146 #define co_gs_nodes_begin(co)                   set_first((co)->nodes)
 147 #define co_gs_nodes_next(co)                    set_next((co)->nodes)
 148 #define co_gs_nodes_break(co)                   set_break((co)->nodes)
 149
 150 #define co_gs_foreach_aff_node(co, aff_node)    for (aff_node = co_gs_nodes_begin(co); aff_node; aff_node = co_gs_nodes_next(co))
 151 #define co_gs_foreach_neighb(aff_node, neighb)  for (neighb = aff_node->neighbours; neighb; neighb = neighb->next)
 152
 153
 154 #endif /* FIRM_BE_BECOPYOPT_T_H */