X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FMBlock.c;h=85fe02da6e12a411b255e9194a8ce8e440f0a8b4;hp=c886fd5ada5138f88f4baae52d37820bb84435e6;hb=ebfefc7172495f442dcbc48a25cf3e0b94c8e853;hpb=82af8c0af70a1f72d5c364d35d04eef17d88395d

diff --git a/rts/MBlock.c b/rts/MBlock.c
index c886fd5..85fe02d 100644
--- a/rts/MBlock.c
+++ b/rts/MBlock.c
@@ -442,7 +442,7 @@ static void
 commitBlocks(char* base, int size) {
     alloc_rec* it;
     it=allocs;
-    for( ; it!=0 && (it->base+it->size)<base; it=it->next ) {}
+    for( ; it!=0 && (it->base+it->size)<=base; it=it->next ) {}
     for( ; it!=0 && size>0; it=it->next ) {
         int size_delta;
         void* temp;