From 76f48469c4b4ca49159dc736830cd806f8dbbf07 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Fri, 10 Apr 2020 14:57:37 +0200 Subject: fix write table --- backend/PrintAsmaux.ml | 1 - runtime/c/write_profiling_table.c | 4 ++++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index 153b9412..5a074867 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -365,7 +365,6 @@ let print_profiling finalizer_section print_profiling_stub oc = fprintf oc " .type %s, @function\n" profiling_write_table; fprintf oc " .size %s, . - %s\n" profiling_write_table profiling_write_table; fprintf oc " .section %s\n" finalizer_section; - fprintf oc " .align 8\n"; (if Archi.ptr64 then fprintf oc " .8byte %s\n" profiling_write_table else fprintf oc " .4byte %s\n" profiling_write_table) diff --git a/runtime/c/write_profiling_table.c b/runtime/c/write_profiling_table.c index 5c55c4b6..06cb15da 100644 --- a/runtime/c/write_profiling_table.c +++ b/runtime/c/write_profiling_table.c @@ -27,6 +27,7 @@ void _compcert_write_profiling_table(unsigned int nr_items, errno = 0; FILE *fp = fopen("compcert_profiling.dat", "a"); + fprintf(stderr, "successfully opened profiling file\n"); if (fp == NULL) { perror("open CompCert profiling data for writing"); return; @@ -37,10 +38,13 @@ void _compcert_write_profiling_table(unsigned int nr_items, write_counter(fp, counter_table[i][0]); write_counter(fp, counter_table[i][1]); } + fprintf(stderr, "successfully written profiling file\n"); fclose(fp); + fprintf(stderr, "successfully closed profiling file\n"); if (errno != 0) { perror("write CompCert profiling data"); return; } + fprintf(stderr, "no error\n"); } -- cgit