diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-10-19 13:27:27 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-10-19 13:27:27 +0000 |
| commit | 140aeb3949039cb7df43ac2d7e4a755fb4711879 (patch) | |
| tree | ed04a082e56702f681b6885eb5768d69ec684439 /rts/RetainerProfile.c | |
| parent | 6f37cf1b943abbf8a9f51bf80514cae86a2e6765 (diff) | |
| download | haskell-140aeb3949039cb7df43ac2d7e4a755fb4711879.tar.gz | |
Fix a retainer profiling segfault
The bitmap type wasn't big enough to hold large bitmaps on 64 bit
platforms. Profiling GHC was segfaulting when retainStack was handling a
size 33 bitmap.
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index e80a588e86..c5a7bf7897 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1270,7 +1270,7 @@ retainStack( StgClosure *c, retainer c_child_r, stackElement *oldStackBoundary; StgPtr p; StgRetInfoTable *info; - StgWord32 bitmap; + StgWord bitmap; nat size; #ifdef DEBUG_RETAINER |