1574 lines
37 KiB
C
1574 lines
37 KiB
C
|
|
/* 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 _write_atom:
|
|
cl = NEXTOP(cl,c);
|
|
break;
|
|
case _get_2atoms:
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
|
|
clause->Tag = cl->u.cc.c1;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
|
|
clause->Tag = cl->u.cc.c2;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,cc);
|
|
break;
|
|
case _get_3atoms:
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
|
|
clause->Tag = cl->u.ccc.c1;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
|
|
clause->Tag = cl->u.ccc.c2;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
|
|
clause->Tag = cl->u.ccc.c3;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,ccc);
|
|
break;
|
|
case _get_4atoms:
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
|
|
clause->Tag = cl->u.cccc.c1;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
|
|
clause->Tag = cl->u.cccc.c2;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
|
|
clause->Tag = cl->u.cccc.c3;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(4))) {
|
|
clause->Tag = cl->u.cccc.c4;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,cccc);
|
|
break;
|
|
case _get_5atoms:
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
|
|
clause->Tag = cl->u.ccccc.c1;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
|
|
clause->Tag = cl->u.ccccc.c2;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
|
|
clause->Tag = cl->u.ccccc.c3;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(4))) {
|
|
clause->Tag = cl->u.ccccc.c4;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(5))) {
|
|
clause->Tag = cl->u.ccccc.c5;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,ccccc);
|
|
break;
|
|
case _get_6atoms:
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(1))) {
|
|
clause->Tag = cl->u.cccccc.c1;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(2))) {
|
|
clause->Tag = cl->u.cccccc.c2;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(3))) {
|
|
clause->Tag = cl->u.cccccc.c3;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(4))) {
|
|
clause->Tag = cl->u.cccccc.c4;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(5))) {
|
|
clause->Tag = cl->u.cccccc.c5;
|
|
return;
|
|
}
|
|
if (is_regcopy(myregs, nofregs, Yap_regnotoreg(6))) {
|
|
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 _count_a_call:
|
|
cl = NEXTOP(cl,e);
|
|
break;
|
|
case _enter_a_profiling:
|
|
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 _gtc_float:
|
|
cl = NEXTOP(cl,sdll);
|
|
break;
|
|
case _ltc_float:
|
|
cl = NEXTOP(cl,sdll);
|
|
break;
|
|
case _gtc_int:
|
|
cl = NEXTOP(cl,snll);
|
|
break;
|
|
case _ltc_int:
|
|
cl = NEXTOP(cl,snll);
|
|
break;
|
|
case _add_float_c:
|
|
cl = NEXTOP(cl,ssd);
|
|
break;
|
|
case _fdiv_c1:
|
|
cl = NEXTOP(cl,ssd);
|
|
break;
|
|
case _fdiv_c2:
|
|
cl = NEXTOP(cl,ssd);
|
|
break;
|
|
case _mul_float_c:
|
|
cl = NEXTOP(cl,ssd);
|
|
break;
|
|
case _sub_float_c:
|
|
cl = NEXTOP(cl,ssd);
|
|
break;
|
|
case _a_eq:
|
|
cl = NEXTOP(cl,ssll);
|
|
break;
|
|
case _lt:
|
|
cl = NEXTOP(cl,ssll);
|
|
break;
|
|
case _a_and_c:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _a_or_c:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _add_int_c:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _idiv_c1:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _idiv_c2:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _mod_c1:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _mod_c2:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _mul_int_c:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _rem_c1:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _rem_c2:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _sl_c1:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _sl_c2:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _sr_c1:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _sr_c2:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _sub_int_c:
|
|
cl = NEXTOP(cl,ssn);
|
|
break;
|
|
case _a_and:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _a_or:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _add:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _fdiv:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _idiv:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _mod:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _mul:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _rem:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _sl:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _sr:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _sub:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _uminus:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _xor:
|
|
cl = NEXTOP(cl,sss);
|
|
break;
|
|
case _get_f_x:
|
|
cl = NEXTOP(cl,sxl);
|
|
break;
|
|
case _get_fi_x:
|
|
cl = NEXTOP(cl,sxl);
|
|
break;
|
|
case _get_i_x:
|
|
cl = NEXTOP(cl,sxl);
|
|
break;
|
|
case _put_f_var_x:
|
|
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.sxl.x))) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,sxl);
|
|
break;
|
|
case _put_fi_var_x:
|
|
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.sxl.x))) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,sxl);
|
|
break;
|
|
case _put_i_var_x:
|
|
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.sxl.x))) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,sxl);
|
|
break;
|
|
case _put_f_val_x:
|
|
cl = NEXTOP(cl,sxll);
|
|
break;
|
|
case _put_fi_val_x:
|
|
cl = NEXTOP(cl,sxll);
|
|
break;
|
|
case _put_i_val_x:
|
|
cl = NEXTOP(cl,sxll);
|
|
break;
|
|
case _get_f_y:
|
|
cl = NEXTOP(cl,syl);
|
|
break;
|
|
case _get_fi_y:
|
|
cl = NEXTOP(cl,syl);
|
|
break;
|
|
case _get_i_y:
|
|
cl = NEXTOP(cl,syl);
|
|
break;
|
|
case _put_f_var_y:
|
|
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.syl.y))) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,syl);
|
|
break;
|
|
case _put_fi_var_y:
|
|
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.syl.y))) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,syl);
|
|
break;
|
|
case _put_i_var_y:
|
|
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.syl.y))) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,syl);
|
|
break;
|
|
case _put_f_val_y:
|
|
cl = NEXTOP(cl,syll);
|
|
break;
|
|
case _put_fi_val_y:
|
|
cl = NEXTOP(cl,syll);
|
|
break;
|
|
case _put_i_val_y:
|
|
cl = NEXTOP(cl,syll);
|
|
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)) {
|
|
clause->Tag = cl->u.xc.c;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xc);
|
|
break;
|
|
case _get_bigint:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xc.x)) {
|
|
clause->Tag = AbsAppl((CELL *)FunctorBigInt);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
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 (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = (_atom+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xl);
|
|
break;
|
|
case _p_atomic_x:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = (_atomic+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xl);
|
|
break;
|
|
case _p_compound_x:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = (_compound+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xl);
|
|
break;
|
|
case _p_db_ref_x:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = AbsAppl((CELL *)FunctorDBRef);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xl);
|
|
break;
|
|
case _p_float_x:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = AbsAppl((CELL *)FunctorDouble);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xl);
|
|
break;
|
|
case _p_integer_x:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = (_integer+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (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 (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = (_number+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xl);
|
|
break;
|
|
case _p_primitive_x:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = (_primitive+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xl);
|
|
break;
|
|
case _p_var_x:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xl.x)) {
|
|
clause->Tag = (_var+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.xl.F != FAILCODE) {
|
|
clause->Tag = (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_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_cv:
|
|
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 _gl_void_valy:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xy.y)) {
|
|
clause->Tag = AbsPair(NULL);
|
|
clause->u.WorkPC = cl;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xy);
|
|
break;
|
|
case _gl_void_vary:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xy.y)) {
|
|
clause->Tag = AbsPair(NULL);
|
|
clause->u.WorkPC = cl;
|
|
return;
|
|
}
|
|
if (!(nofregs = delete_regcopy(myregs, nofregs, cl->u.xy.y))) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xy);
|
|
break;
|
|
case _glist_valy:
|
|
if (is_regcopy(myregs, nofregs, cl->u.xy.x)) {
|
|
clause->Tag = AbsPair(NULL);
|
|
clause->u.WorkPC = cl;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,xy);
|
|
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 (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = (_atom+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,yl);
|
|
break;
|
|
case _p_atomic_y:
|
|
if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = (_atomic+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,yl);
|
|
break;
|
|
case _p_compound_y:
|
|
if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = (_compound+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,yl);
|
|
break;
|
|
case _p_db_ref_y:
|
|
if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = AbsAppl((CELL *)FunctorDBRef);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,yl);
|
|
break;
|
|
case _p_float_y:
|
|
if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = AbsAppl((CELL *)FunctorDouble);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,yl);
|
|
break;
|
|
case _p_integer_y:
|
|
if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = (_integer+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (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 (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = (_number+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,yl);
|
|
break;
|
|
case _p_primitive_y:
|
|
if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = (_primitive+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
cl = NEXTOP(cl,yl);
|
|
break;
|
|
case _p_var_y:
|
|
if (is_regcopy(myregs, nofregs, cl->u.yl.y)) {
|
|
clause->Tag = (_var+1)*sizeof(CELL);
|
|
clause->u.t_ptr = (CELL)NULL;
|
|
return;
|
|
}
|
|
if (cl->u.yl.F != FAILCODE) {
|
|
clause->Tag = (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 _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;
|
|
#ifdef YAPOR
|
|
#endif
|
|
#ifdef TABLING
|
|
case _table_try_single:
|
|
cl = NEXTOP(cl,Otapl);
|
|
break;
|
|
#endif
|
|
default:
|
|
clause->Tag = (CELL)NULL;
|
|
return;
|
|
}
|
|
}
|