fix bad marked var in copy_att_var

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@439 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-04-11 01:43:09 +00:00
parent 3a78f26888
commit 03484b9960
2 changed files with 6 additions and 1 deletions

View File

@ -123,7 +123,7 @@ CopyAttVar(CELL *orig, CELL ***to_visit_ptr, CELL *res)
to_visit[2] = newv->Atts+2*j+1;
to_visit[3] = (CELL *)(attv->Atts[2*j]);
/* fool the system into thinking we had a variable there */
attv->Atts[2*j] = AbsAppl(H);
attv->Atts[2*j+1] = AbsAppl(H);
to_visit += 4;
#else
to_visit[0] = attv->Atts+2*j;

View File

@ -2651,6 +2651,11 @@ do_gc(Int predarity, CELL *current_env, yamop *nextop)
Int effectiveness = 0;
int gc_trace = FALSE;
#if COROUTINING
if (H0 - (CELL *)ReadTimedVar(DelayedVars) < 1024+(2*NUM_OF_ATTS)) {
growglobal();
}
#endif
#ifdef INSTRUMENT_GC
{
int i;