/* This file was generated automatically by "yap -L misc/buildops"
     please do not update */


  while (TRUE) {
    op_numbers op = Yap_op_from_opcode(cl->opc);
    switch (op) {
    case _alloc_for_logical_pred:
      cl = NEXTOP(cl,L);
      break;
    case _native_me:
      cl = NEXTOP(cl,aFlp);
      break;
    case _write_atom:
      cl = NEXTOP(cl,c);
      break;
    case _get_2atoms:
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
	if (IsApplTerm(cl->u.cc.c1)) {
          CELL *pt = RepAppl(cl->u.cc.c1);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cc.c1;
	} else
	  clause->Tag = cl->u.cc.c1;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
	if (IsApplTerm(cl->u.cc.c2)) {
          CELL *pt = RepAppl(cl->u.cc.c2);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cc.c2;
	} else
	  clause->Tag = cl->u.cc.c2;
	return;
      }
      cl = NEXTOP(cl,cc);
      break;
    case _get_3atoms:
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
	if (IsApplTerm(cl->u.ccc.c1)) {
          CELL *pt = RepAppl(cl->u.ccc.c1);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccc.c1;
	} else
	  clause->Tag = cl->u.ccc.c1;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
	if (IsApplTerm(cl->u.ccc.c2)) {
          CELL *pt = RepAppl(cl->u.ccc.c2);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccc.c2;
	} else
	  clause->Tag = cl->u.ccc.c2;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
	if (IsApplTerm(cl->u.ccc.c3)) {
          CELL *pt = RepAppl(cl->u.ccc.c3);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccc.c3;
	} else
	  clause->Tag = cl->u.ccc.c3;
	return;
      }
      cl = NEXTOP(cl,ccc);
      break;
    case _get_4atoms:
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
	if (IsApplTerm(cl->u.cccc.c1)) {
          CELL *pt = RepAppl(cl->u.cccc.c1);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccc.c1;
	} else
	  clause->Tag = cl->u.cccc.c1;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
	if (IsApplTerm(cl->u.cccc.c2)) {
          CELL *pt = RepAppl(cl->u.cccc.c2);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccc.c2;
	} else
	  clause->Tag = cl->u.cccc.c2;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
	if (IsApplTerm(cl->u.cccc.c3)) {
          CELL *pt = RepAppl(cl->u.cccc.c3);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccc.c3;
	} else
	  clause->Tag = cl->u.cccc.c3;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(4))) {
	if (IsApplTerm(cl->u.cccc.c4)) {
          CELL *pt = RepAppl(cl->u.cccc.c4);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccc.c4;
	} else
	  clause->Tag = cl->u.cccc.c4;
	return;
      }
      cl = NEXTOP(cl,cccc);
      break;
    case _get_5atoms:
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
	if (IsApplTerm(cl->u.ccccc.c1)) {
          CELL *pt = RepAppl(cl->u.ccccc.c1);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccccc.c1;
	} else
	  clause->Tag = cl->u.ccccc.c1;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
	if (IsApplTerm(cl->u.ccccc.c2)) {
          CELL *pt = RepAppl(cl->u.ccccc.c2);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccccc.c2;
	} else
	  clause->Tag = cl->u.ccccc.c2;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
	if (IsApplTerm(cl->u.ccccc.c3)) {
          CELL *pt = RepAppl(cl->u.ccccc.c3);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccccc.c3;
	} else
	  clause->Tag = cl->u.ccccc.c3;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(4))) {
	if (IsApplTerm(cl->u.ccccc.c4)) {
          CELL *pt = RepAppl(cl->u.ccccc.c4);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccccc.c4;
	} else
	  clause->Tag = cl->u.ccccc.c4;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(5))) {
	if (IsApplTerm(cl->u.ccccc.c5)) {
          CELL *pt = RepAppl(cl->u.ccccc.c5);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.ccccc.c5;
	} else
	  clause->Tag = cl->u.ccccc.c5;
	return;
      }
      cl = NEXTOP(cl,ccccc);
      break;
    case _get_6atoms:
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
	if (IsApplTerm(cl->u.cccccc.c1)) {
          CELL *pt = RepAppl(cl->u.cccccc.c1);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccccc.c1;
	} else
	  clause->Tag = cl->u.cccccc.c1;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
	if (IsApplTerm(cl->u.cccccc.c2)) {
          CELL *pt = RepAppl(cl->u.cccccc.c2);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccccc.c2;
	} else
	  clause->Tag = cl->u.cccccc.c2;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
	if (IsApplTerm(cl->u.cccccc.c3)) {
          CELL *pt = RepAppl(cl->u.cccccc.c3);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccccc.c3;
	} else
	  clause->Tag = cl->u.cccccc.c3;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(4))) {
	if (IsApplTerm(cl->u.cccccc.c4)) {
          CELL *pt = RepAppl(cl->u.cccccc.c4);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccccc.c4;
	} else
	  clause->Tag = cl->u.cccccc.c4;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(5))) {
	if (IsApplTerm(cl->u.cccccc.c5)) {
          CELL *pt = RepAppl(cl->u.cccccc.c5);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccccc.c5;
	} else
	  clause->Tag = cl->u.cccccc.c5;
	return;
      }
      if (is_regcopy(myregs, nofregs, Yap_regnotoreg(6))) {
	if (IsApplTerm(cl->u.cccccc.c6)) {
          CELL *pt = RepAppl(cl->u.cccccc.c6);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.cccccc.c6;
	} else
	  clause->Tag = cl->u.cccccc.c6;
	return;
      }
      cl = NEXTOP(cl,cccccc);
      break;
    case _write_float:
      cl = NEXTOP(cl,d);
      break;
    case _allocate:
      cl = NEXTOP(cl,e);
      break;
    case _copy_idb_term:
      if (regno == 2) {
	LogUpdClause *lcl = ClauseCodeToLogUpdClause(cl);
	Term t = lcl->ClSource->Entry;
	if (IsVarTerm(t)) {
	  clause->Tag = (CELL)NULL;
	} else if (IsApplTerm(t)) {
	  CELL *pt = RepAppl(t);

	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.c_sreg = pt;
	} else if (IsPairTerm(t)) {
	  CELL *pt = RepPair(t);

	  clause->Tag = AbsPair(NULL);
	  clause->u.c_sreg = pt-1;
	} else {
	  clause->Tag = t;
	}
      } else {
	clause->Tag = (CELL)NULL;
      }
      return;
      cl = NEXTOP(cl,e);
      break;
    case _pop:
      cl = NEXTOP(cl,e);
      break;
