diff options
author | Simon Marlow <marlowsd@gmail.com> | 2008-06-04 09:12:44 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2008-06-04 09:12:44 +0000 |
commit | 804a84fbc46cd07146ed7689bb8fa3e94eeb756a (patch) | |
tree | f899e8ba14af37b28de9d554ad5a7ba9ed518ac2 /rts/ThreadPaused.c | |
parent | 9ad234fb9d02cd09f45809615c07d7c3859e2f6d (diff) | |
download | haskell-804a84fbc46cd07146ed7689bb8fa3e94eeb756a.tar.gz |
tiny tweak to the stack squeezing heuristic (fixes cg060)
Diffstat (limited to 'rts/ThreadPaused.c')
-rw-r--r-- | rts/ThreadPaused.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index 3aa66edc19..c32a75b9a8 100644 --- a/rts/ThreadPaused.c +++ b/rts/ThreadPaused.c @@ -310,7 +310,7 @@ end: // the number of words we have to shift down is less than the // number of stack words we squeeze away by doing so. if (RtsFlags.GcFlags.squeezeUpdFrames == rtsTrue && - ((weight <= 4 && words_to_squeeze > 0) || weight < words_to_squeeze)) { + ((weight <= 5 && words_to_squeeze > 0) || weight < words_to_squeeze)) { stackSqueeze(tso, (StgPtr)frame); } } |