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

fix bad copy and paste from master

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-03-17 22:29:24 +00:00
parent a221244b8c
commit 1b238d62ec
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C/heapgc.c
View File

@ -2151,13 +2151,13 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose)
on the other hand it's the only way we can be sure we can reclaim on the other hand it's the only way we can be sure we can reclaim
space space
*/ */
yamop *end = rtp->u.lld.n; yamop *end = rtp->u.OtaLl.n;
while (Yap_op_from_opcode(end->opc) != _count_trust_logical) while (Yap_op_from_opcode(end->opc) != _count_trust_logical)
end = end->u.lld.n; end = end->u.OtaLl.n;
mark_ref_in_use((DBRef)end->u.lld.t.block); mark_ref_in_use((DBRef)end->u.OtILl.block);
} }
/* mark timestamp */ /* mark timestamp */
nargs = rtp->u.lld.t.s+1; nargs = rtp->u.OtaLl.s+1;
break; break;
case _profiled_retry_logical: case _profiled_retry_logical:
{ {
@ -2166,13 +2166,13 @@ mark_choicepoints(register choiceptr gc_B, tr_fr_ptr saved_TR, int very_verbose)
on the other hand it's the only way we can be sure we can reclaim on the other hand it's the only way we can be sure we can reclaim
space space
*/ */
yamop *end = rtp->u.lld.n; yamop *end = rtp->u.OtaLl.n;
while (Yap_op_from_opcode(end->opc) != _profiled_trust_logical) while (Yap_op_from_opcode(end->opc) != _profiled_trust_logical)
end = end->u.lld.n; end = end->u.OtaLl.n;
mark_ref_in_use((DBRef)end->u.lld.t.block); mark_ref_in_use((DBRef)end->u.OtILl.block);
} }
/* mark timestamp */ /* mark timestamp */
nargs = rtp->u.lld.t.s+1; nargs = rtp->u.OtaLl.s+1;
break; break;
case _trust_logical: case _trust_logical:
case _count_trust_logical: case _count_trust_logical: