fix maximum limit for expanding area.

2011-10-21 22:05:28 +01:00 · 2011-10-21 22:05:28 +01:00 · df05859cb4
commit df05859cb4
parent 5cd157147f
1 changed files with 1 additions and 1 deletions
--- 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)) {