Yapor and normal system use same or_last

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@710 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-12-01 04:14:41 +00:00
parent 28ec10b764
commit 5b2faebb9d

View File

@ -148,11 +148,7 @@ DumpActiveGoals (void)
Yap_plwrite(MkAtomTerm(Yap_LookupAtom("repeat ")), Yap_DebugPutc, 0);
}
case _or_last:
#ifdef YAPOR
pe = PredFromOr(b_ptr->cp_cp->u.ldl.bl);
#else
pe = b_ptr->cp_cp->u.sla.p0;
#endif /* YAPOR */
break;
case _retry_profiled:
opnum = Yap_op_from_opcode(NEXTOP(b_ptr->cp_ap,l)->opc);