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 * * File: cdmgr.c *
* comments: Code manager * * 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 $ * $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 * Revision 1.177 2006/03/06 14:04:56 vsc
* fixes to garbage collector * fixes to garbage collector
* fixes to debugger * 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 /* first, make sure that I killed off all my children, some children may
remain in case I have tables as children */ remain in case I have tables as children */
kill_children(c, ap);
decrease_log_indices(c, (yamop *)&(ap->cs.p_code.ExpandCode)); decrease_log_indices(c, (yamop *)&(ap->cs.p_code.ExpandCode));
if (parent != NULL) { if (parent != NULL) {
/* sat bye bye */ /* sat bye bye */

9
C/index.c
View File

@ -11,8 +11,11 @@
* File: index.c * * File: index.c *
* comments: Indexing a Prolog predicate * * 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 $ * $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 * Revision 1.154 2006/03/20 19:51:43 vsc
* fix indexing and tabling bugs * fix indexing and tabling bugs
* *
@ -4842,7 +4845,7 @@ count_clauses_left(yamop *cl, PredEntry *ap)
static ClausePointer static ClausePointer
index_jmp(ClausePointer cur, yamop *ipc, int is_lu, yamop *e_code) index_jmp(ClausePointer cur, yamop *ipc, int is_lu, yamop *e_code)
{ {
if (cur.lui == NULL) { if (cur.lui == NULL || TRUE) {
cur.lui = NULL; cur.lui = NULL;
return cur; return cur;
} }
@ -4873,7 +4876,7 @@ index_jmp(ClausePointer cur, yamop *ipc, int is_lu, yamop *e_code)
cur.lui = NULL; cur.lui = NULL;
return cur; return cur;
} }
cur.lui = lcur; cur.lui = ncur;
return cur; return cur;
} else { } else {
StaticIndex *scur = cur.si; StaticIndex *scur = cur.si;