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

mod 0 protection

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-03 01:15:11 +00:00
parent 3ee2a11529
commit da66171f3d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/adtdefs.c
View File

@ -793,9 +793,9 @@ Prop Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod) {
WRITE_UNLOCK(fe->FRWLock); WRITE_UNLOCK(fe->FRWLock);
return NULL; return NULL;
} }
if (cur_mod == TermProlog) if (cur_mod == TermProlog || cur_mod == 0L) {
p->ModuleOfPred = 0L; p->ModuleOfPred = 0L;
else } else
p->ModuleOfPred = cur_mod; p->ModuleOfPred = cur_mod;
// TRUE_FUNC_WRITE_LOCK(fe); // TRUE_FUNC_WRITE_LOCK(fe);
#if DEBUG_NEW_FUNCTOR #if DEBUG_NEW_FUNCTOR