#ifdef BEAM
    case _retry_eam:
#endif
      cl = NEXTOP(cl,e);
      break;
    case _unify_idb_term:
      if (regno == 2) {
	LogUpdClause *lcl = ClauseCodeToLogUpdClause(cl);
	Term t = lcl->ClSource->Entry;
	if (IsVarTerm(t)) {
	  clause->Tag = (CELL)NULL;
	} else if (IsApplTerm(t)) {
	  CELL *pt = RepAppl(t);

	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.c_sreg = pt;
	} else if (IsPairTerm(t)) {
	  CELL *pt = RepPair(t);

	  clause->Tag = AbsPair(NULL);
	  clause->u.c_sreg = pt-1;
	} else {
	  clause->Tag = t;
	}
      } else {
	clause->Tag = (CELL)NULL;
      }
      return;
      cl = NEXTOP(cl,e);
      break;
    case _write_l_list:
      cl = NEXTOP(cl,e);
      break;
    case _write_list:
      cl = NEXTOP(cl,e);
      break;
    case _write_void:
      cl = NEXTOP(cl,e);
      break;
    case _write_struct:
      cl = NEXTOP(cl,fa);
      break;
    case _write_longint:
      cl = NEXTOP(cl,i);
      break;
    case _unify_l_list:
      cl = NEXTOP(cl,o);
      break;
    case _unify_l_list_write:
      cl = NEXTOP(cl,o);
      break;
    case _unify_l_void:
      cl = NEXTOP(cl,o);
      break;
    case _unify_l_void_write:
      cl = NEXTOP(cl,o);
      break;
    case _unify_list:
      cl = NEXTOP(cl,o);
      break;
    case _unify_list_write:
      cl = NEXTOP(cl,o);
      break;
    case _unify_void:
      cl = NEXTOP(cl,o);
      break;
    case _unify_void_write:
      cl = NEXTOP(cl,o);
      break;
    case _unify_atom:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_atom_write:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_bigint:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_dbterm:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_l_atom:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_l_atom_write:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_l_bigint:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_l_dbterm:
      cl = NEXTOP(cl,oc);
      break;
    case _unify_float:
      cl = NEXTOP(cl,od);
      break;
    case _unify_float_write:
      cl = NEXTOP(cl,od);
      break;
    case _unify_l_float:
      cl = NEXTOP(cl,od);
      break;
    case _unify_l_float_write:
      cl = NEXTOP(cl,od);
      break;
    case _unify_struct:
      cl = NEXTOP(cl,ofa);
      break;
    case _unify_struct_write:
      cl = NEXTOP(cl,ofa);
      break;
    case _unify_l_longint:
      cl = NEXTOP(cl,oi);
      break;
    case _unify_l_longint_write:
      cl = NEXTOP(cl,oi);
      break;
    case _unify_longint:
      cl = NEXTOP(cl,oi);
      break;
    case _unify_longint_write:
      cl = NEXTOP(cl,oi);
      break;
