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

bad bug in indexing code.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1081 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-06-17 22:07:23 +00:00
parent c68ef42a40
commit c715e145ef
3 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/absmi.c
View File

@ -10,8 +10,11 @@
* *
* File: absmi.c *
* comments: Portable abstract machine interpreter *
* Last rev: $Date: 2004-06-09 03:32:02 $,$Author: vsc $ *
* Last rev: $Date: 2004-06-17 22:07:22 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.135 2004/06/09 03:32:02 vsc
* fix bugs
*
* Revision 1.134 2004/06/05 03:36:59 vsc
* coroutining is now a part of attvars.
* some more fixes.
@ -7049,7 +7052,7 @@ Yap_absmi(int inp)
ENDD(d1);
ENDBOp();
BOp(switch_on_cons, ssl);
BOp(switch_on_cons, sssl);
BEGD(d1);
d1 = I_R;
/* we use a very simple hash function to find elements in a

10
C/index.c
View File

@ -11,8 +11,11 @@
* File: index.c *
* comments: Indexing a Prolog predicate *
* *
* Last rev: $Date: 2004-04-29 03:44:04 $,$Author: vsc $ *
* Last rev: $Date: 2004-06-17 22:07:23 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.90 2004/04/29 03:44:04 vsc
* fix bad suspended clause counter
*
* Revision 1.89 2004/04/27 15:03:43 vsc
* more fixes for expand_clauses
*
@ -4972,11 +4975,12 @@ kill_block(path_stack_entry *sp, PredEntry *ap)
}
static path_stack_entry *
kill_clause(yamop *ipc, yamop *bg, yamop *lt, path_stack_entry *sp, PredEntry *ap)
kill_clause(yamop *ipc, yamop *bg, yamop *lt, path_stack_entry *sp0, PredEntry *ap)
{
LogUpdIndex *blk;
yamop *start;
op_numbers op0;
path_stack_entry *sp = sp0;
while ((--sp)->flag != block_entry);
blk = (LogUpdIndex *)(sp->u.cle.block);
@ -5041,7 +5045,7 @@ kill_clause(yamop *ipc, yamop *bg, yamop *lt, path_stack_entry *sp, PredEntry *a
start->u.Ill.l1->u.ld.d = FAILCODE;
}
start->opc = Yap_opcode(_stale_lu_index);
return sp;
return sp0;
}
}

12
C/tracer.c
View File

@ -110,6 +110,10 @@ int vsc_xstop = FALSE;
CELL old_value = 0L, old_value2 = 0L;
/*
void jmp_deb(int i) {if (i) printf("Here we go\n"); else jmp_deb(0);}
*/
void
low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
{
@ -118,14 +122,6 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
Int arity;
/* extern int gc_calls; */
#if THREADS
LOCK(heap_regs->low_level_trace_lock);
if (thread_trace &&
worker_id +1 != thread_trace) {
UNLOCK(heap_regs->low_level_trace_lock);
return;
}
#endif
vsc_count++;
#ifdef COMMENTED
// if (vsc_count == 218280)