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

Yapor and normal system use same or_last

Browse Source 
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
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/errors.c
View File

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