Fix the Windows "VirtualAlloc MEM_COMMIT failed" bug

[ghc-hetmet.git] / rts / MBlock.c

diff --git a/rts/MBlock.c b/rts/MBlock.c
index c886fd5..85fe02d 100644 (file)
--- 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;