[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgStackery.lhs

diff --git a/ghc/compiler/codeGen/CgStackery.lhs b/ghc/compiler/codeGen/CgStackery.lhs
index 3ec30f0..cb1a4ec 100644 (file)
--- 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