Removed debugging line to allow compilation.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1029 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
f08723a4b1
commit
30c2f0e570
11
C/index.c
11
C/index.c
|
@ -11,8 +11,14 @@
|
||||||
* File: index.c *
|
* File: index.c *
|
||||||
* comments: Indexing a Prolog predicate *
|
* comments: Indexing a Prolog predicate *
|
||||||
* *
|
* *
|
||||||
* Last rev: $Date: 2004-03-19 11:35:42 $,$Author: vsc $ *
|
* Last rev: $Date: 2004-03-25 02:19:10 $,$Author: pmoura $ *
|
||||||
* $Log: not supported by cvs2svn $ *
|
* $Log: not supported by cvs2svn $
|
||||||
|
* Revision 1.80 2004/03/19 11:35:42 vsc
|
||||||
|
* trim_trail for default machine
|
||||||
|
* be more aggressive about try-retry-trust chains.
|
||||||
|
* - handle cases where block starts with a wait
|
||||||
|
* - don't use _killed instructions, just let the thing rot by itself.
|
||||||
|
* *
|
||||||
* *
|
* *
|
||||||
*************************************************************************/
|
*************************************************************************/
|
||||||
#ifdef SCCS
|
#ifdef SCCS
|
||||||
|
@ -4099,7 +4105,6 @@ expand_index(struct intermediates *cint) {
|
||||||
} else {
|
} else {
|
||||||
max = install_clauses(cls, ap, stack, first, last);
|
max = install_clauses(cls, ap, stack, first, last);
|
||||||
}
|
}
|
||||||
fprintf(stderr,"expanding %d/%d\n",(max-cls)+1,NClauses);
|
|
||||||
/* don't count last clause if you don't have to */
|
/* don't count last clause if you don't have to */
|
||||||
if (alt && max->Code == last) max--;
|
if (alt && max->Code == last) max--;
|
||||||
if (max < cls && labp != NULL) {
|
if (max < cls && labp != NULL) {
|
||||||
|
|
Reference in New Issue