library(system) plus several new support builtins
much improved garbage collector improvements to compiler yaptab compiles again git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@34 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -12,7 +12,7 @@
|
||||
* Last rev: *
|
||||
* mods: *
|
||||
* comments: allocating space *
|
||||
* version:$Id: alloc.c,v 1.6 2001-05-07 19:56:02 vsc Exp $ *
|
||||
* version:$Id: alloc.c,v 1.7 2001-05-21 20:00:05 vsc Exp $ *
|
||||
*************************************************************************/
|
||||
#ifdef SCCS
|
||||
static char SccsId[] = "%W% %G%";
|
||||
@@ -537,6 +537,7 @@ ExtendWorkSpace(Int s)
|
||||
{
|
||||
#ifdef YAPOR
|
||||
abort_optyap("function ExtendWorkSpace called");
|
||||
return(FALSE);
|
||||
#else
|
||||
|
||||
MALLOC_T a;
|
||||
@@ -614,9 +615,9 @@ ExtendWorkSpace(Int s)
|
||||
return FALSE;
|
||||
}
|
||||
|
||||
#endif /* YAPOR */
|
||||
WorkSpaceTop = (char *) a + s;
|
||||
return TRUE;
|
||||
#endif /* YAPOR */
|
||||
}
|
||||
|
||||
int
|
||||
|
||||
Reference in New Issue
Block a user