From: Richard Biener Date: Thu, 15 May 2008 14:00:22 +0000 (+0000) Subject: statistics.c: New file. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=82e6d02f7b6d0eb62a6171b6203f114a2374dcb9;p=gcc.git statistics.c: New file. 2008-05-15 Richard Guenther * statistics.c: New file. From-SVN: r135359 --- diff --git a/gcc/statistics.c b/gcc/statistics.c new file mode 100644 index 00000000000..1f0090c7e7b --- /dev/null +++ b/gcc/statistics.c @@ -0,0 +1,342 @@ +/* Optimization statistics functions. + Copyright (C) 2008 + Free Software Foundation, Inc. + Contributed by Richard Guenther + +This file is part of GCC. + +GCC is free software; you can redistribute it and/or modify it under +the terms of the GNU General Public License as published by the Free +Software Foundation; either version 3, or (at your option) any later +version. + +GCC is distributed in the hope that it will be useful, but WITHOUT ANY +WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +for more details. + +You should have received a copy of the GNU General Public License +along with GCC; see the file COPYING3. If not see +. */ + +#include "config.h" +#include "system.h" +#include "coretypes.h" +#include "tree-pass.h" +#include "tree-dump.h" +#include "statistics.h" +#include "hashtab.h" +#include "tm.h" +#include "function.h" + +static int statistics_dump_nr; +static int statistics_dump_flags; +static FILE *statistics_dump_file; + +/* Statistics entry. A integer counter associated to a string ID + and value. */ + +typedef struct statistics_counter_s { + const char *id; + int val; + bool histogram_p; + unsigned HOST_WIDE_INT count; + unsigned HOST_WIDE_INT prev_dumped_count; +} statistics_counter_t; + +/* Array of statistic hashes, indexed by pass id. */ +static htab_t *statistics_hashes; +static unsigned nr_statistics_hashes; + +/* Hash a statistic counter by its string ID. */ + +static hashval_t +hash_statistics_hash (const void *p) +{ + statistics_counter_t *c = (statistics_counter_t *)p; + return htab_hash_string (c->id) + c->val; +} + +/* Compare two statistic counters by their string IDs. */ + +static int +hash_statistics_eq (const void *p, const void *q) +{ + statistics_counter_t *c1 = (statistics_counter_t *)p; + statistics_counter_t *c2 = (statistics_counter_t *)q; + return c1->val == c2->val && strcmp (c1->id, c2->id) == 0; +} + +/* Free a statistics entry. */ + +static void +hash_statistics_free (void *p) +{ + free ((void *)((statistics_counter_t *)p)->id); + free (p); +} + +/* Return the current hashtable to be used for recording or printing + statistics. */ + +static htab_t +curr_statistics_hash (void) +{ + unsigned idx = current_pass->static_pass_number; + + if (idx < nr_statistics_hashes + && statistics_hashes[idx] != NULL) + return statistics_hashes[idx]; + + if (idx >= nr_statistics_hashes) + { + statistics_hashes = xrealloc (statistics_hashes, + (idx + 1) * sizeof (htab_t)); + memset (statistics_hashes + nr_statistics_hashes, 0, + (idx + 1 - nr_statistics_hashes) * sizeof (htab_t)); + nr_statistics_hashes = idx + 1; + } + + statistics_hashes[idx] = htab_create (15, hash_statistics_hash, + hash_statistics_eq, + hash_statistics_free); + + return statistics_hashes[idx]; +} + +/* Helper for statistics_fini_pass. Print the counter difference + since the last dump for the pass dump files. */ + +static int +statistics_fini_pass_1 (void **slot, void *data ATTRIBUTE_UNUSED) +{ + statistics_counter_t *counter = (statistics_counter_t *)*slot; + unsigned HOST_WIDE_INT count = counter->count - counter->prev_dumped_count; + if (count == 0) + return 1; + if (counter->histogram_p) + fprintf (dump_file, "%s == %d: " HOST_WIDE_INT_PRINT_DEC "\n", + counter->id, counter->val, count); + else + fprintf (dump_file, "%s: " HOST_WIDE_INT_PRINT_DEC "\n", + counter->id, count); + counter->prev_dumped_count = counter->count; + return 1; +} + +/* Helper for statistics_fini_pass. Print the counter difference + since the last dump for the statistics dump. */ + +static int +statistics_fini_pass_2 (void **slot, void *data ATTRIBUTE_UNUSED) +{ + statistics_counter_t *counter = (statistics_counter_t *)*slot; + unsigned HOST_WIDE_INT count = counter->count - counter->prev_dumped_count; + if (count == 0) + return 1; + counter->prev_dumped_count = counter->count; + if (counter->histogram_p) + fprintf (statistics_dump_file, + "%d %s \"%s == %d\" \"%s\" " HOST_WIDE_INT_PRINT_DEC "\n", + current_pass->static_pass_number, + current_pass->name, + counter->id, counter->val, + cfun ? IDENTIFIER_POINTER (DECL_NAME (cfun->decl)) : "(nofn)", + count); + else + fprintf (statistics_dump_file, + "%d %s \"%s\" \"%s\" " HOST_WIDE_INT_PRINT_DEC "\n", + current_pass->static_pass_number, + current_pass->name, + counter->id, + cfun ? IDENTIFIER_POINTER (DECL_NAME (cfun->decl)) : "(nofn)", + count); + counter->prev_dumped_count = counter->count; + return 1; +} + +/* Helper for statistics_fini_pass, reset the counters. */ + +static int +statistics_fini_pass_3 (void **slot, void *data ATTRIBUTE_UNUSED) +{ + statistics_counter_t *counter = (statistics_counter_t *)*slot; + counter->prev_dumped_count = counter->count; + return 1; +} + +/* Dump the current statistics incrementally. */ + +void +statistics_fini_pass (void) +{ + if (current_pass->static_pass_number == -1) + return; + + if (dump_file + && dump_flags & TDF_STATS) + { + fprintf (dump_file, "\n"); + fprintf (dump_file, "Pass statistics:\n"); + fprintf (dump_file, "----------------\n"); + htab_traverse_noresize (curr_statistics_hash (), + statistics_fini_pass_1, NULL); + fprintf (dump_file, "\n"); + } + if (statistics_dump_file + && !(statistics_dump_flags & TDF_STATS + || statistics_dump_flags & TDF_DETAILS)) + htab_traverse_noresize (curr_statistics_hash (), + statistics_fini_pass_2, NULL); + htab_traverse_noresize (curr_statistics_hash (), + statistics_fini_pass_3, NULL); +} + +/* Helper for printing summary information. */ + +static int +statistics_fini_1 (void **slot, void *data) +{ + struct opt_pass *pass = (struct opt_pass *)data; + statistics_counter_t *counter = (statistics_counter_t *)*slot; + if (counter->count == 0) + return 1; + if (counter->histogram_p) + fprintf (statistics_dump_file, + "%d %s \"%s == %d\" " HOST_WIDE_INT_PRINT_DEC "\n", + pass->static_pass_number, + pass->name, + counter->id, counter->val, + counter->count); + else + fprintf (statistics_dump_file, + "%d %s \"%s\" " HOST_WIDE_INT_PRINT_DEC "\n", + pass->static_pass_number, + pass->name, + counter->id, + counter->count); + return 1; +} + +/* Finish the statistics and dump summary information. */ + +void +statistics_fini (void) +{ + if (!statistics_dump_file) + return; + + if (statistics_dump_flags & TDF_STATS) + { + unsigned i; + for (i = 0; i < nr_statistics_hashes; ++i) + if (statistics_hashes[i] != NULL + && get_pass_for_id (i) != NULL) + htab_traverse_noresize (statistics_hashes[i], + statistics_fini_1, get_pass_for_id (i)); + } + + dump_end (statistics_dump_nr, statistics_dump_file); +} + +/* Register the statistics dump file. */ + +void +statistics_early_init (void) +{ + statistics_dump_nr = dump_register (".statistics", "statistics", + "statistics", TDF_TREE); +} + +/* Init the statistics. */ + +void +statistics_init (void) +{ + statistics_dump_file = dump_begin (statistics_dump_nr, NULL); + statistics_dump_flags = get_dump_file_info (statistics_dump_nr)->flags; +} + +/* Lookup or add a statistics counter in the hashtable HASH with ID, VAL + and HISTOGRAM_P. */ + +static statistics_counter_t * +lookup_or_add_counter (htab_t hash, const char *id, int val, + bool histogram_p) +{ + statistics_counter_t **counter; + statistics_counter_t c; + c.id = id; + c.val = val; + counter = (statistics_counter_t **) htab_find_slot (hash, &c, INSERT); + if (!*counter) + { + *counter = XNEW (struct statistics_counter_s); + (*counter)->id = xstrdup (id); + (*counter)->val = val; + (*counter)->histogram_p = histogram_p; + (*counter)->prev_dumped_count = 0; + (*counter)->count = 0; + } + return *counter; +} + +/* Add statistics information about event ID in function FN. + This will increment the counter associated with ID by INCR. + It will also dump the event to the global statistics file if requested. */ + +void +statistics_counter_event (struct function *fn, const char *id, int incr) +{ + statistics_counter_t *counter; + + if ((!(dump_flags & TDF_STATS) + && !statistics_dump_file) + || incr == 0) + return; + + counter = lookup_or_add_counter (curr_statistics_hash (), id, 0, false); + gcc_assert (!counter->histogram_p); + counter->count += incr; + + if (!statistics_dump_file + || !(statistics_dump_flags & TDF_DETAILS)) + return; + + fprintf (statistics_dump_file, + "%d %s \"%s\" \"%s\" %d\n", + current_pass->static_pass_number, + current_pass->name, + id, + fn ? IDENTIFIER_POINTER (DECL_NAME (fn->decl)) : "(nofn)", + incr); +} + +/* Add statistics information about event ID in function FN with the + histogram value VAL. + It will dump the event to the global statistics file if requested. */ + +void +statistics_histogram_event (struct function *fn, const char *id, int val) +{ + statistics_counter_t *counter; + + if (!(dump_flags & TDF_STATS) + && !statistics_dump_file) + return; + + counter = lookup_or_add_counter (curr_statistics_hash (), id, val, true); + gcc_assert (counter->histogram_p); + counter->count += 1; + + if (!statistics_dump_file + || !(statistics_dump_flags & TDF_DETAILS)) + return; + + fprintf (statistics_dump_file, + "%d %s \"%s == %d\" \"%s\" 1\n", + current_pass->static_pass_number, + current_pass->name, + id, val, + fn ? IDENTIFIER_POINTER (DECL_NAME (fn->decl)) : "(nofn)"); +}