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

thread support updates

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1006 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-02-26 13:37:24 +00:00
parent 58e306b815
commit c90c3b7b34
5 changed files with 9 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
C/absmi.c
View File

@@ -1083,6 +1083,7 @@ Yap_absmi(int inp)
READ_LOCK(PP->PRWLock);
if (PP->cs.p_code.TrueCodeOfPred != PREG) {
PREG = PP->cs.p_code.TrueCodeOfPred;
PP = NULL;
READ_UNLOCK(PP->PRWLock);
GONext();
}
@@ -6377,10 +6378,6 @@ Yap_absmi(int inp)
#endif
saveregs();
pt0 = Yap_ExpandIndex(pe);
if (PP == NULL) {
READ_UNLOCK(pe->PRWLock);
PP = pe;
}
/* restart index */
setregs();
UNLOCK(pe->PELock);