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

fix bad ref count in expand_clauses when copying indexing block

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1099 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-07-23 19:01:14 +00:00
parent 3e0a3fa9f3
commit 16c1c87c50
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/index.c
View File

@ -11,8 +11,15 @@
* File: index.c * * File: index.c *
* comments: Indexing a Prolog predicate * * comments: Indexing a Prolog predicate *
* * * *
* Last rev: $Date: 2004-06-29 19:04:42 $,$Author: vsc $ * * Last rev: $Date: 2004-07-23 19:01:14 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.92 2004/06/29 19:04:42 vsc
* fix multithreaded version
* include new version of Ricardo's profiler
* new predicat atomic_concat
* allow multithreaded-debugging
* small fixes
*
* Revision 1.91 2004/06/17 22:07:23 vsc * Revision 1.91 2004/06/17 22:07:23 vsc
* bad bug in indexing code. * bad bug in indexing code.
* *
@ -5263,6 +5270,9 @@ replace_lu_block(LogUpdIndex *blk, int flag, PredEntry *ap, yamop *code, int has
nbegin->opc = begin->opc; nbegin->opc = begin->opc;
nbegin->u.xl.x = begin->u.xl.x; nbegin->u.xl.x = begin->u.xl.x;
nbegin->u.xl.l = begin->u.xl.l; nbegin->u.xl.l = begin->u.xl.l;
if (nbegin->u.xl.l->opc == Yap_opcode(_expand_clauses)) {
nbegin->u.xl.l->u.sp.s3++;
}
begin = NEXTOP(begin, xl); begin = NEXTOP(begin, xl);
nbegin = NEXTOP(nbegin, xl); nbegin = NEXTOP(nbegin, xl);
} }