people should be able to disable indexing.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1427 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
809ba67ccb
commit
1c02fa4fdc
@ -11,8 +11,11 @@
|
|||||||
* File: index.c *
|
* File: index.c *
|
||||||
* comments: Indexing a Prolog predicate *
|
* comments: Indexing a Prolog predicate *
|
||||||
* *
|
* *
|
||||||
* Last rev: $Date: 2005-09-08 22:06:44 $,$Author: rslopes $ *
|
* Last rev: $Date: 2005-10-29 02:21:47 $,$Author: vsc $ *
|
||||||
* $Log: not supported by cvs2svn $
|
* $Log: not supported by cvs2svn $
|
||||||
|
* Revision 1.145 2005/09/08 22:06:44 rslopes
|
||||||
|
* BEAM for YAP update...
|
||||||
|
*
|
||||||
* Revision 1.144 2005/08/17 18:48:35 vsc
|
* Revision 1.144 2005/08/17 18:48:35 vsc
|
||||||
* fix bug in processing overflows of expand_clauses.
|
* fix bug in processing overflows of expand_clauses.
|
||||||
*
|
*
|
||||||
@ -3973,6 +3976,7 @@ do_index(ClauseDef *min, ClauseDef* max, struct intermediates *cint, UInt argno,
|
|||||||
return emit_single_switch_case(min, cint, first, clleft, fail_l);
|
return emit_single_switch_case(min, cint, first, clleft, fail_l);
|
||||||
}
|
}
|
||||||
if ((argno > 1 && yap_flags[INDEXING_MODE_FLAG] == INDEX_MODE_SINGLE) ||
|
if ((argno > 1 && yap_flags[INDEXING_MODE_FLAG] == INDEX_MODE_SINGLE) ||
|
||||||
|
yap_flags[INDEXING_MODE_FLAG] == INDEX_MODE_OFF ||
|
||||||
ap->ArityOfPE < argno) {
|
ap->ArityOfPE < argno) {
|
||||||
return do_var_clauses(min, max, FALSE, cint, first, clleft, fail_l, ap->ArityOfPE+1);
|
return do_var_clauses(min, max, FALSE, cint, first, clleft, fail_l, ap->ArityOfPE+1);
|
||||||
}
|
}
|
||||||
|
@ -16,7 +16,8 @@
|
|||||||
|
|
||||||
<h2>Yap-5.1.0:</h2>
|
<h2>Yap-5.1.0:</h2>
|
||||||
<ul>
|
<ul>
|
||||||
<li> FIXED: make undefined excetpion more ISO like. </li>
|
<li> FIXED: allow people to disable indexing (obs Ricardo Lopes). </li>
|
||||||
|
<li> FIXED: make undefined exception more ISO like (obs Paulo Moura). </li>
|
||||||
<li> FIXED: add missing dependency in chr's Makefile.in. </li>
|
<li> FIXED: add missing dependency in chr's Makefile.in. </li>
|
||||||
<li> FIXED: fix corruption in ypp.yap. </li>
|
<li> FIXED: fix corruption in ypp.yap. </li>
|
||||||
<li> FIXED: ~@ makes format a meta-predicate. </li>
|
<li> FIXED: ~@ makes format a meta-predicate. </li>
|
||||||
@ -25,7 +26,7 @@
|
|||||||
<li> FIXED: don't complain if a module is loading a reexported
|
<li> FIXED: don't complain if a module is loading a reexported
|
||||||
predicate and the original predicate. </li>
|
predicate and the original predicate. </li>
|
||||||
<li> FIXED: change a few defaults for SWI compatibility. </li>
|
<li> FIXED: change a few defaults for SWI compatibility. </li>
|
||||||
<li> FIXED: library prandom was broken (report from Nuno Fonseca). </li>
|
<li> FIXED: library prandom was broken (obs Nuno Fonseca). </li>
|
||||||
<li> NEW: add max_tagged_integer and min_tagged_inter prolog_flags. </li>
|
<li> NEW: add max_tagged_integer and min_tagged_inter prolog_flags. </li>
|
||||||
<li> NEW: add ~@ option to format. </li>
|
<li> NEW: add ~@ option to format. </li>
|
||||||
<li> NEW: memberchk/2 is like builtin in SWI emulation lib. </li>
|
<li> NEW: memberchk/2 is like builtin in SWI emulation lib. </li>
|
||||||
|
Reference in New Issue
Block a user