diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-03-10 20:44:49 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-03-10 20:44:49 +0000 |
| commit | 4dfe2a24d9717a809cebc14592212bf3bdf46342 (patch) | |
| tree | 99f47c0fdd523a8a125c5034ae8c4afbb69fcc87 | |
| parent | 05dad81285b606521b550b690f3e645bb7dc8f75 (diff) | |
| download | haskell-4dfe2a24d9717a809cebc14592212bf3bdf46342.tar.gz | |
Enable shortcutting of stack squeezing
Not sure why it was disabled, probably by accident.
| -rw-r--r-- | ghc/rts/GC.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c index 1e40065f3b..4235d3e826 100644 --- a/ghc/rts/GC.c +++ b/ghc/rts/GC.c @@ -4690,8 +4690,8 @@ end: // Should we squeeze or not? Arbitrary heuristic: we squeeze if // the number of words we have to shift down is less than the // number of stack words we squeeze away by doing so. - if (1 /*RtsFlags.GcFlags.squeezeUpdFrames == rtsTrue && - weight < words_to_squeeze*/) { + if (RtsFlags.GcFlags.squeezeUpdFrames == rtsTrue && + weight < words_to_squeeze) { stackSqueeze(tso, (StgPtr)frame); } } |