From 06d65a5be7e51ff2a33f0887f7810ffa5130a676 Mon Sep 17 00:00:00 2001 From: vsc Date: Wed, 12 Feb 2003 15:40:04 +0000 Subject: [PATCH] garbage collector should register that retry_mark and friends have a hold on a clause. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@771 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/heapgc.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/C/heapgc.c b/C/heapgc.c index 574b631ab..fab5097ac 100644 --- a/C/heapgc.c +++ b/C/heapgc.c @@ -1718,6 +1718,10 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose) nargs = 0; break; #endif + case _profiled_retry_and_mark: + case _count_retry_and_mark: + case _retry_and_mark: + ClauseCodeToClause(gc_B->cp_ap)->ClFlags |= GcFoundMask; #ifdef DEBUG case _retry_me: case _trust_me: @@ -1735,9 +1739,6 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose) case _trust_me3: case _retry_me4: case _trust_me4: - case _retry_and_mark: - case _profiled_retry_and_mark: - case _count_retry_and_mark: case _retry: case _trust_in: case _trust: