diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-07-26 10:32:25 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-08-02 22:20:50 -0400 |
| commit | 4664bafcb8db9f7cbcc9d16b0b1d381650b682c2 (patch) | |
| tree | 5a0e87b51c6a8e5d730953df94765c6e23cb803c /rts/RtsFlags.c | |
| parent | 0ecacb1ee6d353f85b83a63941b6e26f1ff9f4db (diff) | |
| download | haskell-4664bafcb8db9f7cbcc9d16b0b1d381650b682c2.tar.gz | |
rts: Always truncate output files
Previously there were numerous places in the RTS where we would fopen
with the "w" flag string. This is wrong as it will not truncate the
file. Consequently if we write less data than the previous length of the
file we will leave garbage at its end.
Fixes #16993.
Diffstat (limited to 'rts/RtsFlags.c')
| -rw-r--r-- | rts/RtsFlags.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index 8d9b052bc7..5cdf08e9a5 100644 --- a/rts/RtsFlags.c +++ b/rts/RtsFlags.c @@ -1745,7 +1745,7 @@ openStatsFile (char *filename, // filename, or NULL f = NULL; /* NULL means use debugBelch */ } else { if (*filename != '\0') { /* stats file specified */ - f = __rts_fopen (filename,"w"); + f = __rts_fopen (filename,"w+"); } else { if (filename_fmt == NULL) { errorBelch("Invalid stats filename format (NULL)\n"); @@ -1755,7 +1755,7 @@ openStatsFile (char *filename, // filename, or NULL char stats_filename[STATS_FILENAME_MAXLEN]; snprintf(stats_filename, STATS_FILENAME_MAXLEN, filename_fmt, prog_name); - f = __rts_fopen (stats_filename,"w"); + f = __rts_fopen (stats_filename,"w+"); } if (f == NULL) { errorBelch("Can't open stats file %s\n", filename); |