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

put tabling back to work

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@460 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-05-03 15:30:36 +00:00
parent 83c4fab84c
commit 4fc1a2ff42
16 changed files with 734 additions and 344 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
C/grow.c
View File

@@ -523,7 +523,7 @@ local_growheap(long size, int fix_code)
/* Used by do_goal() when we're short of heap space */
static int
local_growglobal(long size)
local_growglobal(long size, CELL **ptr)
{
Int start_growth_time, growth_time;
int gc_verbose;
@@ -549,6 +549,7 @@ local_growglobal(long size)
MoveGlobalOnly();
AdjustStacksAndTrail();
AdjustRegs(MaxTemps);
*ptr = PtoLocAdjust(*ptr);
YAPLeaveCriticalSection();
ASP += 256;
growth_time = cputime()-start_growth_time;
@@ -664,14 +665,14 @@ growheap(int fix_code)
}
int
growglobal(void)
growglobal(CELL **ptr)
{
unsigned long sz = sizeof(CELL) * 16 * 1024L;
#ifdef FIXED_STACKS
abort_optyap("noheapleft in function absmi");
#endif
if (!local_growglobal(sz))
if (!local_growglobal(sz, ptr))
return(FALSE);
#ifdef TABLING
fix_tabling_info();