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

more fixes for threads

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1000 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-02-20 18:56:07 +00:00
parent 0c1ed177f6
commit d81bcb58e3
8 changed files with 43 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
C/dbase.c
View File

@@ -3850,8 +3850,13 @@ static void
EraseLogUpdCl(LogUpdClause *clau)
{
PredEntry *ap;
LOCK(clau->ClLock);
ap = clau->ClPred;
#if defined(YAPOR) || defined(THREADS)
if (WPP != ap) {
WRITE_LOCK(ap->PRWLock);
}
#endif
LOCK(clau->ClLock);
/* no need to erase what has been erased */
if (!(clau->ClFlags & ErasedMask)) {
/* get ourselves out of the list */
@@ -3865,7 +3870,7 @@ EraseLogUpdCl(LogUpdClause *clau)
clau->ClPrev->ClNext = clau->ClNext;
UNLOCK(clau->ClPrev->ClLock);
}
WRITE_LOCK(ap->PRWLock);
UNLOCK(clau->ClLock);
if (clau->ClCode == ap->cs.p_code.FirstClause) {
if (clau->ClNext == NULL) {
ap->cs.p_code.FirstClause = NULL;
@@ -3881,7 +3886,6 @@ EraseLogUpdCl(LogUpdClause *clau)
}
}
ap->cs.p_code.NOfClauses--;
WRITE_UNLOCK(ap->PRWLock);
clau->ClFlags |= ErasedMask;
#ifdef DEBUG
{
@@ -3906,6 +3910,11 @@ EraseLogUpdCl(LogUpdClause *clau)
}
UNLOCK(clau->ClLock);
complete_lu_erase(clau);
#if defined(YAPOR) || defined(THREADS)
if (WPP != ap) {
WRITE_UNLOCK(ap->PRWLock);
}
#endif
}
static void