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

fix gc of named arrays.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@237 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-20 01:07:42 +00:00
parent 2b78d7ce14
commit 8bd62b9125
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/heapgc.c
View File

@ -23,7 +23,7 @@ static char SccsId[] = "%W% %G%";
#define EARLY_RESET 1 #define EARLY_RESET 1
#ifndef TABLING #ifndef TABLING
//#define EASY_SHUNTING 1 #define EASY_SHUNTING 1
#endif #endif
#define HYBRID_SCHEME 1 #define HYBRID_SCHEME 1
@ -1666,9 +1666,10 @@ sweep_trail(choiceptr gc_B, tr_fr_ptr old_TR)
} }
} else if ((CELL *)trail_cell < (CELL *)HeapTop) { } else if ((CELL *)trail_cell < (CELL *)HeapTop) {
/* we may have pointers from the heap back into the cell */ /* we may have pointers from the heap back into the cell */
CELL *next = GET_NEXT(*CellPtr(trail_cell));
UNMARK(CellPtr(trail_cell)); UNMARK(CellPtr(trail_cell));
if (HEAP_PTR(trail_cell)) { if (HEAP_PTR(*CellPtr(trail_cell))) {
into_relocation_chain(CellPtr(trail_cell), GET_NEXT(*(CELL *)trail_cell)); into_relocation_chain(CellPtr(trail_cell),next);
} }
} }
#ifdef FROZEN_STACKS #ifdef FROZEN_STACKS