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

new version of clp(fd)

Browse Source 
fix deadlock with empty args facts in clause/2.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2047 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-12-26 19:50:40 +00:00
parent 65d3704e4b
commit 3faa45cb0a
2 changed files with 672 additions and 329 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
C/cdmgr.c
View File

@ -11,8 +11,11 @@
* File: cdmgr.c * * File: cdmgr.c *
* comments: Code manager * * comments: Code manager *
* * * *
* Last rev: $Date: 2007-12-23 22:48:44 $,$Author: vsc $ * * Last rev: $Date: 2007-12-26 19:50:40 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.216 2007/12/23 22:48:44 vsc
* recover stack space
*
* Revision 1.215 2007/12/18 17:46:58 vsc * Revision 1.215 2007/12/18 17:46:58 vsc
* purge_clauses does not need to do anything if there are no clauses * purge_clauses does not need to do anything if there are no clauses
* fix gprof bugs. * fix gprof bugs.
@ -4864,6 +4867,9 @@ fetch_next_lu_clause(PredEntry *pe, yamop *i_code, Term th, Term tb, Term tr, ya
#if defined(YAPOR) || defined(THREADS) #if defined(YAPOR) || defined(THREADS)
PP = pe; PP = pe;
#endif #endif
} else {
/* we don't actually need to execute code */
UNLOCK(pe->PELock);
} }
return TRUE; return TRUE;
} else { } else {
@ -4980,6 +4986,9 @@ fetch_next_lu_clause0(PredEntry *pe, yamop *i_code, Term th, Term tb, yamop *cp_
#if defined(YAPOR) || defined(THREADS) #if defined(YAPOR) || defined(THREADS)
PP = pe; PP = pe;
#endif #endif
} else {
/* we don't actually need to execute code */
UNLOCK(pe->PELock);
} }
return TRUE; return TRUE;
} else { } else {

990
library/clpfd.pl
View File

File diff suppressed because it is too large Load Diff