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

use private memory for yapor's alloc

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-10-16 09:44:34 +01:00
parent e41851e9d9
commit e19a910152
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
C/alloc.c
View File

@ -251,6 +251,7 @@ Yap_InitPreAllocCodeSpace(int wid)
char *ptr;
UInt sz = REMOTE_ScratchPad(wid).msz;
if (REMOTE_ScratchPad(wid).ptr == NULL) {
#if USE_DL_MALLOC
LOCK(DLMallocLock);
@ -261,7 +262,13 @@ Yap_InitPreAllocCodeSpace(int wid)
tmalloc += sz;
sz += sizeof(CELL);
#endif
while (!(ptr = my_malloc(sz))) {
while (!(ptr =
#ifdef YAPOR_COPY
malloc(sz)
#else
my_malloc(sz)
#endif
)) {
REMOTE_PrologMode(wid) &= ~MallocMode;
#if USE_DL_MALLOC
UNLOCK(DLMallocLock);
@ -290,6 +297,7 @@ Yap_InitPreAllocCodeSpace(int wid)
}
AuxBase = (ADDR)(ptr);
AuxSp = (CELL *)(AuxTop = AuxBase+REMOTE_ScratchPad(wid).sz);
printf("wid=%d %p %p %p--%p\n", wid, AuxBase, AuxSp, Yap_HeapBase, H);
return ptr;
}