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:
parent
3a78f26888
commit
03484b9960
@ -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;
|
||||
|
@ -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;
|
||||
|
Reference in New Issue
Block a user