#ifdef BEAM
    case _run_eam:
#endif
      cl = NEXTOP(cl,os);
      break;
    case _unify_l_n_voids:
      cl = NEXTOP(cl,os);
      break;
    case _unify_l_n_voids_write:
      cl = NEXTOP(cl,os);
      break;
    case _unify_n_voids:
      cl = NEXTOP(cl,os);
      break;
    case _unify_n_voids_write:
      cl = NEXTOP(cl,os);
      break;
    case _unify_n_atoms:
      cl = NEXTOP(cl,osc);
      break;
    case _unify_n_atoms_write:
      cl = NEXTOP(cl,osc);
      break;
    case _save_appl_x:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _save_appl_x_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _save_pair_x:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _save_pair_x_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _unify_l_x_loc:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_l_x_loc_write:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_l_x_val:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_l_x_val_write:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_l_x_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _unify_l_x_var_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _unify_x_loc:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_x_loc_write:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_x_val:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_x_val_write:
      cl = NEXTOP(cl,ox);
      break;
    case _unify_x_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _unify_x_var_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.ox.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,ox);
      break;
    case _unify_l_x_var2:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xl))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oxx);
      break;
    case _unify_l_x_var2_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xl))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oxx);
      break;
    case _unify_x_var2:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xl))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oxx);
      break;
    case _unify_x_var2_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xl))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oxx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oxx);
      break;
    case _save_appl_y:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _save_appl_y_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _save_pair_y:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _save_pair_y_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _unify_l_y_loc:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_l_y_loc_write:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_l_y_val:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_l_y_val_write:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_l_y_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _unify_l_y_var_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _unify_y_loc:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_y_loc_write:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_y_val:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_y_val_write:
      cl = NEXTOP(cl,oy);
      break;
    case _unify_y_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _unify_y_var_write:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.oy.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,oy);
      break;
    case _deallocate:
      cl = NEXTOP(cl,p);
      break;
    case _lock_lu:
      cl = NEXTOP(cl,p);
      break;
    case _call_bfunc_xx:
      cl = NEXTOP(cl,plxxs);
      break;
    case _call_bfunc_xy:
      cl = NEXTOP(cl,plxys);
      break;
    case _call_bfunc_yx:
      cl = NEXTOP(cl,plxys);
      break;
    case _call_bfunc_yy:
      cl = NEXTOP(cl,plyys);
      break;
    case _pop_n:
      cl = NEXTOP(cl,s);
      break;
    case _write_n_voids:
      cl = NEXTOP(cl,s);
      break;
    case _write_n_atoms:
      cl = NEXTOP(cl,sc);
      break;
    case _get_list:
      if (is_regcopy(myregs, nofregs, cl->u.x.x)) {
	clause->Tag = AbsPair(NULL);
	clause->u.WorkPC = NEXTOP(cl,x);
	return;
      }
      cl = NEXTOP(cl,x);
      break;
    case _put_list:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.x.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,x);
      break;
    case _save_b_x:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.x.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,x);
      break;
    case _write_x_loc:
      cl = NEXTOP(cl,x);
      break;
    case _write_x_val:
      cl = NEXTOP(cl,x);
      break;
    case _write_x_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.x.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,x);
      break;
    case _get_atom:
      if (is_regcopy(myregs, nofregs, cl->u.xc.x)) {
	if (IsApplTerm(cl->u.xc.c)) {
          CELL *pt = RepAppl(cl->u.xc.c);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.xc.c;
	} else
	  clause->Tag = cl->u.xc.c;
	return;
      }
      cl = NEXTOP(cl,xc);
      break;
    case _get_bigint:
      if (is_regcopy(myregs, nofregs, cl->u.xc.x)) {
	if (IsApplTerm(cl->u.xc.c)) {
          CELL *pt = RepAppl(cl->u.xc.c);
	  clause->Tag = AbsAppl((CELL *)pt[0]);
	  clause->u.t_ptr = cl->u.xc.c;
	} else
	  clause->Tag = cl->u.xc.c;
	return;
      }
      cl = NEXTOP(cl,xc);
      break;
    case _put_atom:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xc.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xc);
      break;
    case _get_float:
      if (is_regcopy(myregs, nofregs, cl->u.xd.x)) {
	clause->Tag = AbsAppl((CELL *)FunctorDouble);
	clause->u.t_ptr = AbsAppl(cl->u.xd.d);
	return;
      }
      cl = NEXTOP(cl,xd);
      break;
    case _put_float:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xd.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xd);
      break;
    case _get_struct:
      if (is_regcopy(myregs, nofregs, cl->u.xfa.x)) {
	clause->Tag = AbsAppl((CELL *)cl->u.xfa.f);
	clause->u.WorkPC = NEXTOP(cl,xfa);
	return;
      }
      cl = NEXTOP(cl,xfa);
      break;
    case _put_struct:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xfa.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xfa);
      break;
    case _get_longint:
      if (is_regcopy(myregs, nofregs, cl->u.xi.x)) {
	clause->Tag = AbsAppl((CELL *)FunctorLongInt);
	clause->u.t_ptr = AbsAppl(cl->u.xi.i);
	return;
      }
      cl = NEXTOP(cl,xi);
      break;
    case _put_longint:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xi.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xi);
      break;
    case _p_atom_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = (_atom+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_atomic_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = (_atomic+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_compound_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = (_compound+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_db_ref_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = AbsAppl((CELL *)FunctorDBRef);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_float_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = AbsAppl((CELL *)FunctorDouble);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_integer_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = (_integer+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_nonvar_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_number_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = (_number+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_primitive_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = (_primitive+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _p_var_x:
      if (cl->u.xl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
	clause->Tag = (_var+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xl);
      break;
    case _get_x_val:
      if (!(nofregs = link_regcopies(myregs, nofregs, cl->u.xx.xl, cl->u.xx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xx);
      break;
    case _get_x_var:
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.xx.xr, cl->u.xx.xl))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xx);
      break;
    case _gl_void_valx:
      if (is_regcopy(myregs, nofregs, cl->u.xx.xl)) {
	clause->Tag = AbsPair(NULL);
	clause->u.WorkPC = cl;
	return;
      }
      cl = NEXTOP(cl,xx);
      break;
    case _gl_void_varx:
      if (is_regcopy(myregs, nofregs, cl->u.xx.xl)) {
	clause->Tag = AbsPair(NULL);
	clause->u.WorkPC = cl;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xx);
      break;
    case _glist_valx:
      if (is_regcopy(myregs, nofregs, cl->u.xx.xl)) {
	clause->Tag = AbsPair(NULL);
	clause->u.WorkPC = cl;
	return;
      }
      cl = NEXTOP(cl,xx);
      break;
    case _put_x_val:
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.xx.xl, cl->u.xx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xx);
      break;
    case _put_x_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xx.xl))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xx.xr))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xx);
      break;
    case _p_func2s_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxc.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxc);
      break;
    case _p_and_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_arg_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_div_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_div_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_func2s_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_or_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_plus_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_sll_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_sll_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_slr_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_slr_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_times_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxn.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxn);
      break;
    case _p_and_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_arg_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_div_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_func2f_xx:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_func2s_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_minus_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_or_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_plus_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_sll_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_slr_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _p_times_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxx);
      break;
    case _put_xx_val:
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.xxxx.xl1, cl->u.xxxx.xr1))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.xxxx.xl2, cl->u.xxxx.xr2))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxxx);
      break;
    case _p_func2f_xy:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xxy.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,xxy);
      break;
    case _save_b_y:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.y.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,y);
      break;
    case _write_y_loc:
      cl = NEXTOP(cl,y);
      break;
    case _write_y_val:
      cl = NEXTOP(cl,y);
      break;
    case _write_y_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.y.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,y);
      break;
    case _p_atom_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = (_atom+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_atomic_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = (_atomic+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_compound_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = (_compound+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_db_ref_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = AbsAppl((CELL *)FunctorDBRef);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_float_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = AbsAppl((CELL *)FunctorDouble);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_integer_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = (_integer+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_nonvar_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_number_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = (_number+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_primitive_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = (_primitive+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _p_var_y:
      if (cl->u.yl.F != FAILCODE) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
	clause->Tag = (_var+1)*sizeof(CELL);
	clause->u.t_ptr = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yl);
      break;
    case _get_y_val:
      if (!(nofregs = link_regcopies(myregs, nofregs, cl->u.yx.x, cl->u.yx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _get_y_var:
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.yx.x, cl->u.yx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _gl_void_valy:
      if (is_regcopy(myregs, nofregs, cl->u.yx.y)) {
	clause->Tag = AbsPair(NULL);
	clause->u.WorkPC = cl;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _gl_void_vary:
      if (is_regcopy(myregs, nofregs, cl->u.yx.y)) {
	clause->Tag = AbsPair(NULL);
	clause->u.WorkPC = cl;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _glist_valy:
      if (is_regcopy(myregs, nofregs, cl->u.yx.x)) {
	clause->Tag = AbsPair(NULL);
	clause->u.WorkPC = cl;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _put_unsafe:
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.yx.y, cl->u.yx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _put_y_val:
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.yx.y, cl->u.yx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _put_y_var:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yx);
      break;
    case _p_and_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_arg_y_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_div_y_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_div_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_func2s_y_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_func2s_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_or_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_plus_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_sll_y_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_sll_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_slr_y_cv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_slr_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_times_y_vc:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxn.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxn);
      break;
    case _p_and_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_arg_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_div_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_func2f_yx:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_func2s_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_minus_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_or_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_plus_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_sll_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_slr_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_times_y_vv:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yxx.y))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yxx);
      break;
    case _p_func2f_yy:
      if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.yyx.x))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yyx);
      break;
    case _get_yy_var:
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.yyxx.x1, cl->u.yyxx.y1))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      if (!(nofregs = add_regcopy(myregs, nofregs, cl->u.yyxx.x2, cl->u.yyxx.y2))) {
	clause->Tag = (CELL)NULL;
	return;
      }
      cl = NEXTOP(cl,yyxx);
      break;
#ifdef YAPOR
#endif
#ifdef TABLING
    case _table_try_single:
      cl = NEXTOP(cl,Otapl);
      break;
#endif
default:
	clause->Tag = (CELL)NULL;
	return;
     }
  }