diff options
Diffstat (limited to 'ghc/compiler/codeGen/CgStackery.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CgStackery.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CgStackery.lhs b/ghc/compiler/codeGen/CgStackery.lhs index 3ec30f02ea..cb1a4ece2a 100644 --- a/ghc/compiler/codeGen/CgStackery.lhs +++ b/ghc/compiler/codeGen/CgStackery.lhs @@ -158,7 +158,7 @@ allocBStack size info_down (MkCgState absC binds find_block :: [VirtualSpBOffset] -> Maybe VirtualSpBOffset find_block [] = Nothing find_block (slot:slots) - | take size (slot:slots) == take size (repeat slot) + | take size (slot:slots) == [slot..slot+size-1] = Just slot | otherwise = find_block slots |