diff options
| author | partain <unknown> | 1996-01-11 14:26:13 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-01-11 14:26:13 +0000 |
| commit | 10521d8418fd3a1cf32882718b5bd28992db36fd (patch) | |
| tree | 09cb781a215d1ab0c871f9655c1460207a601497 /ghc/compiler/codeGen/CgStackery.lhs | |
| parent | 7fa716e248a1f11fa686965f57aebbb83b74fa7b (diff) | |
| download | haskell-10521d8418fd3a1cf32882718b5bd28992db36fd.tar.gz | |
[project @ 1996-01-11 14:06:51 by partain]
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 |