new flag design

This commit is contained in:
Vítor Santos Costa 2015-06-18 00:12:25 +01:00
parent 4e09c0faf1
commit 254e63fc8c

View File

@ -3872,7 +3872,7 @@ Yap_assemble(int mode, Term t, PredEntry *ap, int is_fact, struct intermediates
cip->code_addr = (yamop *)cl;
} else if (mode == ASSEMBLING_CLAUSE &&
(ap->PredFlags & SourcePredFlag ||
yap_flags[SOURCE_MODE_FLAG]) &&
trueGlobalPrologFlag(SOURCE_FLAG ) ) &&
!is_fact) {
DBTerm *x;
StaticClause *cl;