*/
static void simple_dump_real_func_calls(dumper_t *dmp, counter_t *cnt)
{
+ if (! dmp->f)
+ return;
+
if (! cnt_eq(cnt, 0)) {
fprintf(dmp->f, "\nReal Function Calls optimized:\n");
fprintf(dmp->f, "%-16s %8u\n",
*/
static void simple_dump_tail_recursion(dumper_t *dmp, unsigned num_tail_recursion)
{
+ if (! dmp->f)
+ return;
+
if (num_tail_recursion > 0) {
fprintf(dmp->f, "\nTail recursion optimized:\n");
fprintf(dmp->f, "%-16s %8u\n", "Call", num_tail_recursion);
*/
static void simple_dump_edges(dumper_t *dmp, counter_t *cnt)
{
+ if (! dmp->f)
+ return;
+
fprintf(dmp->f, "%-16s %8d\n", "Edges", cnt->cnt[0]);
}
{
int i, dump_opts = 1;
block_entry_t *b_entry;
+ extbb_entry_t *eb_entry;
+
+ if (! dmp->f)
+ return;
if (entry->irg) {
ir_graph *const_irg = get_const_code_irg();
for (b_entry = pset_first(entry->block_hash);
b_entry;
b_entry = pset_next(entry->block_hash)) {
- fprintf(dmp->f, "BLK %12ld %12u %12u %12u %12u %12u %4.8f\n",
+ fprintf(dmp->f, "BLK %6ld %12u %12u %12u %12u %12u %4.8f\n",
b_entry->block_nr,
b_entry->cnt_nodes.cnt[0],
b_entry->cnt_edges.cnt[0],
(double)b_entry->cnt_edges.cnt[0] / (double)b_entry->cnt_nodes.cnt[0]
);
}
+
+ if (dmp->status->stat_options & FIRMSTAT_COUNT_EXTBB) {
+ /* dump extended block info */
+ fprintf(dmp->f, "\n%12s %12s %12s %12s %12s %12s %12s\n", "Extbb Nr", "Nodes", "intern E", "incoming E", "outgoing E", "Phi", "quot");
+ for (eb_entry = pset_first(entry->extbb_hash);
+ eb_entry;
+ eb_entry = pset_next(entry->extbb_hash)) {
+ fprintf(dmp->f, "ExtBB %6ld %12u %12u %12u %12u %12u %4.8f\n",
+ eb_entry->block_nr,
+ eb_entry->cnt_nodes.cnt[0],
+ eb_entry->cnt_edges.cnt[0],
+ eb_entry->cnt_in_edges.cnt[0],
+ eb_entry->cnt_out_edges.cnt[0],
+ eb_entry->cnt_phi_data.cnt[0],
+ (double)eb_entry->cnt_edges.cnt[0] / (double)eb_entry->cnt_nodes.cnt[0]
+ );
+ }
+ }
}
}
int i;
counter_t sum;
+ if (! dmp->f)
+ return;
+
cnt_clr(&sum);
fprintf(dmp->f, "\nConstant Information:\n");
snprintf(fname, sizeof(fname), "%s.txt", name);
dmp->f = fopen(fname, "w");
+ if (! dmp->f) {
+ perror(fname);
+ }
}
/**
*/
static void simple_finish(dumper_t *dmp)
{
- fclose(dmp->f);
+ if (dmp->f)
+ fclose(dmp->f);
dmp->f = NULL;
}
static void csv_dump_graph(dumper_t *dmp, graph_entry_t *entry)
{
const char *name;
-
counter_t cnt[4];
+ if (! dmp->f)
+ return;
+
if (entry->irg && !entry->is_deleted) {
ir_graph *const_irg = get_const_code_irg();
snprintf(fname, sizeof(fname), "%s.csv", name);
dmp->f = fopen(fname, "a");
+ if (! dmp->f) {
+ perror(fname);
+ }
}
/**
*/
static void csv_finish(dumper_t *dmp)
{
- fclose(dmp->f);
+ if (dmp->f)
+ fclose(dmp->f);
dmp->f = NULL;
}