From ac1c243bf334d1f28fb026b385de53ab145c3cc2 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 22 Jan 2002 15:06:22 +0000
Subject: [PATCH] make gc support new catch and throw mechanism

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

diff --git a/C/heapgc.c b/C/heapgc.c
index 383eb1266..229c07874 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -1444,6 +1444,9 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR)
 	op = rtp->opc;
 	opnum = op_from_opcode(op);
 	goto restart_cp;
+      case _trust_fail:
+	nargs = 0;
+	break;
 #ifdef TABLING
       case _table_answer_resolution:
 	{
@@ -1924,6 +1927,11 @@ sweep_choicepoints(choiceptr gc_B)
 	break;
       } else
 	return;
+    case _trust_fail:
+      sweep_environments(gc_B->cp_env,
+			 EnvSizeInCells,
+			 NULL);
+      break;
     case _or_else:
     case _or_last: