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

prevent breakage

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1569 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-03-21 17:11:39 +00:00
parent 8812310636
commit a578a778a4
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
C/cdmgr.c
View File

@ -11,8 +11,11 @@
* File: cdmgr.c *
* comments: Code manager *
* *
* Last rev: $Date: 2006-03-20 19:51:43 $,$Author: vsc $ *
* Last rev: $Date: 2006-03-21 17:11:39 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.178 2006/03/20 19:51:43 vsc
* fix indexing and tabling bugs
*
* Revision 1.177 2006/03/06 14:04:56 vsc
* fixes to garbage collector
* fixes to debugger
@ -995,7 +998,6 @@ kill_off_lu_block(LogUpdIndex *c, LogUpdIndex *parent, PredEntry *ap)
{
/* first, make sure that I killed off all my children, some children may
remain in case I have tables as children */
kill_children(c, ap);
decrease_log_indices(c, (yamop *)&(ap->cs.p_code.ExpandCode));
if (parent != NULL) {
/* sat bye bye */

9
C/index.c
View File

@ -11,8 +11,11 @@
* File: index.c *
* comments: Indexing a Prolog predicate *
* *
* Last rev: $Date: 2006-03-21 15:06:35 $,$Author: vsc $ *
* Last rev: $Date: 2006-03-21 17:11:39 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.155 2006/03/21 15:06:35 vsc
* fixes to handle expansion of dyn amic predicates more efficiently.
*
* Revision 1.154 2006/03/20 19:51:43 vsc
* fix indexing and tabling bugs
*
@ -4842,7 +4845,7 @@ count_clauses_left(yamop *cl, PredEntry *ap)
static ClausePointer
index_jmp(ClausePointer cur, yamop *ipc, int is_lu, yamop *e_code)
{
if (cur.lui == NULL) {
if (cur.lui == NULL || TRUE) {
cur.lui = NULL;
return cur;
}
@ -4873,7 +4876,7 @@ index_jmp(ClausePointer cur, yamop *ipc, int is_lu, yamop *e_code)
cur.lui = NULL;
return cur;
}
cur.lui = lcur;
cur.lui = ncur;
return cur;
} else {
StaticIndex *scur = cur.si;