1 /* Optimization statistics functions.
3 Free Software Foundation, Inc.
4 Contributed by Richard Guenther <rguenther@suse.de>
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
24 #include "coretypes.h"
25 #include "tree-pass.h"
26 #include "tree-dump.h"
27 #include "statistics.h"
32 static int statistics_dump_nr
;
33 static int statistics_dump_flags
;
34 static FILE *statistics_dump_file
;
36 /* Statistics entry. A integer counter associated to a string ID
39 typedef struct statistics_counter_s
{
43 unsigned HOST_WIDE_INT count
;
44 unsigned HOST_WIDE_INT prev_dumped_count
;
45 } statistics_counter_t
;
47 /* Array of statistic hashes, indexed by pass id. */
48 static htab_t
*statistics_hashes
;
49 static unsigned nr_statistics_hashes
;
51 /* Hash a statistic counter by its string ID. */
54 hash_statistics_hash (const void *p
)
56 statistics_counter_t
*c
= (statistics_counter_t
*)p
;
57 return htab_hash_string (c
->id
) + c
->val
;
60 /* Compare two statistic counters by their string IDs. */
63 hash_statistics_eq (const void *p
, const void *q
)
65 statistics_counter_t
*c1
= (statistics_counter_t
*)p
;
66 statistics_counter_t
*c2
= (statistics_counter_t
*)q
;
67 return c1
->val
== c2
->val
&& strcmp (c1
->id
, c2
->id
) == 0;
70 /* Free a statistics entry. */
73 hash_statistics_free (void *p
)
75 free ((void *)((statistics_counter_t
*)p
)->id
);
79 /* Return the current hashtable to be used for recording or printing
83 curr_statistics_hash (void)
85 unsigned idx
= current_pass
->static_pass_number
;
87 if (idx
< nr_statistics_hashes
88 && statistics_hashes
[idx
] != NULL
)
89 return statistics_hashes
[idx
];
91 if (idx
>= nr_statistics_hashes
)
93 statistics_hashes
= xrealloc (statistics_hashes
,
94 (idx
+ 1) * sizeof (htab_t
));
95 memset (statistics_hashes
+ nr_statistics_hashes
, 0,
96 (idx
+ 1 - nr_statistics_hashes
) * sizeof (htab_t
));
97 nr_statistics_hashes
= idx
+ 1;
100 statistics_hashes
[idx
] = htab_create (15, hash_statistics_hash
,
102 hash_statistics_free
);
104 return statistics_hashes
[idx
];
107 /* Helper for statistics_fini_pass. Print the counter difference
108 since the last dump for the pass dump files. */
111 statistics_fini_pass_1 (void **slot
, void *data ATTRIBUTE_UNUSED
)
113 statistics_counter_t
*counter
= (statistics_counter_t
*)*slot
;
114 unsigned HOST_WIDE_INT count
= counter
->count
- counter
->prev_dumped_count
;
117 if (counter
->histogram_p
)
118 fprintf (dump_file
, "%s == %d: " HOST_WIDE_INT_PRINT_DEC
"\n",
119 counter
->id
, counter
->val
, count
);
121 fprintf (dump_file
, "%s: " HOST_WIDE_INT_PRINT_DEC
"\n",
123 counter
->prev_dumped_count
= counter
->count
;
127 /* Helper for statistics_fini_pass. Print the counter difference
128 since the last dump for the statistics dump. */
131 statistics_fini_pass_2 (void **slot
, void *data ATTRIBUTE_UNUSED
)
133 statistics_counter_t
*counter
= (statistics_counter_t
*)*slot
;
134 unsigned HOST_WIDE_INT count
= counter
->count
- counter
->prev_dumped_count
;
137 counter
->prev_dumped_count
= counter
->count
;
138 if (counter
->histogram_p
)
139 fprintf (statistics_dump_file
,
140 "%d %s \"%s == %d\" \"%s\" " HOST_WIDE_INT_PRINT_DEC
"\n",
141 current_pass
->static_pass_number
,
143 counter
->id
, counter
->val
,
144 cfun
? IDENTIFIER_POINTER (DECL_NAME (cfun
->decl
)) : "(nofn)",
147 fprintf (statistics_dump_file
,
148 "%d %s \"%s\" \"%s\" " HOST_WIDE_INT_PRINT_DEC
"\n",
149 current_pass
->static_pass_number
,
152 cfun
? IDENTIFIER_POINTER (DECL_NAME (cfun
->decl
)) : "(nofn)",
154 counter
->prev_dumped_count
= counter
->count
;
158 /* Helper for statistics_fini_pass, reset the counters. */
161 statistics_fini_pass_3 (void **slot
, void *data ATTRIBUTE_UNUSED
)
163 statistics_counter_t
*counter
= (statistics_counter_t
*)*slot
;
164 counter
->prev_dumped_count
= counter
->count
;
168 /* Dump the current statistics incrementally. */
171 statistics_fini_pass (void)
173 if (current_pass
->static_pass_number
== -1)
177 && dump_flags
& TDF_STATS
)
179 fprintf (dump_file
, "\n");
180 fprintf (dump_file
, "Pass statistics:\n");
181 fprintf (dump_file
, "----------------\n");
182 htab_traverse_noresize (curr_statistics_hash (),
183 statistics_fini_pass_1
, NULL
);
184 fprintf (dump_file
, "\n");
186 if (statistics_dump_file
187 && !(statistics_dump_flags
& TDF_STATS
188 || statistics_dump_flags
& TDF_DETAILS
))
189 htab_traverse_noresize (curr_statistics_hash (),
190 statistics_fini_pass_2
, NULL
);
191 htab_traverse_noresize (curr_statistics_hash (),
192 statistics_fini_pass_3
, NULL
);
195 /* Helper for printing summary information. */
198 statistics_fini_1 (void **slot
, void *data
)
200 struct opt_pass
*pass
= (struct opt_pass
*)data
;
201 statistics_counter_t
*counter
= (statistics_counter_t
*)*slot
;
202 if (counter
->count
== 0)
204 if (counter
->histogram_p
)
205 fprintf (statistics_dump_file
,
206 "%d %s \"%s == %d\" " HOST_WIDE_INT_PRINT_DEC
"\n",
207 pass
->static_pass_number
,
209 counter
->id
, counter
->val
,
212 fprintf (statistics_dump_file
,
213 "%d %s \"%s\" " HOST_WIDE_INT_PRINT_DEC
"\n",
214 pass
->static_pass_number
,
221 /* Finish the statistics and dump summary information. */
224 statistics_fini (void)
226 if (!statistics_dump_file
)
229 if (statistics_dump_flags
& TDF_STATS
)
232 for (i
= 0; i
< nr_statistics_hashes
; ++i
)
233 if (statistics_hashes
[i
] != NULL
234 && get_pass_for_id (i
) != NULL
)
235 htab_traverse_noresize (statistics_hashes
[i
],
236 statistics_fini_1
, get_pass_for_id (i
));
239 dump_end (statistics_dump_nr
, statistics_dump_file
);
242 /* Register the statistics dump file. */
245 statistics_early_init (void)
247 statistics_dump_nr
= dump_register (".statistics", "statistics",
248 "statistics", TDF_TREE
);
251 /* Init the statistics. */
254 statistics_init (void)
256 statistics_dump_file
= dump_begin (statistics_dump_nr
, NULL
);
257 statistics_dump_flags
= get_dump_file_info (statistics_dump_nr
)->flags
;
260 /* Lookup or add a statistics counter in the hashtable HASH with ID, VAL
263 static statistics_counter_t
*
264 lookup_or_add_counter (htab_t hash
, const char *id
, int val
,
267 statistics_counter_t
**counter
;
268 statistics_counter_t c
;
271 counter
= (statistics_counter_t
**) htab_find_slot (hash
, &c
, INSERT
);
274 *counter
= XNEW (struct statistics_counter_s
);
275 (*counter
)->id
= xstrdup (id
);
276 (*counter
)->val
= val
;
277 (*counter
)->histogram_p
= histogram_p
;
278 (*counter
)->prev_dumped_count
= 0;
279 (*counter
)->count
= 0;
284 /* Add statistics information about event ID in function FN.
285 This will increment the counter associated with ID by INCR.
286 It will also dump the event to the global statistics file if requested. */
289 statistics_counter_event (struct function
*fn
, const char *id
, int incr
)
291 statistics_counter_t
*counter
;
293 if ((!(dump_flags
& TDF_STATS
)
294 && !statistics_dump_file
)
298 counter
= lookup_or_add_counter (curr_statistics_hash (), id
, 0, false);
299 gcc_assert (!counter
->histogram_p
);
300 counter
->count
+= incr
;
302 if (!statistics_dump_file
303 || !(statistics_dump_flags
& TDF_DETAILS
))
306 fprintf (statistics_dump_file
,
307 "%d %s \"%s\" \"%s\" %d\n",
308 current_pass
->static_pass_number
,
311 fn
? IDENTIFIER_POINTER (DECL_NAME (fn
->decl
)) : "(nofn)",
315 /* Add statistics information about event ID in function FN with the
317 It will dump the event to the global statistics file if requested. */
320 statistics_histogram_event (struct function
*fn
, const char *id
, int val
)
322 statistics_counter_t
*counter
;
324 if (!(dump_flags
& TDF_STATS
)
325 && !statistics_dump_file
)
328 counter
= lookup_or_add_counter (curr_statistics_hash (), id
, val
, true);
329 gcc_assert (counter
->histogram_p
);
332 if (!statistics_dump_file
333 || !(statistics_dump_flags
& TDF_DETAILS
))
336 fprintf (statistics_dump_file
,
337 "%d %s \"%s == %d\" \"%s\" 1\n",
338 current_pass
->static_pass_number
,
341 fn
? IDENTIFIER_POINTER (DECL_NAME (fn
->decl
)) : "(nofn)");