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

fix small bug in restore opcode

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2068 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-01-28 18:12:36 +00:00
parent e032bcb8be
commit f1613bf732
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
H/rclause.h
View File

@ -12,8 +12,12 @@
* File: rclause.h *
* comments: walk through a clause *
* *
* Last rev: $Date: 2008-01-23 17:57:55 $,$Author: vsc $ *
* Last rev: $Date: 2008-01-28 18:12:36 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.22 2008/01/23 17:57:55 vsc
* valgrind it!
* enable atom garbage collection.
*
* Revision 1.21 2007/11/26 23:43:09 vsc
* fixes to support threads and assert correctly, even if inefficiently.
*
@ -396,7 +400,10 @@ restore_opcodes(yamop *pc)
case _p_execute2:
pc->u.sla.sla_u.p = PtoPredAdjust(pc->u.sla.sla_u.p);
if (pc->u.sla.sla_u.mod != 0) {
pc->u.sla.sla_u.mod = AtomTermAdjust(pc->u.sla.sla_u.mod);
if (IsAtomTerm(pc->u.sla.sla_u.mod))
pc->u.sla.sla_u.mod = AtomTermAdjust(pc->u.sla.sla_u.mod);
else
pc->u.sla.sla_u.p = PtoPredAdjust(pc->u.sla.sla_u.p);
}
pc->u.sla.p0 = PtoPredAdjust(pc->u.sla.p0);
if (pc->u.sla.bmap != NULL) {