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

protect systemm

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-03 01:16:38 +00:00
parent 344cdc69be
commit 062293055b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/adtdefs.c
View File

@ -968,6 +968,8 @@ Prop Yap_NewPredPropByAtom(AtomEntry *ae, Term cur_mod) {
if (!trueGlobalPrologFlag(DEBUG_INFO_FLAG)) { if (!trueGlobalPrologFlag(DEBUG_INFO_FLAG)) {
p->PredFlags |= (NoTracePredFlag | NoSpyPredFlag); p->PredFlags |= (NoTracePredFlag | NoSpyPredFlag);
} }
if (Yap_isSystemModule(CurrentModule))
p->PredFlags |= StandardPredFlag;
WRITE_UNLOCK(ae->ARWLock); WRITE_UNLOCK(ae->ARWLock);
{ {
Yap_inform_profiler_of_clause(&(p->OpcodeOfPred), &(p->OpcodeOfPred) + 1, p, Yap_inform_profiler_of_clause(&(p->OpcodeOfPred), &(p->OpcodeOfPred) + 1, p,