fix cut support for or-parallelism

This commit is contained in:
Ricardo Rocha
2011-07-13 17:36:26 +01:00
parent 45e5e3b983
commit 22d8e33a5f
6 changed files with 23 additions and 23 deletions

View File

@@ -1540,6 +1540,9 @@ static inline void
prune(choiceptr cp)
{
CACHE_REGS
#ifdef YAPOR
CUT_prune_to(cp);
#endif /* YAPOR */
if (SHOULD_CUT_UP_TO(B,cp))
{
if (ASP > (CELL *)PROTECT_FROZEN_B(B))
@@ -1555,9 +1558,6 @@ prune(choiceptr cp)
{
POP_EXECUTE();
}
#ifdef YAPOR
CUT_prune_to(cp);
#endif /* YAPOR */
/* cut ! */
#ifdef TABLING
abolish_incomplete_subgoals(B);