diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/CNF.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/rts/sm/CNF.c b/rts/sm/CNF.c index 25c50adcc3..a6bd3b69f0 100644 --- a/rts/sm/CNF.c +++ b/rts/sm/CNF.c @@ -489,17 +489,6 @@ allocateForCompact (Capability *cap, bd = Bdescr((P_)str->nursery); bd->free = str->hp; - // We know it doesn't fit in the nursery - // if it is a large object, allocate a new block - if (sizeW > LARGE_OBJECT_THRESHOLD/sizeof(W_)) { - next_size = BLOCK_ROUND_UP(sizeW*sizeof(W_) + sizeof(StgCompactNFDataBlock)); - block = compactAppendBlock(cap, str, next_size); - bd = Bdescr((P_)block); - to = bd->free; - bd->free += sizeW; - return to; - } - // move the nursery past full blocks if (block_is_full (str->nursery)) { do { |