diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-06-13 10:29:28 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-06-13 10:29:28 +0000 |
| commit | 23e5985c3db852981d527d10d6a6271688049790 (patch) | |
| tree | 7b87dd13cdbbebb56be5e530fe524bd5694a2d22 /rts/Printer.c | |
| parent | 62d948405f6b9a95fe4b31b7cffa387e5425d6db (diff) | |
| download | haskell-23e5985c3db852981d527d10d6a6271688049790.tar.gz | |
FIX #1418 (partially)
When the con_desc field of an info table was made into a relative
reference, this had the side effect of making the profiling fields
(closure_desc and closure_type) also relative, but only when compiling
via C, and the heap profiler was still treating them as absolute,
leading to crashes when profiling with -hd or -hy.
This patch fixes up the story to be consistent: these fields really
should be relative (otherwise we couldn't make shared versions of the
profiling libraries), so I've made them relative and fixed up the RTS
to know about this.
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index b33d238476..2a0346ba4b 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -138,7 +138,7 @@ printClosure( StgClosure *obj ) StgWord i, j; #ifdef PROFILING - debugBelch("%s(", info->prof.closure_desc); + debugBelch("%s(", GET_PROF_DESC(info)); debugBelch("%s", obj->header.prof.ccs->cc->label); #else debugBelch("CONSTR("); @@ -174,7 +174,7 @@ printClosure( StgClosure *obj ) case THUNK_STATIC: /* ToDo: will this work for THUNK_STATIC too? */ #ifdef PROFILING - printThunkObject((StgThunk *)obj,info->prof.closure_desc); + printThunkObject((StgThunk *)obj,GET_PROF_DESC(info)); #else printThunkObject((StgThunk *)obj,"THUNK"); #endif |