[project @ 1996-01-10 12:38:57 by partain]

[ghc-hetmet.git] / ghc / runtime / profiling / LifeProfile.lc

diff --git a/ghc/runtime/profiling/LifeProfile.lc b/ghc/runtime/profiling/LifeProfile.lc
index c591aa0..dc5b74b 100644 (file)
--- a/ghc/runtime/profiling/LifeProfile.lc
+++ b/ghc/runtime/profiling/LifeProfile.lc
@@ -157,7 +157,7 @@ life_profile_finish(alloc, prog_argv)
     StgChar *prog_argv[];
 {
     I_ report, i;
-    StgChar life_filename[32];
+    StgChar life_filename[STATS_FILENAME_MAXLEN];
     FILE *life_file;
     W_ total_life, total_upd, total_interval,
             accum_life, accum_upd;
@@ -177,7 +177,7 @@ life_profile_finish(alloc, prog_argv)
     life_older += prev_older;
 
     /* Produce liftime reports */
-    sprintf(life_filename, "%0.24s.life", prog_argv[0]);
+    sprintf(life_filename, LIFE_FILENAME_FMT, prog_argv[0]);
     if ( (life_file = fopen(life_filename,"w")) == NULL ) {
        fprintf(stderr, "Can't open life profile report file %s\n", life_filename);
     }