fix weird instruction with tabling and new optypes;

fix a stray ld.

C/amasm.c

@@ -2814,7 +2814,7 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
     *entry_codep = code_p;
     if (tabled) {
 #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
     }
     if (dynamic) {

H/YapOpcodes.h

@@ -322,7 +322,9 @@
   OPCODE(sync                       ,apl),
 #endif
 #ifdef TABLING
+#ifdef TABLING_INNER_CUTS
   OPCODE(clause_with_cut            ,e),
+#endif
   OPCODE(table_load_answer          ,apl),
   OPCODE(table_try_answer           ,apl),
   OPCODE(table_try_single           ,apl),

misc/buildops

@@ -52,6 +52,7 @@ end_special(Name, W) :-
 	format(W,"#endif~n",[]).
 end_special(_, _).
 
+special_op("clause_with_cut","TABLING_INNER_CUTS").
 special_op("cut_c","CUT_C").
 special_op("cut_userc","CUT_C").
 special_op("run_eam","BEAM").