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

error handling

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-09-29 23:28:55 +01:00
parent db2cf949b4
commit 4c368a59d3
11 changed files with 39 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
H/rclause.h
View File

@@ -513,12 +513,13 @@ restore_opcodes(yamop *pc, yamop *max USES_REGS)
pc->y_u.sllll.l4 = PtoOpAdjust(pc->y_u.sllll.l4);
pc = NEXTOP(pc,sllll);
break;
/* instructions type slp */
/* instructions type slpp */
case _call_c_wfail:
pc->y_u.slp.s = ConstantAdjust(pc->y_u.slp.s);
pc->y_u.slp.l = PtoOpAdjust(pc->y_u.slp.l);
pc->y_u.slp.p = PtoPredAdjust(pc->y_u.slp.p);
pc = NEXTOP(pc,slp);
pc->y_u.slpp.s = ConstantAdjust(pc->y_u.slpp.s);
pc->y_u.slpp.l = PtoOpAdjust(pc->y_u.slpp.l);
pc->y_u.slpp.p = PtoPredAdjust(pc->y_u.slpp.p);
pc->y_u.slpp.p0 = PtoPredAdjust(pc->y_u.slpp.p0);
pc = NEXTOP(pc,slpp);
break;
/* instructions type sssl */
case _go_on_cons: