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

fix bad marked var in copy_att_var

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/attvar.c
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[2] = newv->Atts+2*j+1;
to_visit[3] = (CELL *)(attv->Atts[2*j]); to_visit[3] = (CELL *)(attv->Atts[2*j]);
/* fool the system into thinking we had a variable there */ /* 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; to_visit += 4;
#else #else
to_visit[0] = attv->Atts+2*j; to_visit[0] = attv->Atts+2*j;

5
C/heapgc.c
View File

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