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

more small fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2213 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-04-06 12:06:48 +00:00
parent 0c4388a66b
commit 12e18227bb
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
C/alloc.c
View File

@ -12,7 +12,7 @@
* Last rev: * * Last rev: *
* mods: * * mods: *
* comments: allocating space * * comments: allocating space *
* version:$Id: alloc.c,v 1.93 2008-04-06 11:53:02 vsc Exp $ * * version:$Id: alloc.c,v 1.94 2008-04-06 12:06:48 vsc Exp $ *
*************************************************************************/ *************************************************************************/
#ifdef SCCS #ifdef SCCS
static char SccsId[] = "%W% %G%"; static char SccsId[] = "%W% %G%";
@ -743,7 +743,7 @@ InitWorkSpace(Int s)
Yap_page_size = si.dwPageSize; Yap_page_size = si.dwPageSize;
s = ((s+ (YAP_ALLOC_SIZE-1))/YAP_ALLOC_SIZE)*YAP_ALLOC_SIZE; s = ((s+ (YAP_ALLOC_SIZE-1))/YAP_ALLOC_SIZE)*YAP_ALLOC_SIZE;
brk = (LPVOID)Yap_page_size; brk = (LPVOID)Yap_page_size;
if (!ExtendWorkSpace(s+1024*1024,0)) if (!ExtendWorkSpace(s,0))
return FALSE; return FALSE;
return (MALLOC_T)brk-s; return (MALLOC_T)brk-s;
} }
@ -1358,7 +1358,6 @@ Yap_InitMemory(int Trail, int Heap, int Stack)
sa = Stack; /* stack area size */ sa = Stack; /* stack area size */
ta = Trail; /* trail area size */ ta = Trail; /* trail area size */
pm += 1024*1024;
InitHeap(InitWorkSpace(pm)); InitHeap(InitWorkSpace(pm));
Yap_TrailTop = Yap_HeapBase + pm; Yap_TrailTop = Yap_HeapBase + pm;

6
H/rheap.h
View File

@ -11,8 +11,11 @@
* File: rheap.h * * File: rheap.h *
* comments: walk through heap code * * comments: walk through heap code *
* * * *
* Last rev: $Date: 2008-04-06 11:53:02 $,$Author: vsc $ * * Last rev: $Date: 2008-04-06 12:06:48 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.94 2008/04/06 11:53:02 vsc
* fix some restore bugs
*
* Revision 1.93 2008/04/04 09:10:02 vsc * Revision 1.93 2008/04/04 09:10:02 vsc
* restore was restoring twice * restore was restoring twice
* *
@ -1423,6 +1426,7 @@ RestoreEntries(PropEntry *pp, int int_key)
} }
me->AtomOfME = me->AtomOfME =
AtomAdjust(me->AtomOfME); AtomAdjust(me->AtomOfME);
if (me->NextME)
me->NextME = (struct mod_entry *) me->NextME = (struct mod_entry *)
AddrAdjust((ADDR)me->NextME); AddrAdjust((ADDR)me->NextME);
} }