#include <stdio.h>
#include "allocate.h"
#include "linearize.h"
#include "storage.h"

__DECLARE_ALLOCATOR(struct ptr_list, ptrlist);


typedef void (*get_t)(struct allocator_stats*);

static void show_stats(get_t get, struct allocator_stats * tot)
{
        struct allocator_stats x;

        if (get)
                get(&x);
        else
                x = *tot;
        fprintf(stderr, "%16s: %8d, %10ld, %10ld, %6.2f%%, %8.2f\n",
                x.name, x.allocations, x.useful_bytes, x.total_bytes,
                100 * (double) x.useful_bytes / (x.total_bytes ? : 1),
                (double) x.useful_bytes / (x.allocations ? : 1));

        tot->allocations += x.allocations;
        tot->useful_bytes += x.useful_bytes;
        tot->total_bytes += x.total_bytes;
}

void show_allocation_stats(void)
{
        struct allocator_stats tot = { .name = "total", };

        fprintf(stderr, "%16s: %8s, %10s, %10s, %7s, %8s\n", "allocator", "allocs",
                "bytes", "total", "%usage", "average");
        show_stats(get_token_stats, &tot);
        show_stats(get_ident_stats, &tot);
        show_stats(get_symbol_stats, &tot);
        show_stats(get_expression_stats, &tot);
        show_stats(get_statement_stats, &tot);
        show_stats(get_scope_stats, &tot);
        show_stats(get_basic_block_stats, &tot);
        show_stats(get_instruction_stats, &tot);
        show_stats(get_pseudo_stats, &tot);
        show_stats(get_pseudo_user_stats, &tot);
        show_stats(get_ptrlist_stats, &tot);
        show_stats(get_multijmp_stats, &tot);
        show_stats(get_asm_rules_stats, &tot);
        show_stats(get_asm_constraint_stats, &tot);
        show_stats(get_context_stats, &tot);
        show_stats(get_string_stats, &tot);
        show_stats(get_bytes_stats, &tot);
        //show_stats(get_storage_stats, &tot);
        //show_stats(get_storage_hash_stats, &tot);

        show_stats(NULL, &tot);
}

void report_stats(void)
{
        if (fmem_report)
                show_allocation_stats();
}