don't be too eager at throwing indexing code for static predicates away.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1573 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-03-22 16:14:20 +00:00
parent 01091f0bfa
commit 01a088bd54
3 changed files with 20 additions and 7 deletions

View File

@@ -724,14 +724,10 @@ Yap_InitCPredBack(char *Name, unsigned long int Arity,
else {
StaticClause *cl;
yamop *code = ((StaticClause *)NULL)->ClCode;
#ifdef CUT_C
if (flags & UserCPredFlag)
pe->PredFlags = UserCPredFlag | CompiledPredFlag | StandardPredFlag;
else
pe->PredFlags = CompiledPredFlag | StandardPredFlag;
#else /* BUG ?*/
pe->PredFlags = CompiledPredFlag | StandardPredFlag;
#endif /*CUT_C*/
#ifdef YAPOR
pe->PredFlags |= SequentialPredFlag;