yamop* lastop_of(yamop*); yamop* lastop_of(yamop* _p) { op_numbers op; yamop* lastp = NULL; while( (op = Yap_op_from_opcode(_p->opc)) ){ lastp = _p; switch(op){ case _Ystop : _p = ((yamop *)(&((_p)->u.l.next))); break; case _Nstop : _p = ((yamop *)(&((_p)->u.e.next))); break; case _try_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _enter_profiling : _p = ((yamop *)(&((_p)->u.p.next))); break; case _retry_profiled : _p = ((yamop *)(&((_p)->u.p.next))); break; case _profiled_retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _profiled_trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _profiled_retry_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _profiled_trust_logical : _p = ((yamop *)(&((_p)->u.OtILl.next))); break; case _count_call : _p = ((yamop *)(&((_p)->u.p.next))); break; case _count_retry : _p = ((yamop *)(&((_p)->u.p.next))); break; case _count_retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _count_trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _count_retry_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _count_trust_logical : _p = ((yamop *)(&((_p)->u.OtILl.next))); break; case _lock_lu : _p = ((yamop *)(&((_p)->u.p.next))); break; case _unlock_lu : _p = ((yamop *)(&((_p)->u.e.next))); break; case _alloc_for_logical_pred : _p = ((yamop *)(&((_p)->u.L.next))); break; case _copy_idb_term : _p = ((yamop *)(&((_p)->u.e.next))); break; case _unify_idb_term : _p = ((yamop *)(&((_p)->u.e.next))); break; case _ensure_space : _p = ((yamop *)(&((_p)->u.Osbpa.next))); break; case _spy_or_trymark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _try_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _count_retry_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _profiled_retry_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _retry_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _trust_fail : _p = ((yamop *)(&((_p)->u.e.next))); break; case _op_fail : _p = ((yamop *)(&((_p)->u.e.next))); break; case _cut : _p = ((yamop *)(&((_p)->u.s.next))); break; case _cut_t : _p = ((yamop *)(&((_p)->u.s.next))); break; case _cut_e : _p = ((yamop *)(&((_p)->u.s.next))); break; case _save_b_x : _p = ((yamop *)(&((_p)->u.x.next))); break; case _save_b_y : _p = ((yamop *)(&((_p)->u.y.next))); break; case _commit_b_x : _p = ((yamop *)(&((_p)->u.xps.next))); break; case _commit_b_y : _p = ((yamop *)(&((_p)->u.yps.next))); break; case _execute : _p = ((yamop *)(&((_p)->u.pp.next))); break; case _dexecute : _p = ((yamop *)(&((_p)->u.pp.next))); break; case _fcall : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _call : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _procceed : _p = ((yamop *)(&((_p)->u.p.next))); l = (CELL)_p; break; case _allocate : _p = ((yamop *)(&((_p)->u.e.next))); break; case _deallocate : _p = ((yamop *)(&((_p)->u.p.next))); break; #ifdef BEAM case _retry_eam : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif #ifdef BEAM case _run_eam : _p = ((yamop *)(&((_p)->u.os.next))); break; #endif case _get_x_var : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _get_y_var : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _get_yy_var : _p = ((yamop *)(&((_p)->u.yyxx.next))); break; case _get_x_val : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _get_y_val : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _get_atom : _p = ((yamop *)(&((_p)->u.xc.next))); break; case _get_2atoms : _p = ((yamop *)(&((_p)->u.cc.next))); break; case _get_3atoms : _p = ((yamop *)(&((_p)->u.ccc.next))); break; case _get_4atoms : _p = ((yamop *)(&((_p)->u.cccc.next))); break; case _get_5atoms : _p = ((yamop *)(&((_p)->u.ccccc.next))); break; case _get_6atoms : _p = ((yamop *)(&((_p)->u.cccccc.next))); break; case _get_list : _p = ((yamop *)(&((_p)->u.x.next))); break; case _get_struct : _p = ((yamop *)(&((_p)->u.xfa.next))); break; case _get_float : _p = ((yamop *)(&((_p)->u.xd.next))); break; case _get_longint : _p = ((yamop *)(&((_p)->u.xi.next))); break; case _get_bigint : _p = ((yamop *)(&((_p)->u.xN.next))); break; case _get_dbterm : _p = ((yamop *)(&((_p)->u.xD.next))); break; case _glist_valx : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _glist_valy : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _gl_void_varx : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _gl_void_vary : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _gl_void_valx : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _gl_void_valy : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _unify_x_var : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_x_var_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_l_x_var : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_l_x_var_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_x_var2 : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _unify_x_var2_write : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _unify_l_x_var2 : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _unify_l_x_var2_write : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _unify_y_var : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_y_var_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_l_y_var : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_l_y_var_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_x_val : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_x_val_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_l_x_val : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_l_x_val_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_y_val : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_y_val_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_l_y_val : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_l_y_val_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_x_loc : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_x_loc_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_l_x_loc : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_l_x_loc_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _unify_y_loc : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_y_loc_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_l_y_loc : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_l_y_loc_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _unify_void : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_void_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_l_void : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_l_void_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_n_voids : _p = ((yamop *)(&((_p)->u.os.next))); break; case _unify_n_voids_write : _p = ((yamop *)(&((_p)->u.os.next))); break; case _unify_l_n_voids : _p = ((yamop *)(&((_p)->u.os.next))); break; case _unify_l_n_voids_write : _p = ((yamop *)(&((_p)->u.os.next))); break; case _unify_atom : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _unify_atom_write : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _unify_l_atom : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _unify_l_atom_write : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _unify_n_atoms : _p = ((yamop *)(&((_p)->u.osc.next))); break; case _unify_n_atoms_write : _p = ((yamop *)(&((_p)->u.osc.next))); break; case _unify_float : _p = ((yamop *)(&((_p)->u.od.next))); break; case _unify_float_write : _p = ((yamop *)(&((_p)->u.od.next))); break; case _unify_l_float : _p = ((yamop *)(&((_p)->u.od.next))); break; case _unify_l_float_write : _p = ((yamop *)(&((_p)->u.od.next))); break; case _unify_longint : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _unify_longint_write : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _unify_l_longint : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _unify_l_longint_write : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _unify_bigint : _p = ((yamop *)(&((_p)->u.oN.next))); break; case _unify_l_bigint : _p = ((yamop *)(&((_p)->u.oN.next))); break; case _unify_dbterm : _p = ((yamop *)(&((_p)->u.oD.next))); break; case _unify_l_dbterm : _p = ((yamop *)(&((_p)->u.oD.next))); break; case _unify_list : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_list_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_l_list : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_l_list_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _unify_struct : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _unify_struct_write : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _unify_l_struc : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _unify_l_struc_write : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _put_x_var : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _put_y_var : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _put_x_val : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _put_xx_val : _p = ((yamop *)(&((_p)->u.xxxx.next))); break; case _put_y_val : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _put_y_vals : _p = ((yamop *)(&((_p)->u.yyxx.next))); break; case _put_unsafe : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _put_atom : _p = ((yamop *)(&((_p)->u.xc.next))); break; case _put_dbterm : _p = ((yamop *)(&((_p)->u.xD.next))); break; case _put_bigint : _p = ((yamop *)(&((_p)->u.xN.next))); break; case _put_float : _p = ((yamop *)(&((_p)->u.xd.next))); break; case _put_longint : _p = ((yamop *)(&((_p)->u.xi.next))); break; case _put_list : _p = ((yamop *)(&((_p)->u.x.next))); break; case _put_struct : _p = ((yamop *)(&((_p)->u.xfa.next))); break; case _write_x_var : _p = ((yamop *)(&((_p)->u.x.next))); break; case _write_void : _p = ((yamop *)(&((_p)->u.e.next))); break; case _write_n_voids : _p = ((yamop *)(&((_p)->u.s.next))); break; case _write_y_var : _p = ((yamop *)(&((_p)->u.y.next))); break; case _write_x_val : _p = ((yamop *)(&((_p)->u.x.next))); break; case _write_x_loc : _p = ((yamop *)(&((_p)->u.x.next))); break; case _write_y_val : _p = ((yamop *)(&((_p)->u.y.next))); break; case _write_y_loc : _p = ((yamop *)(&((_p)->u.y.next))); break; case _write_atom : _p = ((yamop *)(&((_p)->u.c.next))); break; case _write_bigint : _p = ((yamop *)(&((_p)->u.N.next))); break; case _write_dbterm : _p = ((yamop *)(&((_p)->u.D.next))); break; case _write_float : _p = ((yamop *)(&((_p)->u.d.next))); break; case _write_longint : _p = ((yamop *)(&((_p)->u.i.next))); break; case _write_n_atoms : _p = ((yamop *)(&((_p)->u.sc.next))); break; case _write_list : _p = ((yamop *)(&((_p)->u.e.next))); break; case _write_l_list : _p = ((yamop *)(&((_p)->u.e.next))); break; case _write_struct : _p = ((yamop *)(&((_p)->u.fa.next))); break; case _write_l_struc : _p = ((yamop *)(&((_p)->u.fa.next))); break; case _save_pair_x : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _save_pair_x_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _save_pair_y : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _save_pair_y_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _save_appl_x : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _save_appl_x_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _save_appl_y : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _save_appl_y_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _jump : _p = ((yamop *)(&((_p)->u.l.next))); break; case _move_back : _p = ((yamop *)(&((_p)->u.l.next))); break; case _skip : _p = ((yamop *)(&((_p)->u.l.next))); break; case _either : _p = ((yamop *)(&((_p)->u.Osblp.next))); break; case _or_else : _p = ((yamop *)(&((_p)->u.Osblp.next))); break; case _pop_n : _p = ((yamop *)(&((_p)->u.s.next))); break; case _pop : _p = ((yamop *)(&((_p)->u.e.next))); break; case _call_cpred : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _execute_cpred : _p = ((yamop *)(&((_p)->u.pp.next))); break; case _call_usercpred : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _call_c_wfail : _p = ((yamop *)(&((_p)->u.slp.next))); break; case _try_c : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; case _retry_c : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #ifdef CUT_C case _cut_c : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #endif case _try_userc : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; case _retry_userc : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #ifdef CUT_C case _cut_userc : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #endif case _lock_pred : _p = ((yamop *)(&((_p)->u.e.next))); break; case _index_pred : _p = ((yamop *)(&((_p)->u.e.next))); break; #ifdef THREADS case _thread_local : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif case _expand_index : _p = ((yamop *)(&((_p)->u.e.next))); break; case _expand_clauses : _p = ((yamop *)(&((_p)->u.sssllp.next))); break; case _undef_p : _p = ((yamop *)(&((_p)->u.e.next))); break; case _spy_pred : _p = ((yamop *)(&((_p)->u.e.next))); break; case _try_clause : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _try_clause2 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _try_clause3 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _try_clause4 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _retry : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _retry2 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _retry3 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _retry4 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _trust : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _try_in : _p = ((yamop *)(&((_p)->u.l.next))); break; case _enter_lu_pred : _p = ((yamop *)(&((_p)->u.Illss.next))); break; case _try_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _retry_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _trust_logical : _p = ((yamop *)(&((_p)->u.OtILl.next))); break; case _user_switch : _p = ((yamop *)(&((_p)->u.lp.next))); break; case _switch_on_type : _p = ((yamop *)(&((_p)->u.llll.next))); break; case _switch_list_nl : _p = ((yamop *)(&((_p)->u.ollll.next))); break; case _switch_on_arg_type : _p = ((yamop *)(&((_p)->u.xllll.next))); break; case _switch_on_sub_arg_type : _p = ((yamop *)(&((_p)->u.sllll.next))); break; case _jump_if_var : _p = ((yamop *)(&((_p)->u.l.next))); break; case _jump_if_nonvar : _p = ((yamop *)(&((_p)->u.xll.next))); break; case _if_not_then : _p = ((yamop *)(&((_p)->u.clll.next))); break; case _switch_on_func : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _switch_on_cons : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _go_on_func : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _go_on_cons : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _if_func : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _if_cons : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _index_dbref : _p = ((yamop *)(&((_p)->u.e.next))); break; case _index_blob : _p = ((yamop *)(&((_p)->u.e.next))); break; case _index_long : _p = ((yamop *)(&((_p)->u.e.next))); break; case _jit_handler : _p = ((yamop *)(&((_p)->u.jhc.next))); break; case _p_atom_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_atom_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_atomic_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_atomic_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_integer_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_integer_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_nonvar_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_nonvar_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_number_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_number_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_var_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_var_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_db_ref_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_db_ref_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_primitive_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_primitive_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_compound_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_compound_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_float_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _p_float_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _p_plus_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_plus_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_plus_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_plus_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_minus_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_minus_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_minus_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_minus_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_times_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_times_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_times_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_times_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_div_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_div_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_div_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_div_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_div_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_div_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_and_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_and_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_and_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_and_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_or_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_or_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_or_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_or_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_sll_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_sll_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_sll_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_sll_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_sll_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_sll_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_slr_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_slr_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_slr_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_slr_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_slr_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_slr_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _call_bfunc_xx : _p = ((yamop *)(&((_p)->u.plxxs.next))); break; case _call_bfunc_yx : _p = ((yamop *)(&((_p)->u.plxys.next))); break; case _call_bfunc_xy : _p = ((yamop *)(&((_p)->u.plxys.next))); break; case _call_bfunc_yy : _p = ((yamop *)(&((_p)->u.plyys.next))); break; case _p_equal : _p = ((yamop *)(&((_p)->u.e.next))); break; case _p_dif : _p = ((yamop *)(&((_p)->u.l.next))); break; case _p_eq : _p = ((yamop *)(&((_p)->u.l.next))); break; case _p_arg_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_arg_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_arg_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_arg_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_func2s_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_func2s_cv : _p = ((yamop *)(&((_p)->u.xxc.next))); break; case _p_func2s_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _p_func2s_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_func2s_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_func2s_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _p_func2f_xx : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _p_func2f_xy : _p = ((yamop *)(&((_p)->u.xxy.next))); break; case _p_func2f_yx : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _p_func2f_yy : _p = ((yamop *)(&((_p)->u.yyx.next))); break; case _p_functor : _p = ((yamop *)(&((_p)->u.e.next))); break; case _p_execute2 : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _p_execute : _p = ((yamop *)(&((_p)->u.Osbmp.next))); break; case _p_execute_tail : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; #ifdef YAPOR case _getwork_first_time : _p = ((yamop *)(&((_p)->u.e.next))); break; case _getwork : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _getwork_seq : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _sync : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; #endif #ifdef TABLING #ifdef TABLING_INNER_CUTS case _clause_with_cut : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif case _table_load_answer : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_try_answer : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_try_single : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_try_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_try : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_retry : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_trust : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_new_answer : _p = ((yamop *)(&((_p)->u.s.next))); break; case _table_answer_resolution : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _table_completion : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; #ifdef THREADS_CONSUMER_SHARING case _table_answer_resolution_completion: _p = ((yamop *)(&((_p)->u.Otapl.next))); break; #endif case _trie_do_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_do_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_trust_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_try_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; case _trie_retry_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif #ifdef YAPOR case _or_last : _p = ((yamop *)(&((_p)->u.sblp.next))); break; #else case _or_last : _p = ((yamop *)(&((_p)->u.p.next))); break; #endif case _traced_Ystop : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_Nstop : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_try_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_enter_profiling : _p = ((yamop *)(&((_p)->u.p.next))); break; case _traced_retry_profiled : _p = ((yamop *)(&((_p)->u.p.next))); break; case _traced_profiled_retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_profiled_trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_profiled_retry_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _traced_profiled_trust_logical : _p = ((yamop *)(&((_p)->u.OtILl.next))); break; case _traced_count_call : _p = ((yamop *)(&((_p)->u.p.next))); break; case _traced_count_retry : _p = ((yamop *)(&((_p)->u.p.next))); break; case _traced_count_retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_count_trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_count_retry_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _traced_count_trust_logical : _p = ((yamop *)(&((_p)->u.OtILl.next))); break; case _traced_lock_lu : _p = ((yamop *)(&((_p)->u.p.next))); break; case _traced_unlock_lu : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_alloc_for_logical_pred : _p = ((yamop *)(&((_p)->u.L.next))); break; case _traced_copy_idb_term : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_unify_idb_term : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_ensure_space : _p = ((yamop *)(&((_p)->u.Osbpa.next))); break; case _traced_spy_or_trymark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_try_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_count_retry_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_profiled_retry_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_retry_and_mark : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_trust_fail : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_op_fail : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_cut : _p = ((yamop *)(&((_p)->u.s.next))); break; case _traced_cut_t : _p = ((yamop *)(&((_p)->u.s.next))); break; case _traced_cut_e : _p = ((yamop *)(&((_p)->u.s.next))); break; case _traced_save_b_x : _p = ((yamop *)(&((_p)->u.x.next))); break; case _traced_save_b_y : _p = ((yamop *)(&((_p)->u.y.next))); break; case _traced_commit_b_x : _p = ((yamop *)(&((_p)->u.xps.next))); break; case _traced_commit_b_y : _p = ((yamop *)(&((_p)->u.yps.next))); break; case _traced_execute : _p = ((yamop *)(&((_p)->u.pp.next))); break; case _traced_dexecute : _p = ((yamop *)(&((_p)->u.pp.next))); break; case _traced_fcall : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _traced_call : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _traced_procceed : _p = ((yamop *)(&((_p)->u.p.next))); l = (CELL)_p; break; case _traced_allocate : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_deallocate : _p = ((yamop *)(&((_p)->u.p.next))); break; #ifdef BEAM case _traced_retry_eam : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif #ifdef BEAM case _traced_run_eam : _p = ((yamop *)(&((_p)->u.os.next))); break; #endif case _traced_get_x_var : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _traced_get_y_var : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_get_yy_var : _p = ((yamop *)(&((_p)->u.yyxx.next))); break; case _traced_get_x_val : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _traced_get_y_val : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_get_atom : _p = ((yamop *)(&((_p)->u.xc.next))); break; case _traced_get_2atoms : _p = ((yamop *)(&((_p)->u.cc.next))); break; case _traced_get_3atoms : _p = ((yamop *)(&((_p)->u.ccc.next))); break; case _traced_get_4atoms : _p = ((yamop *)(&((_p)->u.cccc.next))); break; case _traced_get_5atoms : _p = ((yamop *)(&((_p)->u.ccccc.next))); break; case _traced_get_6atoms : _p = ((yamop *)(&((_p)->u.cccccc.next))); break; case _traced_get_list : _p = ((yamop *)(&((_p)->u.x.next))); break; case _traced_get_struct : _p = ((yamop *)(&((_p)->u.xfa.next))); break; case _traced_get_float : _p = ((yamop *)(&((_p)->u.xd.next))); break; case _traced_get_longint : _p = ((yamop *)(&((_p)->u.xi.next))); break; case _traced_get_bigint : _p = ((yamop *)(&((_p)->u.xN.next))); break; case _traced_get_dbterm : _p = ((yamop *)(&((_p)->u.xD.next))); break; case _traced_glist_valx : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _traced_glist_valy : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_gl_void_varx : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _traced_gl_void_vary : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_gl_void_valx : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _traced_gl_void_valy : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_unify_x_var : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_x_var_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_l_x_var : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_l_x_var_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_x_var2 : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _traced_unify_x_var2_write : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _traced_unify_l_x_var2 : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _traced_unify_l_x_var2_write : _p = ((yamop *)(&((_p)->u.oxx.next))); break; case _traced_unify_y_var : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_y_var_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_l_y_var : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_l_y_var_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_x_val : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_x_val_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_l_x_val : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_l_x_val_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_y_val : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_y_val_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_l_y_val : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_l_y_val_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_x_loc : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_x_loc_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_l_x_loc : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_l_x_loc_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_unify_y_loc : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_y_loc_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_l_y_loc : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_l_y_loc_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_unify_void : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_void_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_l_void : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_l_void_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_n_voids : _p = ((yamop *)(&((_p)->u.os.next))); break; case _traced_unify_n_voids_write : _p = ((yamop *)(&((_p)->u.os.next))); break; case _traced_unify_l_n_voids : _p = ((yamop *)(&((_p)->u.os.next))); break; case _traced_unify_l_n_voids_write : _p = ((yamop *)(&((_p)->u.os.next))); break; case _traced_unify_atom : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _traced_unify_atom_write : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _traced_unify_l_atom : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _traced_unify_l_atom_write : _p = ((yamop *)(&((_p)->u.oc.next))); break; case _traced_unify_n_atoms : _p = ((yamop *)(&((_p)->u.osc.next))); break; case _traced_unify_n_atoms_write : _p = ((yamop *)(&((_p)->u.osc.next))); break; case _traced_unify_float : _p = ((yamop *)(&((_p)->u.od.next))); break; case _traced_unify_float_write : _p = ((yamop *)(&((_p)->u.od.next))); break; case _traced_unify_l_float : _p = ((yamop *)(&((_p)->u.od.next))); break; case _traced_unify_l_float_write : _p = ((yamop *)(&((_p)->u.od.next))); break; case _traced_unify_longint : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _traced_unify_longint_write : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _traced_unify_l_longint : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _traced_unify_l_longint_write : _p = ((yamop *)(&((_p)->u.oi.next))); break; case _traced_unify_bigint : _p = ((yamop *)(&((_p)->u.oN.next))); break; case _traced_unify_l_bigint : _p = ((yamop *)(&((_p)->u.oN.next))); break; case _traced_unify_dbterm : _p = ((yamop *)(&((_p)->u.oD.next))); break; case _traced_unify_l_dbterm : _p = ((yamop *)(&((_p)->u.oD.next))); break; case _traced_unify_list : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_list_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_l_list : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_l_list_write : _p = ((yamop *)(&((_p)->u.o.next))); break; case _traced_unify_struct : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _traced_unify_struct_write : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _traced_unify_l_struc : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _traced_unify_l_struc_write : _p = ((yamop *)(&((_p)->u.ofa.next))); break; case _traced_put_x_var : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _traced_put_y_var : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_put_x_val : _p = ((yamop *)(&((_p)->u.xx.next))); break; case _traced_put_xx_val : _p = ((yamop *)(&((_p)->u.xxxx.next))); break; case _traced_put_y_val : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_put_y_vals : _p = ((yamop *)(&((_p)->u.yyxx.next))); break; case _traced_put_unsafe : _p = ((yamop *)(&((_p)->u.yx.next))); break; case _traced_put_atom : _p = ((yamop *)(&((_p)->u.xc.next))); break; case _traced_put_dbterm : _p = ((yamop *)(&((_p)->u.xD.next))); break; case _traced_put_bigint : _p = ((yamop *)(&((_p)->u.xN.next))); break; case _traced_put_float : _p = ((yamop *)(&((_p)->u.xd.next))); break; case _traced_put_longint : _p = ((yamop *)(&((_p)->u.xi.next))); break; case _traced_put_list : _p = ((yamop *)(&((_p)->u.x.next))); break; case _traced_put_struct : _p = ((yamop *)(&((_p)->u.xfa.next))); break; case _traced_write_x_var : _p = ((yamop *)(&((_p)->u.x.next))); break; case _traced_write_void : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_write_n_voids : _p = ((yamop *)(&((_p)->u.s.next))); break; case _traced_write_y_var : _p = ((yamop *)(&((_p)->u.y.next))); break; case _traced_write_x_val : _p = ((yamop *)(&((_p)->u.x.next))); break; case _traced_write_x_loc : _p = ((yamop *)(&((_p)->u.x.next))); break; case _traced_write_y_val : _p = ((yamop *)(&((_p)->u.y.next))); break; case _traced_write_y_loc : _p = ((yamop *)(&((_p)->u.y.next))); break; case _traced_write_atom : _p = ((yamop *)(&((_p)->u.c.next))); break; case _traced_write_bigint : _p = ((yamop *)(&((_p)->u.N.next))); break; case _traced_write_dbterm : _p = ((yamop *)(&((_p)->u.D.next))); break; case _traced_write_float : _p = ((yamop *)(&((_p)->u.d.next))); break; case _traced_write_longint : _p = ((yamop *)(&((_p)->u.i.next))); break; case _traced_write_n_atoms : _p = ((yamop *)(&((_p)->u.sc.next))); break; case _traced_write_list : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_write_l_list : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_write_struct : _p = ((yamop *)(&((_p)->u.fa.next))); break; case _traced_write_l_struc : _p = ((yamop *)(&((_p)->u.fa.next))); break; case _traced_save_pair_x : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_save_pair_x_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_save_pair_y : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_save_pair_y_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_save_appl_x : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_save_appl_x_write : _p = ((yamop *)(&((_p)->u.ox.next))); break; case _traced_save_appl_y : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_save_appl_y_write : _p = ((yamop *)(&((_p)->u.oy.next))); break; case _traced_jump : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_move_back : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_skip : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_either : _p = ((yamop *)(&((_p)->u.Osblp.next))); break; case _traced_or_else : _p = ((yamop *)(&((_p)->u.Osblp.next))); break; case _traced_pop_n : _p = ((yamop *)(&((_p)->u.s.next))); break; case _traced_pop : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_call_cpred : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _traced_execute_cpred : _p = ((yamop *)(&((_p)->u.pp.next))); break; case _traced_call_usercpred : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _traced_call_c_wfail : _p = ((yamop *)(&((_p)->u.slp.next))); break; case _traced_try_c : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; case _traced_retry_c : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #ifdef CUT_C case _traced_cut_c : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #endif case _traced_try_userc : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; case _traced_retry_userc : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #ifdef CUT_C case _traced_cut_userc : _p = ((yamop *)(&((_p)->u.OtapFs.next))); break; #endif case _traced_lock_pred : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_index_pred : _p = ((yamop *)(&((_p)->u.e.next))); break; #ifdef THREADS case _traced_thread_local : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif case _traced_expand_index : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_expand_clauses : _p = ((yamop *)(&((_p)->u.sssllp.next))); break; case _traced_undef_p : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_spy_pred : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_try_clause : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_try_clause2 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_try_clause3 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_try_clause4 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_retry : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_retry2 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_retry3 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_retry4 : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_trust : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_try_in : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_enter_lu_pred : _p = ((yamop *)(&((_p)->u.Illss.next))); break; case _traced_try_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _traced_retry_logical : _p = ((yamop *)(&((_p)->u.OtaLl.next))); break; case _traced_trust_logical : _p = ((yamop *)(&((_p)->u.OtILl.next))); break; case _traced_user_switch : _p = ((yamop *)(&((_p)->u.lp.next))); break; case _traced_switch_on_type : _p = ((yamop *)(&((_p)->u.llll.next))); break; case _traced_switch_list_nl : _p = ((yamop *)(&((_p)->u.ollll.next))); break; case _traced_switch_on_arg_type : _p = ((yamop *)(&((_p)->u.xllll.next))); break; case _traced_switch_on_sub_arg_type : _p = ((yamop *)(&((_p)->u.sllll.next))); break; case _traced_jump_if_var : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_jump_if_nonvar : _p = ((yamop *)(&((_p)->u.xll.next))); break; case _traced_if_not_then : _p = ((yamop *)(&((_p)->u.clll.next))); break; case _traced_switch_on_func : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _traced_switch_on_cons : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _traced_go_on_func : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _traced_go_on_cons : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _traced_if_func : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _traced_if_cons : _p = ((yamop *)(&((_p)->u.sssl.next))); break; case _traced_index_dbref : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_index_blob : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_index_long : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_jit_handler : _p = ((yamop *)(&((_p)->u.jhc.next))); break; case _traced_p_atom_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_atom_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_atomic_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_atomic_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_integer_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_integer_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_nonvar_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_nonvar_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_number_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_number_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_var_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_var_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_db_ref_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_db_ref_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_primitive_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_primitive_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_compound_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_compound_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_float_x : _p = ((yamop *)(&((_p)->u.xl.next))); break; case _traced_p_float_y : _p = ((yamop *)(&((_p)->u.yl.next))); break; case _traced_p_plus_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_plus_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_plus_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_plus_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_minus_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_minus_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_minus_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_minus_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_times_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_times_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_times_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_times_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_div_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_div_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_div_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_div_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_div_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_div_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_and_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_and_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_and_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_and_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_or_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_or_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_or_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_or_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_sll_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_sll_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_sll_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_sll_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_sll_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_sll_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_slr_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_slr_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_slr_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_slr_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_slr_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_slr_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_call_bfunc_xx : _p = ((yamop *)(&((_p)->u.plxxs.next))); break; case _traced_call_bfunc_yx : _p = ((yamop *)(&((_p)->u.plxys.next))); break; case _traced_call_bfunc_xy : _p = ((yamop *)(&((_p)->u.plxys.next))); break; case _traced_call_bfunc_yy : _p = ((yamop *)(&((_p)->u.plyys.next))); break; case _traced_p_equal : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_p_dif : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_p_eq : _p = ((yamop *)(&((_p)->u.l.next))); break; case _traced_p_arg_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_arg_cv : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_arg_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_arg_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_func2s_vv : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_func2s_cv : _p = ((yamop *)(&((_p)->u.xxc.next))); break; case _traced_p_func2s_vc : _p = ((yamop *)(&((_p)->u.xxn.next))); break; case _traced_p_func2s_y_vv : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_func2s_y_cv : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_func2s_y_vc : _p = ((yamop *)(&((_p)->u.yxn.next))); break; case _traced_p_func2f_xx : _p = ((yamop *)(&((_p)->u.xxx.next))); break; case _traced_p_func2f_xy : _p = ((yamop *)(&((_p)->u.xxy.next))); break; case _traced_p_func2f_yx : _p = ((yamop *)(&((_p)->u.yxx.next))); break; case _traced_p_func2f_yy : _p = ((yamop *)(&((_p)->u.yyx.next))); break; case _traced_p_functor : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_p_execute2 : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; case _traced_p_execute : _p = ((yamop *)(&((_p)->u.Osbmp.next))); break; case _traced_p_execute_tail : _p = ((yamop *)(&((_p)->u.Osbpp.next))); break; #ifdef YAPOR case _traced_getwork_first_time : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_getwork : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_getwork_seq : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_sync : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; #endif #ifdef TABLING #ifdef TABLING_INNER_CUTS case _traced_clause_with_cut : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif case _traced_table_load_answer : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_try_answer : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_try_single : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_try_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_try : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_retry_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_retry : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_trust_me : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_trust : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_new_answer : _p = ((yamop *)(&((_p)->u.s.next))); break; case _traced_table_answer_resolution : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; case _traced_table_completion : _p = ((yamop *)(&((_p)->u.Otapl.next))); break; #ifdef THREADS_CONSUMER_SHARING case _traced_table_answer_resolution_completion: _p = ((yamop *)(&((_p)->u.Otapl.next))); break; #endif case _traced_trie_do_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_var : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_var_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_val : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_val_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_atom : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_atom_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_null : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_null_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_appl : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_appl_in_pair : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_extension : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_double : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_longint : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_do_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_trust_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_try_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; case _traced_trie_retry_gterm : _p = ((yamop *)(&((_p)->u.e.next))); break; #endif #ifdef YAPOR case _traced_or_last : _p = ((yamop *)(&((_p)->u.sblp.next))); break; #else case _traced_or_last : _p = ((yamop *)(&((_p)->u.p.next))); break; #endif } } return lastp; }