fix some thread bugs (thanks to Paulo Moura).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1866 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2007-04-16 15:24:24 +00:00
parent 67738fbbd1
commit 7fe05a5c48
5 changed files with 9 additions and 5 deletions

View File

@@ -67,7 +67,7 @@ GetModuleEntry(Atom at)
p0 = me->NextOfPE;
}
new = (ModEntry *) Yap_AllocAtomSpace(sizeof(*new));
INIT_RWLOCK(new->GRWLock);
INIT_RWLOCK(new->ModRWLock);
new->KindOfPE = ModProperty;
new->NextME = CurrentModules;
CurrentModules = new;