updated Header

[libfirm] / ir / stat / stat_dmp.c

diff --git a/ir/stat/stat_dmp.c b/ir/stat/stat_dmp.c
index 55cbd18..fd71cca 100644 (file)
--- a/ir/stat/stat_dmp.c
+++ b/ir/stat/stat_dmp.c
@@ -1,12 +1,27 @@
 /*
- * Project:     libFIRM
- * File name:   ir/ir/stat_dmp.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. Dumping.
+ * @author  Michael Beck
+ * @version $Id$
  */
 #ifdef HAVE_CONFIG_H
 # include "config.h"
@@ -190,8 +205,8 @@ static void simple_dump_be_block_reg_pressure(dumper_t *dmp, graph_entry_t *entr
 
 /** prints a distribution entry */
 static void simple_dump_distrib_entry(const distrib_entry_t *entry, void *env) {
-       FILE *dmp_f = env;
-       fprintf(dmp_f, "%12d", cnt_to_uint(&entry->cnt));
+       dumper_t *dmp = env;
+       fprintf(dmp->f, "%12d", cnt_to_uint(&entry->cnt));
 }  /* simple_dump_distrib_entry */
 
 /**
@@ -213,7 +228,7 @@ static void simple_dump_be_block_sched_ready(dumper_t *dmp, graph_entry_t *entry
                                stat_insert_int_distrib_tbl(b_entry->sched_ready, i);
 
                        fprintf(dmp->f, "BLK   %6ld", b_entry->block_nr);
-                       stat_iterate_distrib_tbl(b_entry->sched_ready, simple_dump_distrib_entry, dmp->f);
+                       stat_iterate_distrib_tbl(b_entry->sched_ready, simple_dump_distrib_entry, dmp);
                        fprintf(dmp->f, "%12.2lf", stat_calc_avg_distrib_tbl(b_entry->sched_ready));
                        fprintf(dmp->f, "\n");
                }  /* foreach_pset */
@@ -536,6 +551,31 @@ static void simple_dump_const_tbl(dumper_t *dmp, const constant_info_t *tbl)
        fprintf(dmp->f, "sum   %12u\n", cnt_to_uint(&sum));
 }  /* simple_dump_const_tbl */
 
+/**
+ * Dumps a line of the parameter table
+ */
+static void dump_tbl_line(const distrib_entry_t *entry, void *env) {
+       dumper_t *dmp = env;
+
+       fprintf(dmp->f, "%d : %u\n", PTR_TO_INT(entry->object), cnt_to_uint(&entry->cnt));
+}  /* dump_tbl_line */
+
+/**
+ * dumps the parameter distribution table
+ */
+static void simple_dump_param_tbl(dumper_t *dmp, const distrib_tbl_t *tbl, graph_entry_t *global) {
+       fprintf(dmp->f, "\nCall parameter Information:\n");
+       fprintf(dmp->f, "---------------------\n");
+
+       stat_iterate_distrib_tbl(tbl, dump_tbl_line, dmp);
+       fprintf(dmp->f, "-------------------------------\n");
+
+       fprintf(dmp->f, "Number of Calls           %12u\n", cnt_to_uint(&global->cnt[gcnt_all_calls]));
+       fprintf(dmp->f, "with const params         %12u\n", cnt_to_uint(&global->cnt[gcnt_call_with_cnst_arg]));
+       fprintf(dmp->f, "with all const params     %12u\n", cnt_to_uint(&global->cnt[gcnt_call_with_all_cnst_arg]));
+       fprintf(dmp->f, "with local var adr params %12u\n", cnt_to_uint(&global->cnt[gcnt_call_with_local_adr]));
+}  /* simple_dump_param_tbl */
+
 /**
  * initialize the simple dumper
  */
@@ -564,6 +604,7 @@ static void simple_finish(dumper_t *dmp) {
 const dumper_t simple_dumper = {
        simple_dump_graph,
        simple_dump_const_tbl,
+       simple_dump_param_tbl,
        simple_init,
        simple_finish,
        NULL,
@@ -653,6 +694,13 @@ static void csv_dump_const_tbl(dumper_t *dmp, const constant_info_t *tbl)
        /* FIXME: NYI */
 }  /* csv_dump_const_tbl */
 
+/**
+ * dumps the parameter distribution table
+ */
+static void csv_dump_param_tbl(dumper_t *dmp, const distrib_tbl_t *tbl, graph_entry_t *global) {
+       /* FIXME: NYI */
+}  /* csv_dump_param_tbl */
+
 /**
  * initialize the simple dumper
  */
@@ -682,6 +730,7 @@ static void csv_finish(dumper_t *dmp)
 const dumper_t csv_dumper = {
        csv_dump_graph,
        csv_dump_const_tbl,
+       csv_dump_param_tbl,
        csv_init,
        csv_finish,
        NULL,