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

fix use_modules to deal with modules;

Browse Source 
allocation fix for simplesim


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@328 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-01-26 05:37:32 +00:00
parent 5e938b92c4
commit 81d38acbc9
4 changed files with 39 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
C/alloc.c
View File

@@ -12,7 +12,7 @@
* Last rev: *
* mods: *
* comments: allocating space *
* version:$Id: alloc.c,v 1.11 2002-01-21 15:26:48 vsc Exp $ *
* version:$Id: alloc.c,v 1.12 2002-01-26 05:37:31 vsc Exp $ *
*************************************************************************/
#ifdef SCCS
static char SccsId[] = "%W% %G%";
@@ -822,12 +822,14 @@ mallinfo(void)
/* user should ask for a lot of memory first */
#define MAX_SPACE 128*1024*1024
static int total_space;
MALLOC_T
InitWorkSpace(Int s)
{
MALLOC_T ptr = (MALLOC_T)malloc(s);
MALLOC_T ptr = (MALLOC_T)malloc(MAX_SPACE);
total_space = s;
if (ptr == ((MALLOC_T) - 1)) {
@@ -843,6 +845,7 @@ ExtendWorkSpace(Int s)
MALLOC_T ptr;
total_space += s;
if (total_space < MAX_SPACE) return(TRUE);
ptr = (MALLOC_T)realloc((void *)HeapBase, total_space);
if (ptr == ((MALLOC_T) - 1)) {
Error(SYSTEM_ERROR, TermNil, "could not expand stacks %d bytes", s);