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

fix bug in unwinding trail at amiops.h 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1124 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-09-07 16:48:04 +00:00
parent 9e0151070f
commit 6bf9d6cef1
2 changed files with 7 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: 2004-09-07 16:25:22 $,$Author: vsc $ * * Last rev: $Date: 2004-09-07 16:48:04 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.129 2004/09/07 16:25:22 vsc
* memory management bug fixes
*
* Revision 1.128 2004/09/03 03:11:07 vsc * Revision 1.128 2004/09/03 03:11:07 vsc
* memory management fixes * memory management fixes
* *
@ -2808,7 +2811,6 @@ PredForCode(yamop *codeptr, Atom *pat, UInt *parity, Term *pmodule) {
for (i_table = 0; i_table < NoOfModules; i_table++) { for (i_table = 0; i_table < NoOfModules; i_table++) {
PredEntry *pp; PredEntry *pp;
restart:
pp = ModulePred[i_table]; pp = ModulePred[i_table];
while (pp != NULL) { while (pp != NULL) {
if ((found = code_in_pred(pp, pat, parity, codeptr)) != 0) { if ((found = code_in_pred(pp, pat, parity, codeptr)) != 0) {

6
H/amiops.h
View File

@ -392,12 +392,12 @@ Int Yap_unify(Term t0, Term t1)
/* AbsAppl means */ /* AbsAppl means */
/* multi-assignment variable */ /* multi-assignment variable */
/* so the next cell is the old value */ /* so the next cell is the old value */
TR--;
#if FROZEN_STACKS #if FROZEN_STACKS
pt[0] = TrailVal(TR); pt[0] = TrailVal(TR-1);
#else #else
pt[0] = TrailTerm(TR); pt[0] = TrailTerm(TR-1);
#endif /* FROZEN_STACKS */ #endif /* FROZEN_STACKS */
TR -= 2;
} }
#endif #endif
} }