2 * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
4 * This file is part of libFirm.
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.
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.
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
22 * @brief Register Pressure Statistics.
23 * @author Adam M. Szalkowski
51 #include "besched_t.h"
59 #define MAXPRESSURE 128
61 typedef struct _regpressure_ana_t {
62 const arch_register_class_t *cls;
65 DEBUG_ONLY(firm_dbg_module_t *dbg);
68 static inline int has_reg_class(const regpressure_ana_t *ra, const ir_node *irn)
70 return arch_irn_consider_in_reg_alloc(ra->cls, irn);
73 static inline int regpressure(pset *live) {
74 int pressure = pset_count(live);
75 return MIN(pressure, MAXPRESSURE);
79 regpressureanawalker(ir_node *bb, void *data)
81 regpressure_ana_t *ra = data;
82 pset *live = pset_new_ptr_default();
84 unsigned int *stat = ra->stat;
86 const be_lv_t *lv = ra->lv;
88 be_lv_foreach(lv, bb, be_lv_state_end, i) {
89 ir_node *value = be_lv_get_irn(lv, bb, i);
90 if (has_reg_class(ra, value)) {
91 pset_insert_ptr(live, value);
94 stat[regpressure(live)]++;
96 sched_foreach_reverse(bb, irn) {
98 if (is_Phi(irn)) break;
100 if (has_reg_class(ra, irn)) {
101 pset_remove_ptr(live, irn);
104 for (i = get_irn_arity(irn) - 1; i >= 0; --i) {
105 ir_node *arg = get_irn_n(irn, i);
107 if (has_reg_class(ra, arg)) {
108 pset_insert_ptr(live, arg);
113 stat[regpressure(live)]++;
117 void be_analyze_regpressure(be_irg_t *birg, const arch_register_class_t *cls, const char *suffix)
119 regpressure_ana_t ra;
120 unsigned int stat[MAXPRESSURE+1];
124 ir_graph *irg = be_get_birg_irg(birg);
126 ir_snprintf(fname, sizeof(fname), "%F_%s%s_pressure.stat", irg, cls->name, suffix);
127 f = fopen(fname, "w");
130 be_liveness_assure_sets(be_assure_liveness(birg));
132 FIRM_DBG_REGISTER(ra.dbg, "firm.be.regpressureana");
134 ra.lv = be_get_birg_liveness(birg);
138 memset(stat, 0, sizeof(stat));
140 irg_block_walk_graph(irg, regpressureanawalker, NULL, &ra);
142 for (i = 0; i <= MAXPRESSURE; ++i) {
143 fprintf(f, "%d\n", stat[i]);