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:
parent
28ec10b764
commit
5b2faebb9d
@ -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);
|
||||
|
Reference in New Issue
Block a user