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

don't remove source annotations.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-08-25 03:19:27 +01:00
parent 1cd3777a45
commit 6df5d0a214
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
C/cdmgr.c
View File

@ -1631,6 +1631,19 @@ retract_all(PredEntry *p, int in_use)
Yap_PutValue(AtomAbol, MkAtomTerm(AtomTrue)); Yap_PutValue(AtomAbol, MkAtomTerm(AtomTrue));
} }
static int
source_pred(PredEntry *p, yamop *q)
{
if (p->PredFlags & (DynamicPredFlag|LogUpdatePredFlag))
return FALSE;
if (p->PredFlags & MultiFileFlag)
return TRUE;
if (yap_flags[SOURCE_MODE_FLAG]) {
return TRUE;
}
return FALSE;
}
/* p is already locked */ /* p is already locked */
static void static void
add_first_static(PredEntry *p, yamop *cp, int spy_flag) add_first_static(PredEntry *p, yamop *cp, int spy_flag)
@ -1682,12 +1695,8 @@ add_first_static(PredEntry *p, yamop *cp, int spy_flag)
p->OpcodeOfPred = Yap_opcode(_spy_pred); p->OpcodeOfPred = Yap_opcode(_spy_pred);
p->CodeOfPred = (yamop *)(&(p->OpcodeOfPred)); p->CodeOfPred = (yamop *)(&(p->OpcodeOfPred));
} }
if ((yap_flags[SOURCE_MODE_FLAG] || if (source_pred(p, cp)) {
(p->PredFlags & MultiFileFlag)) &&
!(p->PredFlags & (DynamicPredFlag|LogUpdatePredFlag))) {
p->PredFlags |= SourcePredFlag; p->PredFlags |= SourcePredFlag;
} else {
p->PredFlags &= ~SourcePredFlag;
} }
} }