Commit 140aeb39 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

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.
parent 6f37cf1b
...@@ -1270,7 +1270,7 @@ retainStack( StgClosure *c, retainer c_child_r, ...@@ -1270,7 +1270,7 @@ retainStack( StgClosure *c, retainer c_child_r,
stackElement *oldStackBoundary; stackElement *oldStackBoundary;
StgPtr p; StgPtr p;
StgRetInfoTable *info; StgRetInfoTable *info;
StgWord32 bitmap; StgWord bitmap;
nat size; nat size;
#ifdef DEBUG_RETAINER #ifdef DEBUG_RETAINER
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment