From e133c87b3b5e99ce73fa21fc23bf90f03d915b9f Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 20 Nov 2002 19:25:45 +0000
Subject: [PATCH] fix cycle when outputting a choicepoint for retry_c.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@699 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/heapgc.c | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/C/heapgc.c b/C/heapgc.c
index a3a6ff3a0..733e1b909 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -1461,13 +1461,6 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose)
     if (very_verbose) {
       switch (opnum) {
       case _retry_c:
-	if (gc_B->cp_ap == RETRY_C_RECORDED_CODE 
-	    || gc_B->cp_ap == RETRY_C_RECORDED_K_CODE 
-	    || gc_B->cp_ap == RETRY_C_DRECORDED_CODE 
-	    || gc_B->cp_ap == RETRY_C_RECORDEDP_CODE) {
-	  DBRef entryref = (DBRef)EXTRA_CBACK_ARG(3,1);
-	  entryref->Flags |= GcFoundMask;
-	}
       case _or_else:
       case _or_last:
       case _Nstop: