diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bad initial memory allocation in WIN32.

This commit is contained in:
Costa@WIN-ENP104VVO3U.(none) 2011-03-21 14:17:54 +00:00 committed by Vítor Santos Costa
parent 0d8aed7971
commit 9e89308fd4
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/alloc.c
View File

@ -809,7 +809,7 @@ Yap_AllocCodeSpace(unsigned long int size)
#if defined(_WIN32) || defined(__CYGWIN__)
#undef DEBUG_WIN32_ALLOC
#define DEBUG_WIN32_ALLOC 1
#include "windows.h"
@ -821,8 +821,6 @@ ExtendWorkSpace(Int s, int fixed_allocation)
LPVOID b = brk;
prolog_exec_mode OldPrologMode = Yap_PrologMode;
Yap_PrologMode = ExtendStackMode;
#if DEBUG_WIN32_ALLOC
@ -864,7 +862,7 @@ ExtendWorkSpace(Int s, int fixed_allocation)
}
brk = (LPVOID) ((Int) b + s);
#if DEBUG_WIN32_ALLOC
fprintf(stderr,"OK: %p--%p\n",b,brk);
fprintf(stderr,"OK: %p--%p %lx\n",b, brk, s);
#endif
Yap_PrologMode = OldPrologMode;
return TRUE;
@ -878,7 +876,6 @@ InitWorkSpace(Int s)
GetSystemInfo(&si);
psz = Yap_page_size = si.dwPageSize;
s = ((s+ (YAP_ALLOC_SIZE-1))/YAP_ALLOC_SIZE)*YAP_ALLOC_SIZE;
brk = (LPVOID)psz;
if (!ExtendWorkSpace(s,0))
return FALSE;
@ -1497,6 +1494,11 @@ Yap_InitMemory(UInt Trail, UInt Heap, UInt Stack)
UInt pm, sa, ta;
void *addr;
#if defined(_WIN32) || defined(__CYGWIN__)
Stack = ((Stack+ (YAP_ALLOC_SIZE-1))/YAP_ALLOC_SIZE)*YAP_ALLOC_SIZE;
Heap = ((Heap+ (YAP_ALLOC_SIZE-1))/YAP_ALLOC_SIZE)*YAP_ALLOC_SIZE;
Trail = ((Trail+ (YAP_ALLOC_SIZE-1))/YAP_ALLOC_SIZE)*YAP_ALLOC_SIZE;
#endif
pm = (Trail + Heap + Stack); /* memory to be
* requested */
sa = Stack; /* stack area size */