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

fix bad indexing (obs from Jos)

Browse Source
This commit is contained in:
Vitor Santos Costa
2012-12-07 23:43:00 +00:00
parent b98b09e7de
commit f0b44b9b77
7 changed files with 21 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
H/rclause.h
View File

@@ -53,6 +53,7 @@ restore_opcodes(yamop *pc, yamop *max USES_REGS)
break;
/* instructions type Osbmp */
case _p_execute:
case _p_execute_tail:
OrArgAdjust(pc->u.Osbmp.or_arg);
pc->u.Osbmp.s = ConstantAdjust(pc->u.Osbmp.s);
pc->u.Osbmp.bmap = CellPtoHeapAdjust(pc->u.Osbmp.bmap);
@@ -75,7 +76,6 @@ restore_opcodes(yamop *pc, yamop *max USES_REGS)
case _call_usercpred:
case _fcall:
case _p_execute2:
case _p_execute_tail:
OrArgAdjust(pc->u.Osbpp.or_arg);
pc->u.Osbpp.s = ConstantAdjust(pc->u.Osbpp.s);
pc->u.Osbpp.bmap = CellPtoHeapAdjust(pc->u.Osbpp.bmap);