From df05859cb44769477bbc5bde98cb4939ea292eba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 21 Oct 2011 22:05:28 +0100
Subject: [PATCH] fix maximum limit for expanding area.

---
 C/alloc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/alloc.c b/C/alloc.c
index 9712464e2..d6336ce10 100644
--- a/C/alloc.c
+++ b/C/alloc.c
@@ -1608,7 +1608,7 @@ Yap_ExtendWorkSpaceThroughHole(UInt s)
 #elif SIZEOF_INT_P==8
   {
     int n = 1024*1024;
-    while (n) {
+    while (n--) {
       /* progress 1 MB */
       WorkSpaceTop += 512*1024;
       if (ExtendWorkSpace(s, MAP_FIXED)) {