removed unused header

[libfirm] / ir / stat / firmstat.c

diff --git a/ir/stat/firmstat.c b/ir/stat/firmstat.c
index a6733d8..3c7170e 100644 (file)
--- a/ir/stat/firmstat.c
+++ b/ir/stat/firmstat.c
@@ -1,14 +1,28 @@
 /*
- * Project:     libFIRM
- * File name:   ir/ir/firmstat.c
- * Purpose:     Statistics for Firm.
- * Author:      Michael Beck
- * Created:
- * CVS-ID:      $Id$
- * Copyright:   (c) 2004 Universität Karlsruhe
- * Licence:     This file protected by GPL -  GNU GENERAL PUBLIC LICENSE.
+ * Copyright (C) 1995-2007 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.
  */
 
+/**
+ * @file
+ * @brief   Statistics for Firm.
+ * @author  Michael Beck
+ * @version $Id$
+ */
 #ifdef HAVE_CONFIG_H
 # include "config.h"
 #endif
@@ -703,20 +717,41 @@ static void update_extbb_info(ir_node *node, graph_entry_t *graph)
        }  /* for */
 }  /* update_extbb_info */
 
-/** Calculates how many arguments of the call are const. */
-static int cnt_const_args(ir_node *call) {
-       int i, res = 0;
+/**
+ * Calculates how many arguments of the call are const, updates
+ * param distribution.
+ */
+static void analyse_params_of_Call(graph_entry_t *graph, ir_node *call) {
+       int i, num_const_args = 0, num_local_adr = 0;
        int n = get_Call_n_params(call);
 
        for (i = 0; i < n; ++i) {
                ir_node *param = get_Call_param(call, i);
-               ir_op   *op = get_irn_op(param);
 
-               if (op == op_Const || op == op_SymConst)
-                       ++res;
+               if (is_irn_constlike(param))
+                       ++num_const_args;
+               else if (is_Sel(param)) {
+                       ir_node *base = param;
+
+                       do {
+                               base = get_Sel_ptr(base);
+                       } while (is_Sel(base));
+
+                       if (base == get_irg_frame(current_ir_graph))
+                               ++num_local_adr;
+               }
+
        }  /* for */
-       return res;
-}  /* cnt_const_args */
+
+       if (num_const_args > 0)
+               cnt_inc(&graph->cnt[gcnt_call_with_cnst_arg]);
+       if (num_const_args == n)
+               cnt_inc(&graph->cnt[gcnt_call_with_all_cnst_arg]);
+       if (num_local_adr > 0)
+               cnt_inc(&graph->cnt[gcnt_call_with_local_adr]);
+
+       stat_inc_int_distrib_tbl(status->dist_param_cnt, n);
+}  /* analyse_params_of_Call */
 
 /**
  * Update info on calls.
@@ -730,7 +765,6 @@ static void stat_update_call(ir_node *call, graph_entry_t *graph)
        ir_node   *ptr = get_Call_ptr(call);
        ir_entity *ent = NULL;
        ir_graph  *callee = NULL;
-       int       num_const_args;
 
        /*
         * If the block is bad, the whole subgraph will collapse later
@@ -790,11 +824,7 @@ static void stat_update_call(ir_node *call, graph_entry_t *graph)
                }  /* if */
        }  /* if */
 
-       /* check, if arguments of the call are const */
-       num_const_args = cnt_const_args(call);
-
-       if (num_const_args > 0)
-               cnt_inc(&graph->cnt[gcnt_call_with_cnst_arg]);
+       analyse_params_of_Call(graph, call);
 }  /* stat_update_call */
 
 /**
@@ -1286,6 +1316,18 @@ static void stat_dump_consts(const constant_info_t *tbl) {
        }  /* for */
 }  /* stat_dump_consts */
 
+/**
+ * Dumps the parameter distribution
+ */
+static void stat_dump_param_tbl(const distrib_tbl_t *tbl, graph_entry_t *global) {
+       dumper_t *dumper;
+
+       for (dumper = status->dumper; dumper; dumper = dumper->next) {
+               if (dumper->dump_const_tbl)
+                       dumper->dump_param_tbl(dumper, tbl, global);
+       }  /* for */
+}
+
 /**
  * Initialize the dumper.
  */
@@ -1382,7 +1424,7 @@ static void stat_new_node(void *ctx, ir_graph *irg, ir_node *node) {
                return;
 
        /* do NOT count during dead node elimination */
-       if (status->in_dead_node_elim > 0)
+       if (status->in_dead_node_elim)
                return;
 
        STAT_ENTER;
@@ -1716,10 +1758,7 @@ static void stat_dead_node_elim(void *ctx, ir_graph *irg, int start) {
        if (! status->stat_options)
                return;
 
-       if (start)
-               ++status->in_dead_node_elim;
-       else
-               --status->in_dead_node_elim;
+       status->in_dead_node_elim = (start != 0);
 }  /* stat_dead_node_elim */
 
 /**
@@ -2022,6 +2061,9 @@ void stat_dump_snapshot(const char *name, const char *phase)
                if (status->stat_options & FIRMSTAT_COUNT_CONSTS)
                        stat_dump_consts(&status->const_info);
 
+               /* dump the parameter distribution */
+               stat_dump_param_tbl(status->dist_param_cnt, global);
+
                stat_dump_finish();
 
                stat_finish_pattern_history(fname);
@@ -2161,6 +2203,9 @@ void firm_init_stat(unsigned enable_options)
        if (enable_options & FIRMSTAT_COUNT_CONSTS)
                stat_init_const_cnt(status);
 
+       /* distribution table for parameter counts */
+       status->dist_param_cnt = stat_new_int_distrib_tbl();
+
 #undef HOOK
 #undef X
 }  /* firm_init_stat */