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

fix two instructions that were being read badly: op_fail and

Browse Source 
switch_list_nl.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1393 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-09-19 19:14:50 +00:00
parent 03ba05f24a
commit c6c9e71e31
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
H/rclause.h
View File

@ -12,8 +12,11 @@
* File: rclause.h * * File: rclause.h *
* comments: walk through a clause * * comments: walk through a clause *
* * * *
* Last rev: $Date: 2005-09-08 21:55:47 $,$Author: rslopes $ * * Last rev: $Date: 2005-09-19 19:14:50 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.11 2005/09/08 21:55:47 rslopes
* BEAM for YAP update...
*
* Revision 1.10 2005/08/01 15:40:38 ricroc * Revision 1.10 2005/08/01 15:40:38 ricroc
* TABLING NEW: better support for incomplete tabling * TABLING NEW: better support for incomplete tabling
* *
@ -180,6 +183,7 @@ restore_opcodes(yamop *pc)
case _retry3: case _retry3:
case _retry4: case _retry4:
case _p_eq: case _p_eq:
case _p_dif:
pc->u.l.l = PtoOpAdjust(pc->u.l.l); pc->u.l.l = PtoOpAdjust(pc->u.l.l);
pc = NEXTOP(pc,l); pc = NEXTOP(pc,l);
break; break;
@ -220,7 +224,6 @@ restore_opcodes(yamop *pc)
case _undef_p: case _undef_p:
case _spy_pred: case _spy_pred:
case _p_equal: case _p_equal:
case _p_dif:
case _p_functor: case _p_functor:
case _enter_a_profiling: case _enter_a_profiling:
case _count_a_call: case _count_a_call:
@ -776,10 +779,10 @@ restore_opcodes(yamop *pc)
/* instructions type xllll */ /* instructions type xllll */
case _switch_list_nl: case _switch_list_nl:
pc->u.ollll.pop = Yap_opcode(Yap_op_from_opcode(pc->u.ollll.pop)); pc->u.ollll.pop = Yap_opcode(Yap_op_from_opcode(pc->u.ollll.pop));
pc->u.ollll.l1 = PtoOpAdjust(pc->u.llll.l1); pc->u.ollll.l1 = PtoOpAdjust(pc->u.ollll.l1);
pc->u.ollll.l2 = PtoOpAdjust(pc->u.llll.l2); pc->u.ollll.l2 = PtoOpAdjust(pc->u.ollll.l2);
pc->u.ollll.l3 = PtoOpAdjust(pc->u.llll.l3); pc->u.ollll.l3 = PtoOpAdjust(pc->u.ollll.l3);
pc->u.ollll.l4 = PtoOpAdjust(pc->u.llll.l4); pc->u.ollll.l4 = PtoOpAdjust(pc->u.ollll.l4);
pc = NEXTOP(pc,ollll); pc = NEXTOP(pc,ollll);
break; break;
/* instructions type xllll */ /* instructions type xllll */