fix queues

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@208 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-12-02 16:29:00 +00:00
parent 45a0bc7aef
commit 80e5fc7285

View File

@ -3814,9 +3814,9 @@ p_init_queue(void)
dbq->EntryTerm = MkAtomTerm(AbsAtom((AtomEntry *)dbq));
dbq->Flags = DBClMask;
dbq->FirstInQueue = dbq->LastInQueue = NULL;
dbq->next = DBQueues;
dbq->prev = NULL;
}
dbq->next = DBQueues;
DBQueues = dbq;
dbq->age = IntOfTerm(GetValue(AtomCatch));
INIT_RWLOCK(dbq->QRWLock);