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 --- runtime/c/write_profiling_table.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'runtime') 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