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

make gc support new catch and throw mechanism

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@316 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-22 15:06:22 +00:00
parent 3e3aa8f0e5
commit ac1c243bf3
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C/heapgc.c
View File

@ -1444,6 +1444,9 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR)
op = rtp->opc; op = rtp->opc;
opnum = op_from_opcode(op); opnum = op_from_opcode(op);
goto restart_cp; goto restart_cp;
case _trust_fail:
nargs = 0;
break;
#ifdef TABLING #ifdef TABLING
case _table_answer_resolution: case _table_answer_resolution:
{ {
@ -1924,6 +1927,11 @@ sweep_choicepoints(choiceptr gc_B)
break; break;
} else } else
return; return;
case _trust_fail:
sweep_environments(gc_B->cp_env,
EnvSizeInCells,
NULL);
break;
case _or_else: case _or_else:
case _or_last: case _or_last: