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

avoid using space on statistics

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-04-21 16:09:43 -06:00
parent 94e2d3cf22
commit 660800af67
11 changed files with 150 additions and 145 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
C/adtdefs.c
View File

@@ -828,10 +828,7 @@ Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod)
else
p->ModuleOfPred = cur_mod;
Yap_NewModulePred(cur_mod, p);
INIT_LOCK(p->StatisticsForPred.lock);
p->StatisticsForPred.NOfEntries = 0;
p->StatisticsForPred.NOfHeadSuccesses = 0;
p->StatisticsForPred.NOfRetries = 0;
#ifdef TABLING
p->TableOfPred = NULL;
#endif /* TABLING */
@@ -920,10 +917,6 @@ Yap_NewThreadPred(PredEntry *ap USES_REGS)
p->NextPredOfModule = NULL;
p->TimeStampOfPred = 0L;
p->LastCallOfPred = LUCALL_ASSERT;
INIT_LOCK(p->StatisticsForPred.lock);
p->StatisticsForPred.NOfEntries = 0;
p->StatisticsForPred.NOfHeadSuccesses = 0;
p->StatisticsForPred.NOfRetries = 0;
#ifdef TABLING
p->TableOfPred = NULL;
#endif /* TABLING */
@@ -972,10 +965,6 @@ Yap_NewPredPropByAtom(AtomEntry *ae, Term cur_mod)
else
p->ModuleOfPred = cur_mod;
Yap_NewModulePred(cur_mod, p);
INIT_LOCK(p->StatisticsForPred.lock);
p->StatisticsForPred.NOfEntries = 0;
p->StatisticsForPred.NOfHeadSuccesses = 0;
p->StatisticsForPred.NOfRetries = 0;
p->TimeStampOfPred = 0L;
p->LastCallOfPred = LUCALL_ASSERT;
#ifdef TABLING