diff options
| -rw-r--r-- | rts/ProfHeap.c | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index bc439c1678..4f82b0ba83 100644 --- a/rts/ProfHeap.c +++ b/rts/ProfHeap.c @@ -26,15 +26,8 @@ #include <fs_rts.h> #include <string.h> -#if defined(darwin_HOST_OS) -#include <xlocale.h> -#else -#include <locale.h> -#endif - FILE *hp_file; static char *hp_filename; /* heap profile (hp2ps style) log file */ -static locale_t prof_locale = 0, saved_locale = 0; /* ----------------------------------------------------------------------------- * era stores the current time period. It is the same as the @@ -351,10 +344,6 @@ printSample(bool beginSample, StgDouble sampleValue) void freeHeapProfiling (void) { - if (prof_locale) { - freelocale(prof_locale); - prof_locale = 0; - } } /* -------------------------------------------------------------------------- @@ -367,15 +356,6 @@ initHeapProfiling(void) return; } - if (! prof_locale) { - prof_locale = newlocale(LC_NUMERIC_MASK, "POSIX", 0); - if (! prof_locale) { - sysErrorBelch("Couldn't allocate heap profiler locale"); - /* non-fatal: risk using an unknown locale, but won't crash */ - } - } - saved_locale = uselocale(prof_locale); - char *prog; prog = stgMallocBytes(strlen(prog_name) + 1, "initHeapProfiling"); @@ -473,8 +453,6 @@ initHeapProfiling(void) } #endif - uselocale(saved_locale); - traceHeapProfBegin(0); } @@ -487,8 +465,6 @@ endHeapProfiling(void) return; } - saved_locale = uselocale(prof_locale); - #if defined(PROFILING) if (doingRetainerProfiling()) { endRetainerProfiling(); @@ -529,8 +505,6 @@ endHeapProfiling(void) printSample(true, seconds); printSample(false, seconds); fclose(hp_file); - - uselocale(saved_locale); } @@ -785,8 +759,6 @@ dumpCensus( Census *census ) counter *ctr; ssize_t count; - saved_locale = uselocale(prof_locale); - printSample(true, census->time); @@ -915,8 +887,6 @@ dumpCensus( Census *census ) traceHeapProfSampleEnd(era); printSample(false, census->time); - - uselocale(saved_locale); } |