init
This commit is contained in:
parent
9a211ac1d4
commit
29f0f88025
@ -393,6 +393,7 @@ Atom Yap_LookupAtomWithLength(const char *atom,
|
||||
}
|
||||
info = (OpEntry *)Yap_AllocAtomSpace(sizeof(OpEntry));
|
||||
info->KindOfPE = Ord(OpProperty);
|
||||
info->NextOfPE = NULL;
|
||||
info->OpModule = mod;
|
||||
info->OpName = a;
|
||||
LOCK(OpListLock);
|
||||
|
@ -50,6 +50,7 @@ static ModEntry *initMod(AtomEntry *toname, AtomEntry *ae) {
|
||||
INIT_RWLOCK(n->ModRWLock);
|
||||
n->KindOfPE = ModProperty;
|
||||
n->PredForME = NULL;
|
||||
n->OpForME = NULL;
|
||||
n->NextME = CurrentModules;
|
||||
CurrentModules = n;
|
||||
n->AtomOfME = ae;
|
||||
|
Reference in New Issue
Block a user