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

fix cut support for or-parallelism

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/index.c
View File

@ -1453,7 +1453,7 @@ static Int has_cut(yamop *pc, PredEntry *ap)
{
if (ap->PredFlags & LogUpdatePredFlag) {
LogUpdClause *lcl = ClauseCodeToLogUpdClause(pc);
return lcl->ClFlags & HasCutMask;
return lcl->ClFlags & HasCutMask ? 1 : 0;
} else if (ap->PredFlags & MegaClausePredFlag) {
/* must be a fact */
return FALSE;
@ -1461,7 +1461,7 @@ static Int has_cut(yamop *pc, PredEntry *ap)
StaticClause *scl;
scl = ClauseCodeToStaticClause(pc);
return scl->ClFlags & HasCutMask;
return scl->ClFlags & HasCutMask ? 1 : 0;
}
}

6
H/absmi.h
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);

12
OPTYap/or.macros.h
View File

@ -169,12 +169,12 @@ STD_PROTO(static inline qg_sol_fr_ptr CUT_prune_solution_frames, (qg_sol_fr_ptr,
** Cut Macros **
** -------------------- */
#define CUT_prune_to(PRUNE_CP) \
if (YOUNGER_CP(Get_LOCAL_top_cp(), PRUNE_CP)) { \
if (! Get_LOCAL_prune_request()) \
prune_shared_branch(PRUNE_CP); \
PRUNE_CP = Get_LOCAL_top_cp(); \
}
#define CUT_prune_to(PRUNE_CP) \
if (YOUNGER_CP(Get_LOCAL_top_cp(), PRUNE_CP)) { \
if (! Get_LOCAL_prune_request()) \
prune_shared_branch(PRUNE_CP); \
PRUNE_CP = Get_LOCAL_top_cp(); \
}
#define CUT_wait_leftmost() \
if (GLOBAL_parallel_mode == PARALLEL_MODE_RUNNING) { \

16
configure vendored
View File

@ -7511,21 +7511,21 @@ if test "$threads" = "yes"
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "--or-parallelism=sba incompatible with threads
;;
a-cow
See \`config.log' for more details." "$LINENO" 5; }
;;
a-cow)
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "--or-parallelism=a-cow incompatible with threads
;;
copy
See \`config.log' for more details." "$LINENO" 5; }
;;
copy)
{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
as_fn_error "--or-parallelism=copy incompatible with threads
;;
yes|threads
See \`config.log' for more details." "$LINENO" 5; }
;;
yes|threads)
YAP_EXTRAS="$YAP_EXTRAS -DYAPOR_THREADS=1"
;;
esac
@ -10619,8 +10619,8 @@ esac
cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
# Files that config.status was made for.
config_files="$ac_config_files"
config_headers="$ac_config_headers"
config_files="`echo $ac_config_files`"
config_headers="`echo $ac_config_headers`"
_ACEOF

6
configure.in
View File

@ -1321,15 +1321,15 @@ if test "$threads" = "yes"
case "$orparallelism" in
sba)
AC_MSG_FAILURE(
[--or-parallelism=sba incompatible with threads]
[--or-parallelism=sba incompatible with threads])
;;
a-cow)
AC_MSG_FAILURE(
[--or-parallelism=a-cow incompatible with threads]
[--or-parallelism=a-cow incompatible with threads])
;;
copy)
AC_MSG_FAILURE(
[--or-parallelism=copy incompatible with threads]
[--or-parallelism=copy incompatible with threads])
;;
yes|threads)
YAP_EXTRAS="$YAP_EXTRAS -DYAPOR_THREADS=1"

2
packages/pldoc

@ -1 +1 @@
Subproject commit b1c05f2dfba27286d3810c6921d027cecd528b01
Subproject commit d41891071193a6c9d20b30bdbe709531948e111b