fix weird instruction with tabling and new optypes;
fix a stray ld.
This commit is contained in:
parent
461d24360a
commit
b6409fc980
|
@ -2814,7 +2814,7 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
|
||||||
*entry_codep = code_p;
|
*entry_codep = code_p;
|
||||||
if (tabled) {
|
if (tabled) {
|
||||||
#if TABLING
|
#if TABLING
|
||||||
code_p = a_try(_table_try_single, (CELL)NEXTOP(code_p,ld), IPredArity, code_p, pass_no, cip);
|
code_p = a_try(_table_try_single, (CELL)NEXTOP(code_p,apl), IPredArity, code_p, pass_no, cip);
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
if (dynamic) {
|
if (dynamic) {
|
||||||
|
|
|
@ -322,7 +322,9 @@
|
||||||
OPCODE(sync ,apl),
|
OPCODE(sync ,apl),
|
||||||
#endif
|
#endif
|
||||||
#ifdef TABLING
|
#ifdef TABLING
|
||||||
|
#ifdef TABLING_INNER_CUTS
|
||||||
OPCODE(clause_with_cut ,e),
|
OPCODE(clause_with_cut ,e),
|
||||||
|
#endif
|
||||||
OPCODE(table_load_answer ,apl),
|
OPCODE(table_load_answer ,apl),
|
||||||
OPCODE(table_try_answer ,apl),
|
OPCODE(table_try_answer ,apl),
|
||||||
OPCODE(table_try_single ,apl),
|
OPCODE(table_try_single ,apl),
|
||||||
|
|
|
@ -52,6 +52,7 @@ end_special(Name, W) :-
|
||||||
format(W,"#endif~n",[]).
|
format(W,"#endif~n",[]).
|
||||||
end_special(_, _).
|
end_special(_, _).
|
||||||
|
|
||||||
|
special_op("clause_with_cut","TABLING_INNER_CUTS").
|
||||||
special_op("cut_c","CUT_C").
|
special_op("cut_c","CUT_C").
|
||||||
special_op("cut_userc","CUT_C").
|
special_op("cut_userc","CUT_C").
|
||||||
special_op("run_eam","BEAM").
|
special_op("run_eam","BEAM").
|
||||||
|
|
Reference in New Issue