yap-6.3/JIT/HPP/yaam_primitive_predicates.h

#define P_ATOM_X_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);
	  
#define P_ATOM_X_ATOM \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext(); \
	  
#define P_ATOM_X_NOATOM \
	(*_PREG) = (*_PREG)->y_u.xl.F; \
	GONext();

#define P_ATOM_Y_INSTINIT \
      register CELL d0; \
	  register CELL* pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;
	  
#define P_ATOM_Y_IFOK \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();
	  
#define P_ATOM_Y_NOIF \
	(*_PREG) = (*_PREG)->y_u.yl.F; \
	GONext();
  
#define P_ATOM_Y_END \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_ATOMIC_X_INSTINIT \
      register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);
	  
#define P_ATOMIC_X_NONVAR \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();
	  
#define P_ATOMIC_X_VAR \
	(*_PREG) = (*_PREG)->y_u.xl.F; \
	GONext();
	  
#define P_ATOMIC_X_END \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_ATOMIC_Y_INSTINIT \
      register CELL d0; \
	  register CELL* pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;
	  
#define P_ATOMIC_Y_NONVAR \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();
	  
#define P_ATOMIC_Y_VAR \
	(*_PREG) = (*_PREG)->y_u.yl.F; \
	GONext();
	  
#define P_ATOMIC_Y_END \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_INTEGER_X_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x); \
	  
#define P_INTEGER_X_INTEGER_X_NVAR_OK \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();
	
#define P_INTEGER_X_INTEGER_X_NVAR_NOOK \
	    (*_PREG) = (*_PREG)->y_u.xl.F; \
	    GONext();

#define P_INTEGER_X_INTEGER_X_UNK \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_INTEGER_Y_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;
	  
#define P_INTEGER_Y_INTEGER_Y_NVAR_OK \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();
	  
#define P_INTEGER_Y_INTEGER_Y_NVAR_NOOK \
	    (*_PREG) = (*_PREG)->y_u.yl.F; \
	    GONext();
		
#define P_INTEGER_Y_INTEGER_Y_UNK \
	    (*_PREG) = (*_PREG)->y_u.yl.F; \
	    GONext();

#define P_NONVAR_X_INSTINIT \
      register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);
	
#define P_NONVAR_X_NONVAR \
      (*_PREG) = NEXTOP((*_PREG), xl); \
      GONext();
	  
#define P_NONVAR_X_NONONVAR \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_NONVAR_Y_INSTINIT \
      register CELL d0; \
	  register CELL* pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;

#define P_NONVAR_Y_NONVAR \
      (*_PREG) = NEXTOP((*_PREG), yl); \
      GONext();

#define P_NONVAR_Y_NONONVAR \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_NUMBER_X_INSTINIT \
      register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);
	  
#define P_NUMBER_X_INT \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();

#define P_NUMBER_X_FUNCTORINT \
	    (*_PREG) = NEXTOP((*_PREG), xl); \
	    GONext();

#define P_NUMBER_X_FUNCTORDEFAULT \
	    (*_PREG) = (*_PREG)->y_u.xl.F; \
	    GONext();

#define P_NUMBER_X_POST_IF \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_NUMBER_X_NUMBER_X_UNK \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_NUMBER_Y_INSTINIT \
	  register CELL d0; \
	  register CELL *pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;

#define P_NUMBER_Y_INT \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();

#define P_NUMBER_Y_FUNCTORINT \
	    (*_PREG) = NEXTOP((*_PREG), yl); \
	    GONext();

#define P_NUMBER_Y_FUNCTORDEFAULT \
	    (*_PREG) = (*_PREG)->y_u.yl.F; \
	    GONext();

#define P_NUMBER_Y_POST_IF \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_NUMBER_Y_NUMBER_Y_UNK \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_VAR_X_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);

#define P_VAR_X_NONVAR \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_VAR_X_VAR \
      (*_PREG) = NEXTOP((*_PREG), xl); \
      GONext();

#define P_VAR_Y_INSTINIT \
	  register CELL d0; \
	  register CELL *pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;

#define P_VAR_Y_NONVAR \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_VAR_Y_VAR \
      (*_PREG) = NEXTOP((*_PREG), yl); \
      GONext();

#define P_DB_REF_X_INSTINIT \
      register CELL d0; \
	  register CELL *pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);

#define P_DB_REF_X_DBREF \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();

#define P_DB_REF_X_NODBREF \
	(*_PREG) = (*_PREG)->y_u.xl.F; \
	GONext();

#define P_DB_REF_X_DBREF_X_UNK \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_DB_REF_Y_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;
	  
#define P_DB_REF_Y_DBREF \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();
	  
#define P_DB_REF_Y_NODBREF \
	(*_PREG) = (*_PREG)->y_u.yl.F; \
	GONext();

#define P_DB_REF_Y_DBREF_Y_UNK \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_PRIMITIVE_X_INSTINIT \
	  register CELL d0; \
	  register CELL *pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);

#define P_PRIMITIVE_X_PRIMITIVE \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();

#define P_PRIMITIVE_X_NOPRIMITIVE \
	(*_PREG) = (*_PREG)->y_u.xl.F; \
	GONext();

#define P_PRIMITIVE_X_PRIMI_X_UNK \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_PRIMITIVE_Y_INSTINIT \
	  register CELL d0; \
	  register CELL *pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;

#define P_PRIMITIVE_Y_PRIMITIVE \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();

#define P_PRIMITIVE_Y_NOPRIMITIVE \
	(*_PREG) = (*_PREG)->y_u.yl.F; \
	GONext();

#define P_PRIMITIVE_Y_PRIMI_Y_UNK \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_COMPOUND_X_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);

#define P_COMPOUND_X_PAIR \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();

#define P_COMPOUND_X_APPL_IFOK \
	  (*_PREG) = (*_PREG)->y_u.xl.F; \
	  GONext();

#define P_COMPOUND_X_APPL \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();
	  
#define P_COMPOUND_X_NOAPPL \
	(*_PREG) = (*_PREG)->y_u.xl.F; \
	GONext();

#define P_COMPOUND_X_COMPOUND_X_UNK \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_COMPOUND_Y_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;

#define P_COMPOUND_Y_PAIR \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();

#define P_COMPOUND_Y_APPL_IFOK \
	  (*_PREG) = (*_PREG)->y_u.yl.F; \
	  GONext();

#define P_COMPOUND_Y_APPL \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();
	
#define P_COMPOUND_Y_NOAPPL \
	(*_PREG) = (*_PREG)->y_u.yl.F; \
	GONext();

#define P_COMPOUND_Y_COMPOUND_Y_UNK \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_FLOAT_X_INSTINIT \
      register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xl.x);

#define P_FLOAT_X_FLOAT \
	(*_PREG) = NEXTOP((*_PREG), xl); \
	GONext();

#define P_FLOAT_X_POST_IF \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_FLOAT_X_FLOAT_X_UNK \
      (*_PREG) = (*_PREG)->y_u.xl.F; \
      GONext();

#define P_FLOAT_Y_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      pt0 = YREG + (*_PREG)->y_u.yl.y; \
      d0 = *pt0;

#define P_FLOAT_Y_FLOAT \
	(*_PREG) = NEXTOP((*_PREG), yl); \
	GONext();

#define P_FLOAT_Y_POST_IF \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_FLOAT_Y_FLOAT_Y_UNK \
      (*_PREG) = (*_PREG)->y_u.yl.F; \
      GONext();

#define P_PLUS_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_PLUS_VV_PLUS_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);
	  
#define P_PLUS_VV_PLUS_VV_NVAR_NVAR_INT \
    if (!IsIntTerm(d0) || !IsIntTerm(d1)) { BACK(); } \
	d0 = MkIntegerTerm(IntOfTerm(d0) + IntOfTerm(d1)); \
	  XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();

#define P_PLUS_VV_PLUS_VV_NVAR_NVAR_NOINT \
	saveregs(); \
	d0 = p_plus(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs(); \
	  XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();

#define P_PLUS_VV_PLUS_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is _+B"); \
      setregs(); \
      FAIL();

#define P_PLUS_VV_PLUS_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A+B"); \
      setregs(); \
      FAIL();

#define P_PLUS_VC_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi); \
	  Int d1 = (*_PREG)->y_u.xxn.c;
	  
#define P_PLUS_VC_PLUS_VC_NVAR_INT \
	d0 = MkIntegerTerm(IntOfTerm(d0) + d1); \
	  XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();
	  
#define P_PLUS_VC_PLUS_VC_NVAR_NOINT \
	saveregs(); \
	d0 = p_plus(Yap_Eval(d0), MkIntegerTerm(d1)); \
	setregs(); \
	  XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_PLUS_VC_PLUS_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A + " Int_FORMAT, (*_PREG)->y_u.xxn.c); \
      setregs(); \
      FAIL();

#define P_PLUS_Y_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_PLUS_Y_VV_PLUS_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);
	  
#define P_PLUS_Y_VV_PLUS_Y_VV_NVAR_NVAR_INT \
	if (!IsIntTerm(d0) || !IsIntTerm(d1)) { BACK(); } \
	d0 = MkIntegerTerm(IntOfTerm(d0) + IntOfTerm(d1)); \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();
    
#define P_PLUS_Y_VV_PLUS_Y_VV_NVAR_NVAR_NOINT \
	saveregs(); \
	d0 = p_plus(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs(); \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_PLUS_Y_VV_PLUS_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A+B"); \
      setregs(); \
      FAIL();

#define P_PLUS_Y_VV_PLUS_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A+B"); \
      setregs(); \
      FAIL();

#define P_PLUS_Y_VC_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi); \
	  Int d1 = (*_PREG)->y_u.yxn.c;

#define P_PLUS_Y_VC_PLUS_Y_VC_NVAR_INT \
	d0 = MkIntegerTerm(IntOfTerm(d0) + d1); \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();
	  
#define P_PLUS_Y_VC_PLUS_Y_VC_NVAR_NOINT \
	saveregs(); \
	d0 = p_plus(Yap_Eval(d0), MkIntegerTerm(d1)); \
	setregs(); \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_PLUS_Y_VC_PLUS_Y_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A + " Int_FORMAT, (*_PREG)->y_u.yxn.c); \
      setregs(); \
      FAIL();

#define P_MINUS_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_MINUS_VV_MINUS_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_MINUS_VV_MINUS_VV_NVAR_NVAR_INT \
    if (!IsIntTerm(d0) || !IsIntTerm(d1)) { BACK(); } \
	d0 = MkIntegerTerm(IntOfTerm(d0) - IntOfTerm(d1)); \
	  XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();
	  
#define P_MINUS_VV_MINUS_VV_NVAR_NVAR_NOINT \
	saveregs(); \
	d0 = p_minus(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs(); \
	  XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();

#define P_MINUS_VV_MINUS_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A-B"); \
      setregs(); \
      FAIL();

#define P_MINUS_VV_MINUS_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A-B"); \
      setregs(); \
      FAIL();

#define P_MINUS_CV_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi); \
	  Int d1 = (*_PREG)->y_u.xxn.c;

#define P_MINUS_CV_MINUS_CV_NVAR_INT \
	d0 = MkIntegerTerm(d1 - IntOfTerm(d0)); \
	  XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();
	
#define P_MINUS_CV_MINUS_CV_NVAR_NOINT \
	saveregs(); \
	d0 = p_minus(MkIntegerTerm(d1),Yap_Eval(d0)); \
	setregs(); \
	  XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_MINUS_CV_MINUS_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is " Int_FORMAT "-A", (*_PREG)->y_u.xxn.c); \
      setregs(); \
      FAIL();

#define P_MINUS_Y_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_MINUS_Y_VV_MINUS_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_MINUS_Y_VV_INTTERM \
	d0 = MkIntegerTerm(IntOfTerm(d0) - IntOfTerm(d1));

#define P_MINUS_Y_VV_NOINTTERM \
	saveregs(); \
	d0 = p_minus(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_MINUS_Y_VV_D0EQUALS0L \
	  saveregs(); \
	  Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	  setregs(); \
	  FAIL();
	  
#define P_MINUS_Y_VV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_MINUS_Y_VV_MINUS_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A-B"); \
      setregs(); \
      FAIL();

#define P_MINUS_Y_VV_MINUS_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A-B"); \
      setregs(); \
      FAIL();

#define P_MINUS_Y_CV_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_MINUS_Y_CV_MINUS_Y_CV_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_MINUS_Y_CV_INTTERM \
	  d0 = MkIntegerTerm(d1 - IntOfTerm(d0));

#define P_MINUS_Y_CV_NOINTTERM \
	  saveregs(); \
	  d0 = p_minus(MkIntegerTerm(d1), Yap_Eval(d0)); \
	  setregs();

#define P_MINUS_Y_CV_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_MINUS_Y_CV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_MINUS_Y_CV_MINUS_Y_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is " Int_FORMAT "-A", (*_PREG)->y_u.yxn.c); \
      setregs(); \
      FAIL();

#define P_TIMES_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
      register CELL d0, d1; \
      register CELL *pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_TIMES_VV_TIMES_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);
  
#define P_TIMES_VV_TIMES_VV_NVAR_NVAR_INT \
	if (!IsIntTerm(d0) || !IsIntTerm(d1)) { BACK(); } \
	d0 = times_int(IntOfTerm(d0), IntOfTerm(d1)); \
      XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();
	  
#define P_TIMES_VV_TIMES_VV_NVAR_NVAR_NOINT \
	saveregs(); \
	d0 = p_times(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs(); \
      XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();
  
#define P_TIMES_VV_TIMES_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A*B"); \
      setregs(); \
      FAIL();

#define P_TIMES_VV_TIMES_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A*B"); \
      setregs(); \
      FAIL();

#define P_TIMES_VC_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi); \
	  Int d1 = (*_PREG)->y_u.xxn.c;
    
#define P_TIMES_VC_TIMES_VC_NVAR_INT \
	d0 = times_int(IntOfTerm(d0), d1); \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();
	  
#define P_TIMES_VC_TIMES_VC_NVAR_NOINT \
	saveregs(); \
	d0 = p_times(Yap_Eval(d0), MkIntegerTerm(d1)); \
	setregs(); \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_TIMES_VC_TIMES_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A* " Int_FORMAT, (*_PREG)->y_u.xxn.c); \
      setregs(); \
      FAIL();

#define P_TIMES_Y_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_TIMES_Y_VV_TIMES_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_TIMES_Y_VV_INTTERM \
	d0 = times_int(IntOfTerm(d0), IntOfTerm(d1));

#define P_TIMES_Y_VV_NOINTTERM \
	saveregs(); \
	d0 = p_times(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_TIMES_Y_VV_D0EQUALS0L \
	  saveregs(); \
	  Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	  setregs(); \
	  FAIL();

#define P_TIMES_Y_VV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_TIMES_Y_VV_TIMES_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A*B"); \
      setregs(); \
      FAIL();
	  
#define P_TIMES_Y_VV_TIMES_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A*B"); \
      setregs(); \
      FAIL();

#define P_TIMES_Y_VC_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi); \
	  Int d1 = (*_PREG)->y_u.yxn.c;

#define P_TIMES_Y_VC_TIMES_Y_VC_NVAR_INT \
	d0 = times_int(IntOfTerm(d0), d1); \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();
	  
#define P_TIMES_Y_VC_TIMES_Y_VC_NVAR_NOINT \
	saveregs(); \
	d0 = p_times(Yap_Eval(d0), MkIntegerTerm(d1)); \
	setregs(); \
	  pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_TIMES_Y_VC_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_TIMES_Y_VC_TIMES_Y_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A* " Int_FORMAT, (*_PREG)->y_u.yxn.c); \
      setregs(); \
      FAIL();

#define P_DIV_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_DIV_VV_DIV_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_DIV_VV_DIV_VV_NVAR_NVAR_INT \
      BLOCK = (CELL)P_DIV_VV_DIV_VV_NVAR_NVAR_INT; \
      FAILED = 0; \
	  if (!IsIntTerm(d0) || !IsIntTerm(d1)) { BACK(); } \
	  Int div = IntOfTerm(d1); \
	  if (div == 0) { \
	    saveregs(); \
	    Yap_NilError(EVALUATION_ERROR_ZERO_DIVISOR,"// /2"); \
	    setregs(); \
	    YAAM_FAIL; \
	  } \
	  else { \
	    d0 = MkIntTerm(IntOfTerm(d0) / div); \
        XREG((*_PREG)->y_u.xxx.x) = d0; \
        (*_PREG) = NEXTOP((*_PREG), xxx); \
        GONext(); \
	  }
	  
#define P_DIV_VV_DIV_VV_NVAR_NVAR_NOINT \
	  saveregs(); \
	  d0 = p_div(Yap_Eval(d0), Yap_Eval(d1)); \
	  setregs(); \
        XREG((*_PREG)->y_u.xxx.x) = d0; \
        (*_PREG) = NEXTOP((*_PREG), xxx); \
        GONext();

#define P_DIV_VV_DIV_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A//B"); \
      setregs(); \
      FAIL();

#define P_DIV_VV_DIV_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A//B"); \
      setregs(); \
      FAIL();

#define P_DIV_VC_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi);

#define P_DIV_VC_DIV_VC_NVAR \
	Int d1 = (*_PREG)->y_u.xxn.c;

#define P_DIV_VC_INTTERM \
	  d0 = MkIntTerm(IntOfTerm(d0) / d1);

#define P_DIV_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_div(Yap_Eval(d0),MkIntegerTerm(d1)); \
	  setregs();

#define P_DIV_VC_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_DIV_VC_NVAR_END \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();
	  
#define P_DIV_VC_DIV_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A//B"); \
      setregs(); \
      FAIL();

#define P_DIV_CV_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi);

#define P_DIV_CV_DIV_CV_NVAR \
	Int d1 = (*_PREG)->y_u.xxn.c;

#define P_DIV_CV_INTTERM_INIT \
	  Int div = IntOfTerm(d0);

#define P_DIV_CV_INTTERM_DIVEQUALS0 \
	    saveregs(); \
	    Yap_NilError(EVALUATION_ERROR_ZERO_DIVISOR,"// /2"); \
	    setregs(); \
	    FAIL();

#define P_DIV_CV_INTTERM_END \
	  d0 = MkIntegerTerm(d1 / div);

#define P_DIV_CV_NOINTTERM \
	  saveregs(); \
	  d0 = p_div(MkIntegerTerm(d1),Yap_Eval(d0));

#define P_DIV_CV_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_DIV_CV_NVAR_END \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_DIV_CV_DIV_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is " Int_FORMAT "// A", (*_PREG)->y_u.xxn.c); \
      setregs(); \
      FAIL();

#define P_DIV_Y_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_DIV_Y_VV_DIV_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_DIV_Y_VV_INTTERM_INIT \
	Int div = IntOfTerm(d1);
	
#define P_DIV_Y_VV_INTTERM_DIVEQUALS0 \
	  saveregs(); \
	  Yap_NilError(EVALUATION_ERROR_ZERO_DIVISOR,"// /2"); \
	  setregs(); \
	  FAIL();

#define P_DIV_Y_VV_INTTERM_END \
	d0 = MkIntTerm(IntOfTerm(d0) / div);

#define P_DIV_Y_VV_NOINTTERM \
	saveregs(); \
	d0 = p_div(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_DIV_Y_VV_D0EQUALS0L \
	  saveregs(); \
	  Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	  setregs(); \
	  FAIL();

#define P_DIV_Y_VV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_DIV_Y_VV_DIV_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A//B"); \
      setregs(); \
      FAIL();

#define P_DIV_Y_VV_DIV_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A//B"); \
      setregs(); \
      FAIL();

#define P_DIV_Y_VC_INSTINIT \
	  register CELL d0; \
	  register CELL *pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_DIV_Y_VC_DIV_Y_VC_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_DIV_Y_VC_INTTERM \
	  d0 = MkIntTerm(IntOfTerm(d0)/d1);

#define P_DIV_Y_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_div(Yap_Eval(d0),MkIntegerTerm(d1)); \
	  setregs();

#define P_DIV_Y_VC_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_DIV_Y_VC_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_DIV_Y_VC_DIV_Y_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A//B"); \
      setregs(); \
      FAIL();

#define P_DIV_Y_CV_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_DIV_Y_CV_DIV_Y_CV_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_DIV_Y_CV_INTTERM_INIT \
	  Int div = IntOfTerm(d0);

#define P_DIV_Y_CV_INTTERM_DIVEQUALS0 \
	    saveregs(); \
	    Yap_NilError(EVALUATION_ERROR_ZERO_DIVISOR,"// /2"); \
	    setregs(); \
	    FAIL();

#define P_DIV_Y_CV_INTTERM_END \
	  d0 = MkIntegerTerm(d1 / div);

#define P_DIV_Y_CV_NOINTTERM \
	  saveregs(); \
	  d0 = p_div(MkIntegerTerm(d1), Yap_Eval(d0)); \
	  setregs();

#define P_DIV_Y_CV_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_DIV_Y_CV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_DIV_Y_CV_DIV_Y_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is " Int_FORMAT "// A", (*_PREG)->y_u.yxn.c); \
      setregs(); \
      FAIL();

#define P_AND_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_AND_VV_AND_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);
      
#define P_AND_VV_AND_VV_NVAR_NVAR_INT \
	if (!IsIntTerm(d0) || !IsIntTerm(d1)) { BACK(); } \
	d0 = MkIntegerTerm(IntOfTerm(d0) & IntOfTerm(d1)); \
      XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();
	  
#define P_AND_VV_AND_VV_NVAR_NVAR_NOINT \
	saveregs(); \
	d0 = p_and(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs(); \
      XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();

#define P_AND_VV_AND_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A/\\B"); \
      setregs(); \
      FAIL();

#define P_AND_VV_AND_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A/\\B"); \
      setregs(); \
      FAIL();

#define P_AND_VC_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi); \
	  Int d1 = (*_PREG)->y_u.xxn.c;

#define P_AND_VC_AND_VC_NVAR_INT \
	d0 = MkIntegerTerm(IntOfTerm(d0) & d1); \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();
	  
#define P_AND_VC_AND_VC_NVAR_NOINT \
	saveregs(); \
	d0 = p_and(Yap_Eval(d0), MkIntegerTerm(d1)); \
	setregs(); \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_AND_VC_AND_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A /\\ " Int_FORMAT , (*_PREG)->y_u.xxn.c); \
      setregs(); \
      FAIL();

#define P_AND_Y_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_AND_Y_VV_AND_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_AND_Y_VV_INTTERM \
	d0 = MkIntegerTerm(IntOfTerm(d0) & IntOfTerm(d1));

#define P_AND_Y_VV_NOINTTERM \
	saveregs(); \
	d0 = p_and(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_AND_Y_VV_D0EQUALS0L \
	  saveregs(); \
	  Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	  setregs(); \
	  FAIL();

#define P_AND_Y_VV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_AND_Y_VV_AND_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A/\\B"); \
      setregs(); \
      FAIL();

#define P_AND_Y_VV_AND_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A/\\B"); \
      setregs(); \
      FAIL();

#define P_AND_Y_VC_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_AND_Y_VC_AND_Y_VC_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_AND_Y_VC_INTTERM \
	  d0 = MkIntegerTerm(IntOfTerm(d0) & d1);

#define P_AND_Y_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_and(Yap_Eval(d0), MkIntegerTerm(d1)); \
	  setregs();

#define P_AND_Y_VC_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_AND_Y_VC_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_AND_Y_VC_AND_Y_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A /\\ " Int_FORMAT , (*_PREG)->y_u.yxn.c); \
      setregs(); \
      FAIL();

#define P_OR_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_OR_VV_OR_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_OR_VV_INTTERM \
	d0 = MkIntegerTerm(IntOfTerm(d0) | IntOfTerm(d1));

#define P_OR_VV_NOINTTERM \
	saveregs(); \
	d0 = p_or(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_OR_VV_D0EQUALS0L \
	  saveregs(); \
	  Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	  setregs(); \
	  FAIL();

#define P_OR_VV_NVAR_END \
      XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();

#define P_OR_VV_OR_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A\\/B"); \
      setregs(); \
      FAIL();

#define P_OR_VV_OR_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A\\/B"); \
      setregs(); \
      FAIL();

#define P_OR_VC_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi);

#define P_OR_VC_OR_VC_NVAR \
	Int d1 = (*_PREG)->y_u.xxn.c;

#define P_OR_VC_INTTERM \
	  d0 = MkIntegerTerm(IntOfTerm(d0) | d1);

#define P_OR_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_or(Yap_Eval(d0), MkIntegerTerm(d1));

#define P_OR_VC_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_OR_VC_NVAR_END \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_OR_VC_OR_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A \\/ " Int_FORMAT , (*_PREG)->y_u.xxn.c); \
      setregs(); \
      FAIL();

#define P_OR_Y_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_OR_Y_VV_OR_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_OR_Y_VV_INTTERM \
	d0 = MkIntegerTerm(IntOfTerm(d0) | IntOfTerm(d1));

#define P_OR_Y_VV_NOINTTERM \
	saveregs(); \
	d0 = p_or(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_OR_Y_VV_D0EQUALS0L \
	  saveregs(); \
	  Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	  setregs(); \
	  FAIL();

#define P_OR_Y_VV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_OR_Y_VV_OR_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A\\/B"); \
      setregs(); \
      FAIL();

#define P_OR_Y_VV_OR_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A\\/B"); \
      setregs(); \
      FAIL();

#define P_OR_Y_VC_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_OR_Y_VC_OR_Y_VC_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_OR_Y_VC_INTTERM \
	  d0 = MkIntegerTerm(IntOfTerm(d0) | d1);

#define P_OR_Y_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_or(Yap_Eval(d0), MkIntegerTerm(d1)); \
	  setregs();

#define P_OR_Y_VC_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_OR_Y_VC_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_OR_Y_VC_OR_Y_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A \\/ " Int_FORMAT , (*_PREG)->y_u.yxn.c); \
      setregs(); \
      FAIL();

#define P_SLL_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_SLL_VV_SLL_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_SLL_VV_INTTERM_INIT \
	Int i2 = IntOfTerm(d1);

#define P_SLL_VV_INTTERM_LESS \
	  d0 = MkIntegerTerm(SLR(IntOfTerm(d0), -i2));

#define P_SLL_VV_INTTERM_GREATER \
	  d0 = do_sll(IntOfTerm(d0),i2);
	  
#define P_SLL_VV_NOINTTERM \
	saveregs(); \
	d0 = p_sll(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_SLL_VV_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLL_VV_NVAR_END \
      XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();

#define P_SLL_VV_SLL_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLL_VV_SLL_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLL_VC_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi);

#define P_SLL_VC_SLL_VC_NVAR \
	Int d1 = (*_PREG)->y_u.xxn.c;

#define P_SLL_VC_INTTERM \
	  d0 = do_sll(IntOfTerm(d0), (Int)d1);

#define P_SLL_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_sll(Yap_Eval(d0), MkIntegerTerm(d1)); \
	  setregs();

#define P_SLL_VC_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLL_VC_NVAR_END \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_SLL_VC_SLL_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLL_CV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi); \
	  Int d1 = (*_PREG)->y_u.xxn.c;

#define P_SLL_CV_SLL_CV_NVAR_INT \
    Int i2 = IntOfTerm(d0); \
	if (i2 < 0) { \
	  d0 = MkIntegerTerm(SLR(d1, -i2)); \
	} else { \
	  d0 = do_sll(d1,i2); \
	} \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();
	  
#define P_SLL_CV_SLL_CV_NVAR_NOINT \
    saveregs(); \
	d0 = p_sll(MkIntegerTerm(d1), Yap_Eval(d0)); \
	setregs(); \
      XREG((*_PREG->y_u.xxn.x) = d0; \
      (*_PREG = NEXTOP((*_PREG, xxn); \
      GONext();

#define P_SLL_CV_SLL_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLL_Y_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_SLL_Y_VV_SLL_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_SLL_Y_VV_INTTERM_INIT \
	Int i2 = IntOfTerm(d1);

#define P_SLL_Y_VV_INTERM_LESS \
	  d0 = MkIntegerTerm(SLR(IntOfTerm(d0), -i2));

#define P_SLL_Y_VV_INTTERM_GREATER \
	  d0 = do_sll(IntOfTerm(d0),i2);

#define P_SLL_Y_VV_NOINTTERM \
	saveregs(); \
	d0 = p_sll(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_SLL_Y_VV_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();
	  
#define P_SLL_Y_VV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_SLL_Y_VV_SLL_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLL_Y_VV_SLL_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLL_Y_VC_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_SLL_Y_VC_SLL_Y_VC_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_SLL_Y_VC_INTTERM \
	  d0 = do_sll(IntOfTerm(d0), Yap_Eval(d1));

#define P_SLL_Y_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_sll(Yap_Eval(d0), MkIntegerTerm(d1)); \
	  setregs();

#define P_SLL_Y_VC_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLL_Y_VC_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();
	  
#define P_SLL_Y_VC_SLL_Y_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLL_Y_CV_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_SLL_Y_CV_SLL_Y_CV_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;
	
#define P_SLL_Y_CV_INTTERM_INIT \
	  Int i2 = IntOfTerm(d0);

#define P_SLL_Y_CV_INTTERM_LESS \
	    d0 = MkIntegerTerm(SLR(d1, -i2));

#define P_SLL_Y_CV_INTTERM_GREATER \
	    d0 = do_sll(d1,i2);

#define P_SLL_Y_CV_NOINTTERM \
	  saveregs(); \
	  d0 = p_sll(MkIntegerTerm(d1), Yap_Eval(0)); \
	  setregs();

#define P_SLL_Y_CV_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLL_Y_CV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_SLL_Y_CV_SLL_Y_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A<<B"); \
      setregs(); \
      FAIL();

#define P_SLR_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_SLR_VV_SLR_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_SLR_VV_INTTERM_INIT \
	Int i2 = IntOfTerm(d1);

#define P_SLR_VV_INTTERM_LESS \
	  d0 = do_sll(IntOfTerm(d0), -i2);

#define P_SLR_VV_INTTERM_GREATER \
	  d0 = MkIntTerm(SLR(IntOfTerm(d0), i2));

#define P_SLR_VV_NOINTTERM \
	saveregs(); \
	d0 = p_slr(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_SLR_VV_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLR_VV_NVAR_END \
      XREG((*_PREG)->y_u.xxx.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxx); \
      GONext();

#define P_SLR_VV_SRL_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs(); \
      FAIL();

#define P_SLR_VV_SRL_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs(); \
      FAIL();

#define P_SLR_VC_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi); \
	  Int d1 = (*_PREG)->y_u.xxn.c;

#define P_SLR_VC_SLR_VC_NVAR_INT \
	d0 = MkIntTerm(SLR(IntOfTerm(d0), d1)); \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();
	  
#define P_SLR_VC_SLR_VC_NVAR_NOINT \
	saveregs(); \
	d0 = p_slr(Yap_Eval(d0), MkIntegerTerm(d1)); \
    setregs(); \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_SLR_VC_SRL_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs(); \
      FAIL();

#define P_SLR_CV_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.xxn.xi);

#define P_SLR_CV_SLR_CV_NVAR \
	Int d1 = (*_PREG)->y_u.xxn.c;

#define P_SLR_CV_INTTERM_INIT \
	 Int i2 = IntOfTerm(d0);

#define P_SLR_CV_INTTERM_LESS \
	   d0 = do_sll(d1, -i2);

#define P_SLR_CV_INTTERM_GREATER \
	   d0 = MkIntegerTerm(SLR(d1, i2));

#define P_SLR_CV_NOINTTERM \
	  saveregs(); \
	  d0 = p_slr(MkIntegerTerm(d1), Yap_Eval(d0)); \
	  setregs();

#define P_SLR_CV_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLR_CV_NVAR_END \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP((*_PREG), xxn); \
      GONext();

#define P_SLR_CV_SLR_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs(); \
      FAIL();

#define P_SLR_Y_VV_INSTINIT \
	  register CELL d0, d1; \
	  register CELL8 pt0; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_SLR_Y_VV_SLR_Y_VV_NVAR \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_SLR_Y_VV_INTTERM_INIT \
	 Int i2 = IntOfTerm(d1);

#define P_SLR_Y_VV_INTTERM_LESS \
	   d0 = do_sll(IntOfTerm(d0), -i2);

#define P_SLR_Y_VV_INTTERM_GREATER \
	   d0 = MkIntTerm(SLR(IntOfTerm(d0), i2));

#define P_SLR_Y_VV_NOINTTERM \
	saveregs(); \
	d0 = p_slr(Yap_Eval(d0), Yap_Eval(d1)); \
	setregs();

#define P_SLR_Y_VV_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLR_Y_VV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxx.y; \
      (*_PREG) = NEXTOP((*_PREG), yxx); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_SLR_Y_VV_SLR_Y_VV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs(); \
      FAIL();

#define P_SLR_Y_VV_SLR_Y_VV_NVAR_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs(); \
      FAIL();

#define P_SLR_Y_VC_INSTINIT \
	  register CELL d0; \
	  register CELL8 pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_SLR_Y_VC_SLR_Y_VC_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_SLR_Y_VC_INTTERM \
	  d0 = MkIntTerm(SLR(IntOfTerm(d0), d1));

#define P_SLR_Y_VC_NOINTTERM \
	  saveregs(); \
	  d0 = p_slr(Yap_Eval(d0), MkIntegerTerm(d1)); \
	  setregs();

#define P_SLR_Y_VC_D0EQUALS0L \
	    saveregs(); \
	    Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	    setregs(); \
	    FAIL();

#define P_SLR_Y_VC_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_SLR_Y_VC_SLR_Y_VC_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs();

#define P_SLR_Y_CV_INSTINIT \
	  register CELL d0; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_SLR_Y_CV_SLR_Y_CV_NVAR \
	Int d1 = (*_PREG)->y_u.yxn.c;

#define P_SLR_Y_CV_INTTERM_INIT \
	 Int i2 = IntOfTerm(d0);

#define P_SLR_Y_CV_INTTERM_LESS \
	   d0 = do_sll(d1, -i2);

#define P_SLR_Y_CV_INTTERM_GREATER \
	   d0 = MkIntegerTerm(SLR(d1, i2));

#define P_SLR_Y_CV_NOINTTERM \
	  saveregs(); \
	  d0 = p_slr(MkIntegerTerm(d1), Yap_Eval(d0)); \
	  setregs();

#define P_SLR_Y_CV_D0EQUALS0L \
	saveregs(); \
	Yap_Error(LOCAL_Error_TYPE, LOCAL_Error_Term, LOCAL_ErrorMessage); \
	setregs(); \
	FAIL();

#define P_SLR_Y_CV_NVAR_END \
      pt0 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP((*_PREG), yxn); \
      INITIALIZE_PERMVAR(pt0,d0); \
      GONext();

#define P_SLR_Y_CV_SLR_Y_CV_UNK \
      saveregs(); \
      Yap_NilError(INSTANTIATION_ERROR, "X is A>>B"); \
      setregs(); \
      FAIL();

#define CALL_BFUNC_XX_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL* pt0; \
      d0 = XREG((*_PREG)->y_u.plxxs.x1);

#define CALL_BFUNC_XX_CALL_BFUNC_XX_NVAR \
      d1 = XREG((*_PREG)->y_u.plxxs.x2);

#define CALL_BFUNC_XX_CALL_BFUNC_XX2_NVAR_INT \
      BLOCK = (CELL)CALL_BFUNC_XX_CALL_BFUNC_XX2_NVAR_INT; \
      if (IsIntTerm(d0) && IsIntTerm(d1)) { \
	    COUNT flags; \
	    Int v = IntOfTerm(d0) - IntOfTerm(d1); \
	    flags = (*_PREG)->y_u.plxxs.flags; \
	    if (v > 0) { \
	      if (flags & GT_OK_IN_CMP) { \
	        yamop *nextp = NEXTOP((*_PREG), plxxs); \
	        (*_PREG) = nextp; \
	        ALWAYS_GONext(); \
          } \
	      else { \
	        yamop *nextp = (*_PREG)->y_u.plxxs.f; \
	        (*_PREG) = nextp; \
	        ALWAYS_GONext(); \
          } \
        } \
	    else if (v < 0) { \
	      if (flags & LT_OK_IN_CMP) { \
	        yamop *nextp = NEXTOP((*_PREG), plxxs); \
	        (*_PREG) = nextp; \
	        ALWAYS_GONext(); \
          } \
	      else { \
	        yamop *nextp = (*_PREG)->y_u.plxxs.f; \
	        (*_PREG) = nextp; \
	        ALWAYS_GONext(); \
          } \
	    } \
	    else { \
	      if (flags & EQ_OK_IN_CMP) { \
	        yamop *nextp = NEXTOP((*_PREG), plxxs); \
	        (*_PREG) = nextp; \
	        ALWAYS_GONext(); \
	      } \
	      else { \
	        yamop *nextp = (*_PREG)->y_u.plxxs.f; \
	        (*_PREG) = nextp; \
	        ALWAYS_GONext(); \
	      } \
	    } \
      }

#define CALL_BFUNC_XX_CALL_BFUNC_XX2_NVAR_NOINT \
      BLOCK = (CELL)CALL_BFUNC_XX_CALL_BFUNC_XX2_NVAR_NOINT; \
	    CmpPredicate f = (*_PREG)->y_u.plxxs.p->cs.d_code; \
	    saveregs(); \
	    d0 = (CELL) (f) (d0,d1); \
	    setregs(); \
        if ((*_PREG) == FAILCODE) { \
	      JMPNext(); \
        } \
        else if (!d0) { \
	      (*_PREG) = (*_PREG)->y_u.plxxs.f; \
	      JMPNext(); \
        } \
        else { \
          (*_PREG) = NEXTOP((*_PREG), plxxs); \
          JMPNext(); \
        }

#define CALL_BFUNC_XX_CALL_BFUNC_XX_UNK \
      d1 = Deref(d1);

#define CALL_BFUNC_YX_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL *pt0; \
      pt0 = YREG + (*_PREG)->y_u.plxys.y; \
      d1 = XREG((*_PREG)->y_u.plxys.x); \
      d0 = *pt0;

#define CALL_BFUNC_YX_CALL_BFUNC_YX2_NVAR_INT \
      BLOCK = (CELL)CALL_BFUNC_YX_CALL_BFUNC_YX2_NVAR_INT; \
      if (IsIntTerm(d0) && IsIntTerm(d1)) { \
	    int flags; \
	    Int v = IntOfTerm(d0) - IntOfTerm(d1); \
	    flags = (*_PREG)->y_u.plxys.flags; \
	    if (v > 0) { \
	      if (flags & GT_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plxys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	        JMPNext(); \
	      } \
	    } else if (v < 0) { \
	      if (flags & LT_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plxys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	        JMPNext(); \
	      } \
	    } else { \
	      if (flags & EQ_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plxys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	        JMPNext(); \
	      } \
	    } \
      }

#define CALL_BFUNC_YX_CALL_BFUNC_YX2_NVAR_NOINT \
      BLOCK = (CELL)CALL_BFUNC_YX_CALL_BFUNC_YX2_NVAR_NOINT; \
	    CmpPredicate f = (*_PREG)->y_u.plxys.p->cs.d_code; \
	    saveregs(); \
	    d0 = (CELL) (f) (d0,d1); \
	    setregs(); \
        if (!d0 || (*_PREG) == FAILCODE) { \
	      if ((*_PREG) != FAILCODE) { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	      } \
	      JMPNext(); \
        } \
        else { \
          (*_PREG) = NEXTOP((*_PREG), plxys); \
          JMPNext(); \
        }

#define CALL_BFUNC_YX_CALL_BFUNC_YX_UNK \
      d1 = Deref(d1);

#define CALL_BFUNC_XY_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL *pt0; \
      pt0 = YREG + (*_PREG)->y_u.plxys.y; \
      d0 = XREG((*_PREG)->y_u.plxys.x); \
      d1 = *pt0;

#define CALL_BFUNC_XY_CALL_BFUNC_XY2_NVAR_INT \
      BLOCK = (CELL)CALL_BFUNC_XY_CALL_BFUNC_XY2_NVAR_INT; \
      if (IsIntTerm(d0) && IsIntTerm(d1)) { \
	    int flags; \
	    Int v = IntOfTerm(d0) - IntOfTerm(d1); \
	    flags = (*_PREG)->y_u.plxys.flags; \
	    if (v > 0) { \
	      if (flags & GT_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plxys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	        JMPNext(); \
	      } \
	    } else if (v < 0) { \
	      if (flags & LT_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plxys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	        JMPNext(); \
	      } \
	    } else { \
	      if (flags & EQ_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plxys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	        JMPNext(); \
	      } \
	    } \
      }

#define CALL_BFUNC_XY_CALL_BFUNC_XY2_NVAR_NOINT \
      BLOCK = (CELL)CALL_BFUNC_XY_CALL_BFUNC_XY2_NVAR_NOINT; \
	    CmpPredicate f = (*_PREG)->y_u.plxys.p->cs.d_code; \
	    saveregs(); \
	    d0 = (CELL) (f) (d0,d1); \
	    setregs(); \
        if (!d0 || (*_PREG) == FAILCODE) { \
	      if ((*_PREG) != FAILCODE) { \
	        (*_PREG) = (*_PREG)->y_u.plxys.f; \
	      } \
	      JMPNext(); \
        } \
        else { \
          (*_PREG) = NEXTOP((*_PREG), plxys); \
          JMPNext(); \
        }

#define CALL_BFUNC_XY_CALL_BFUNC_XY_UNK \
      d1 = Deref(d1);

#define CALL_BFUNC_YY_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      pt0 = YREG + (*_PREG)->y_u.plyys.y1; \
      pt1 = YREG + (*_PREG)->y_u.plyys.y2; \
      d0 = *pt0; \
      d1 = *pt1;

#define CALL_BFUNC_YY_CALL_BFUNC_YY2_NVAR_INT \
      BLOCK = (CELL)CALL_BFUNC_YY_CALL_BFUNC_YY2_NVAR_INT; \
      if (IsIntTerm(d0) && IsIntTerm(d1)) { \
	    int flags; \
	    Int v = IntOfTerm(d0) - IntOfTerm(d1); \
	    flags = (*_PREG)->y_u.plyys.flags; \
	    if (v > 0) { \
	      if (flags & GT_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plyys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plyys.f; \
	        JMPNext(); \
	      } \
	    } else if (v < 0) { \
	      if (flags & LT_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plyys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plyys.f; \
	        JMPNext(); \
	      } \
	    } else { \
	      if (flags & EQ_OK_IN_CMP) { \
	        (*_PREG) = NEXTOP((*_PREG), plyys); \
	        JMPNext(); \
	      } else { \
	        (*_PREG) = (*_PREG)->y_u.plyys.f; \
	        JMPNext(); \
	      } \
	    } \
      }

#define CALL_BFUNC_YY_CALL_BFUNC_YY2_NVAR_NOINT \
      BLOCK = (CELL)CALL_BFUNC_YY_CALL_BFUNC_YY2_NVAR_NOINT; \
	    CmpPredicate f = (*_PREG)->y_u.plyys.p->cs.d_code; \
	    saveregs(); \
	    d0 = (CELL) (f) (d0,d1); \
	    setregs(); \
        if (!d0 || (*_PREG) == FAILCODE) { \
	      if ((*_PREG) != FAILCODE) { \
	        (*_PREG) = (*_PREG)->y_u.plyys.f; \
	      } \
	      JMPNext(); \
        } \
        else { \
          (*_PREG) = NEXTOP((*_PREG), plyys); \
          JMPNext(); \
        }

#define CALL_BFUNC_YY_NOINTTERM_NOFAILCODE \
	  (*_PREG) = (*_PREG)->y_u.plyys.f;

#define CALL_BFUNC_YY_NOINTTERM_NOD0 \
	JMPNext();

#define CALL_BFUNC_YY_NOINTTERM_END \
      (*_PREG) = NEXTOP((*_PREG), plyys); \
      JMPNext();

#define CALL_BFUNC_YY_CALL_BFUNC_YY_UNK \
      d1 = Deref(d1);

#define P_EQUAL_INSTINIT \
      save_hb();

#define P_EQUAL_END \
      (*_PREG) = NEXTOP((*_PREG), e); \
      GONext();

#include "p_dif.i"

#include "p_eq.i"

#define P_ARG_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \

#ifdef LOW_LEVEL_TRACER
#define P_ARG_VV_LOW_LEVEL_TRACER \
	HR[0] = XREG((*_PREG)->y_u.xxx.x1); \
	HR[1] = XREG((*_PREG)->y_u.xxx.x2); \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorArg,0)),HR);
#endif

#define P_ARG_VV_TEST_D0 \
	  register CELL d0, d1; \
	  register CELL *pt0; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);
      
#define P_ARG_VV_ARG_ARG1_NVAR \
      FAILED = 0; \
      if (IsIntTerm(d0)) { \
	d0 = IntOfTerm(d0); \
      } else if (IsLongIntTerm(d0)) { \
	d0 = LongIntOfTerm(d0); \
      } else { \
	saveregs(); \
	Yap_Error(TYPE_ERROR_INTEGER,d0,"arg 1 of arg/3"); \
	setregs(); \
	YAAM_FAIL; \
      }

#define P_ARG_VV_TEST_D1 \
    if (!FAILED) { \
      d1 = XREG((*_PREG)->y_u.xxx.x2);
      
#define P_ARG_VV_ARG_ARG2_NVAR \
      BLOCK = (CELL)P_ARG_VV_ARG_ARG2_NVAR; \
      if (IsApplTerm(d1)) { \
	pt0 = RepAppl(d1); \
	d1 = *pt0; \
	if (IsExtensionFunctor((Functor) d1)) { \
	  YAAM_FAIL; \
	} \
	else if ((Int)d0 <= 0 || \
	    (Int)d0 > ArityOfFunctor((Functor) d1)) { \
	  YAAM_FAIL; \
	} \
	else { \
	  XREG((*_PREG)->y_u.xxx.x) = pt0[d0]; \
	  (*_PREG) = NEXTOP((*_PREG), xxx); \
	  GONext(); \
  } \
      } \
      else if (IsPairTerm(d1)) { \
	pt0 = RepPair(d1); \
	if (d0 != 1 && d0 != 2) { \
	  if ((Int)d0 < 0) { \
	    saveregs(); \
	    Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, \
		  MkIntegerTerm(d0),"arg 1 of arg/3"); \
	    setregs(); \
	  } \
	  YAAM_FAIL; \
	} \
	else { \
	  XREG((*_PREG)->y_u.xxx.x) = pt0[d0-1]; \
	  (*_PREG) = NEXTOP((*_PREG), xxx); \
	  GONext(); \
	} \
      } \
      else { \
	YAAM_FAIL; \
      } \
  }

#define P_ARG_VV_ARG_ARG2_UNK \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1,"arg 2 of arg/3"); \
      setregs(); \
      FAIL();

#define P_ARG_VV_ARG_ARG1_UNK \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "arg 1 of arg/3"); \
      setregs(); \
      FAIL();

#define P_ARG_CV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \

#ifdef LOW_LEVEL_TRACER
#define P_ARG_CV_LOW_LEVEL_TRACER \
	CELL *Ho = HR; \
	Term t = MkIntegerTerm((*_PREG)->y_u.xxn.c); \
	HR[0] =  t; \
	HR[1] = XREG((*_PREG)->y_u.xxn.xi); \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorArg,0)),HR); \
	HR = Ho;
#endif

#define P_ARG_CV_TEST_D1 \
	  register CELL d0, d1; \
	  register CELL *pt0; \
      d0 = (*_PREG)->y_u.xxn.c; \
      d1 = XREG((*_PREG)->y_u.xxn.xi);

#define P_ARG_CV_ARG_ARG2_VC_NVAR \
      BLOCK = (CELL)P_ARG_CV_ARG_ARG2_VC_NVAR; \
      FAILED = 0; \
      if (IsApplTerm(d1)) { \
	pt0 = RepAppl(d1); \
	d1 = *pt0; \
	if (IsExtensionFunctor((Functor) d1)) { \
	  YAAM_FAIL; \
	} \
	else if ((Int)d0 <= 0 || \
	    (Int)d0 > ArityOfFunctor((Functor) d1)) { \
	  YAAM_FAIL; \
	} \
	else { \
	  XREG((*_PREG)->y_u.xxn.x) = pt0[d0]; \
	  (*_PREG) = NEXTOP((*_PREG), xxn); \
	  GONext(); \
	} \
      } \
      else if (IsPairTerm(d1)) { \
	pt0 = RepPair(d1); \
	if (d0 != 1 && d0 != 2) { \
	  if ((Int)d0 < 0) { \
	    saveregs(); \
	    Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, \
		  MkIntegerTerm(d0),"arg 1 of arg/3"); \
	    setregs(); \
	  } \
	  YAAM_FAIL; \
	} \
	else { \
	  XREG((*_PREG)->y_u.xxn.x) = pt0[d0-1]; \
	  (*_PREG) = NEXTOP((*_PREG), xxn); \
	  GONext(); \
	} \
      } \
      else { \
	YAAM_FAIL; \
      }

#define P_ARG_CV_ARG_ARG2_VC_UNK \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1,"arg 2 of arg/3"); \
      setregs(); \
      FAIL();

#define P_ARG_Y_VV_INSTINIT \
      BLOCKADDRESS = (CELL)(*_PREG); \

#ifdef LOW_LEVEL_TRACER
#define P_ARG_Y_VV_LOW_LEVEL_TRACER \
	HR[0] = XREG((*_PREG)->y_u.yxx.x1); \
	HR[1] = XREG((*_PREG)->y_u.yxx.x2); \
	HR[2] = YREG[(*_PREG)->y_u.yxx.y]; \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorArg,0)),HR);
#endif

#define P_ARG_Y_VV_TEST_D0 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_ARG_Y_VV_ARG_Y_ARG1_NVAR \
    FAILED = 0; \
      if (IsIntTerm(d0)) { \
	d0 = IntOfTerm(d0); \
      } else if (IsLongIntTerm(d0)) { \
	d0 = LongIntOfTerm(d0); \
      } else { \
	saveregs(); \
	Yap_Error(TYPE_ERROR_INTEGER,d0,"arg 1 of arg/3"); \
	setregs(); \
	YAAM_FAIL; \
      }

#define P_ARG_Y_VV_TEST_D1 \
    if (!FAILED) { \
      d1 = XREG((*_PREG)->y_u.yxx.x2);

#define P_ARG_Y_VV_ARG_Y_ARG2_NVAR \
      BLOCK = (CELL)P_ARG_Y_VV_ARG_Y_ARG2_NVAR; \
      if (IsApplTerm(d1)) { \
	pt0 = RepAppl(d1); \
	d1 = *pt0; \
	if (IsExtensionFunctor((Functor) d1)) { \
	  YAAM_FAIL; \
	} \
	else if ((Int)d0 <= 0 || \
	    (Int)d0 > ArityOfFunctor((Functor) d1)) { \
	  YAAM_FAIL; \
	} \
	else { \
	  pt1 = YREG + (*_PREG)->y_u.yxx.y; \
	  (*_PREG) = NEXTOP((*_PREG), yxx); \
	  INITIALIZE_PERMVAR(pt1,pt0[d0]); \
	  GONext(); \
    } \
      } \
      else if (IsPairTerm(d1)) { \
	pt0 = RepPair(d1); \
	if (d0 != 1 && d0 != 2) { \
	  if ((Int)d0 < 0) { \
	    saveregs(); \
	    Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, \
		  MkIntegerTerm(d0),"arg 1 of arg/3"); \
	    setregs(); \
	  } \
	  YAAM_FAIL; \
	} \
	else { \
	  pt1 = YREG + (*_PREG)->y_u.yxx.y; \
	  (*_PREG) = NEXTOP((*_PREG), yxx); \
	  INITIALIZE_PERMVAR(pt1,pt0[d0-1]); \
	  GONext(); \
    } \
      } \
      else { \
	YAAM_FAIL; \
      } \
  }

#define P_ARG_Y_VV_ARG_Y_ARG2_UNK \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1,"arg 2 of arg/3"); \
      setregs(); \
      FAIL();

#define P_ARG_Y_VV_ARG_Y_ARG1_UNK \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "arg 1 of arg/3"); \
      setregs(); \
      FAIL();

#define P_ARG_Y_CV_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_ARG_Y_CV_LOW_LEVEL_TRACER \
	CELL *Ho = HR; \
	Term t = MkIntegerTerm((*_PREG)->y_u.yxn.c); \
	HR[0] =  t; \
	HR[1] = XREG((*_PREG)->y_u.yxn.xi); \
	HR[2] = YREG[(*_PREG)->y_u.yxn.y]; \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorArg,0)),HR); \
	HR = Ho;
#endif

#define P_ARG_Y_CV_TEST_D1 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = (*_PREG)->y_u.yxn.c; \
      d1 = XREG((*_PREG)->y_u.yxn.xi);

#define P_ARG_Y_CV_D1APPL_INIT \
	pt0 = RepAppl(d1); \
	d1 = *pt0;

#define P_ARG_Y_CV_D1APPL_END \
	pt1 = YREG + (*_PREG)->y_u.yxn.y; \
	(*_PREG) = NEXTOP((*_PREG), yxn); \
	INITIALIZE_PERMVAR(pt1,pt0[d0]); \
	GONext();

#define P_ARG_Y_CV_D1PAIR_INIT \
	pt0 = RepPair(d1);

#define P_ARG_Y_CV_D1PAIR_LESS0 \
	    saveregs(); \
	    Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO, \
		  MkIntegerTerm(d0),"arg 1 of arg/3"); \
	    setregs();

#define P_ARG_Y_CV_D1PAIR_END \
	pt1 = YREG + (*_PREG)->y_u.yxn.y; \
	(*_PREG) = NEXTOP((*_PREG), yxn); \
	INITIALIZE_PERMVAR(pt1,pt0[d0-1]); \
	GONext();

#define P_ARG_Y_CV_ARG_Y_ARG2_VC_UNK \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1,"arg 2 of arg/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_VV_INSTINIT
	  
#ifdef LOW_LEVEL_TRACER
#define P_FUNC2S_VV_LOW_LEVEL_TRACER \
	RESET_VARIABLE(HR); \
	HR[1] = XREG((*_PREG)->y_u.xxx.x1); \
	HR[2] = XREG((*_PREG)->y_u.xxx.x2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2S_TEST_D0 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = XREG((*_PREG)->y_u.xxx.x1);

#define P_FUNC2S_VV_TEST_D1 \
      d1 = XREG((*_PREG)->y_u.xxx.x2);

#define P_FUNC2S_VV_D1INT \
	d1 = IntegerOfTerm(d1);
	
#define P_FUNC2S_VV_D1NOTINT \
	saveregs();

#define P_FUNC2S_VV_D1BIGINT \
	  Yap_Error(RESOURCE_ERROR_STACK, d1, "functor/3");

#define P_FUNC2S_VV_D1NOTBIGINT \
	  Yap_Error(TYPE_ERROR_INTEGER, d1, "functor/3");

#define P_FUNC2S_VV_D1NOTINT_END \
	setregs(); \
	FAIL();

#define P_FUNC2S_VV_D0NOTATOMIC \
	saveregs(); \
	Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_VV_FIRSTIFOK \
	RESET_VARIABLE(HR); \
	RESET_VARIABLE(HR+1); \
	d0 = AbsPair(HR); \
	HR += 2; \
	XREG((*_PREG)->y_u.xxx.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxx),Osbpp),l); \
	GONext();

#define P_FUNC2S_VV_SECONDIFOK_D0NOTATOM \
	  saveregs(); \
	  Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	  setregs(); \
	  FAIL();

#define P_FUNC2S_VV_SECONDIFOK_D0ATOM \
	  d0 = (CELL) Yap_MkFunctor(AtomOfTerm(d0), (Int) d1);

#define P_FUNC2S_VV_SECONDIFOK_POST_D0ATOM \
	pt1 = HR; \
	*pt1++ = d0; \
	d0 = AbsAppl(HR);

#define P_FUNC2S_VV_SECONDIFOK_FIRSTIFOK_INIT \
	  saveregs();

#define P_FUNC2S_VV_SECONDIFOK_FIRSTIFOK_IFOK \
	    Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
	    setregs(); \
	    JMPNext();

#define P_FUNC2S_VV_SECONDIFOK_FIRSTIFOK_NOIF \
	    setregs();

#define P_FUNC2S_VV_SECONDIFOK_INSIDEWHILE \
	  RESET_VARIABLE(pt1); \
	  pt1++;

#define P_FUNC2S_VV_SECONDIFOK_END \
	HR = pt1; \
	XREG((*_PREG)->y_u.xxx.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxx),Osbpp),l); \
	GONext();

#define P_FUNC2S_VV_THIRDIFOK \
	XREG((*_PREG)->y_u.xxx.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxx),Osbpp),l); \
	GONext();

#define P_FUNC2S_VV_ELSE \
	saveregs(); \
	Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,MkIntegerTerm(d1),"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_VV_FUNC2S_UNK2 \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_VV_FUNC2S_UNK \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_CV_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2S_CV_LOW_LEVEL_TRACER \
	RESET_VARIABLE(HR); \
	HR[1] = (*_PREG)->y_u.xxc.c; \
	HR[2] = XREG((*_PREG)->y_u.xxc.xi); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2S_CV_TEST_D1 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = (*_PREG)->y_u.xxc.c; \
      d1 = XREG((*_PREG)->y_u.xxc.xi);

#define P_FUNC2S_CV_D1INT \
	d1 = IntegerOfTerm(d1);
	
#define P_FUNC2S_CV_D1NOTINT \
	saveregs();

#define P_FUNC2S_CV_D1NOINT_D1BIGINT \
	  Yap_Error(RESOURCE_ERROR_STACK, d1, "functor/3");

#define P_FUNC2S_CV_D1NOTBIGINT \
	  Yap_Error(TYPE_ERROR_INTEGER,d1,"functor/3");

#define P_FUNC2S_CV_POST_IF \
	setregs(); \
	FAIL();

#define P_FUNC2S_CV_FIRSTIFOK \
	RESET_VARIABLE(HR); \
	RESET_VARIABLE(HR+1); \
	d0 = AbsPair(HR); \
	HR += 2; \
	XREG((*_PREG)->y_u.xxc.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxc),Osbpp),l); \
	GONext();

#define P_FUNC2S_CV_D1GREATER_D0NOTATOM \
	  saveregs(); \
	  Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	  setregs(); \
	  FAIL();

#define P_FUNC2S_CV_D1GREATER_D0ATOM \
	  d0 = (CELL) Yap_MkFunctor(AtomOfTerm(d0), (Int) d1);

#define P_FUNC2S_CV_D1GREATER_POST_IF \
	pt1 = HR; \
	*pt1++ = d0; \
	d0 = AbsAppl(HR);

#define P_FUNC2S_CV_D1GREATER_IFOK_INIT \
	  saveregs();

#define P_FUNC2S_CV_D1GREATER_IFOK_IFOK \
	    Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
	    setregs(); \
	    JMPNext();

#define P_FUNC2S_CV_D1GREATER_IFOK_NOIF \
	    setregs();

#define P_FUNC2S_CV_D1GREATER_INSIDEWHILE \
	  RESET_VARIABLE(pt1); \
	  pt1++;

#define P_FUNC2S_CV_D1GREATER_END \
	HR = pt1; \
	XREG((*_PREG)->y_u.xxc.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxc),Osbpp),l); \
	GONext();

#define P_FUNC2S_CV_D1ISZERO \
	XREG((*_PREG)->y_u.xxc.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxc),Osbpp),l); \
	GONext();

#define P_FUNC2S_CV_ELSE \
	saveregs(); \
	Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,MkIntegerTerm(d1),"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_CV_END \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_VC_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2S_VC_LOW_LEVEL_TRACER \
	Term ti; \
	CELL *hi = HR; \
	ti = MkIntegerTerm((*_PREG)->y_u.xxn.c); \
	RESET_VARIABLE(HR); \
	HR[1] = XREG((*_PREG)->y_u.xxn.xi); \
	HR[2] = ti; \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR); \
	HR = hi;
#endif

#define P_FUNC2S_VC_TEST_D0 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = XREG((*_PREG)->y_u.xxn.xi);

#define P_FUNC2S_VC_FUNC2S_NVAR_VC \
      d1 = (*_PREG)->y_u.xxn.c;

#define P_FUNC2S_VC_D0NOATOMIC \
	saveregs(); \
	Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_VC_EQUALS \
	RESET_VARIABLE(HR); \
	RESET_VARIABLE(HR+1); \
	d0 = AbsPair(HR); \
	HR += 2; \
	XREG((*_PREG)->y_u.xxn.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxn),Osbpp),l); \
	GONext();

#define P_FUNC2S_VC_D1ISZERO \
	XREG((*_PREG)->y_u.xxn.x) = d0; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxn),Osbpp),l); \
	GONext();

#define P_FUNC2S_VC_D0NOATOM \
	saveregs(); \
	Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_VC_D0ATOM \
	d0 = (CELL) Yap_MkFunctor(AtomOfTerm(d0), (Int) d1);

#define P_FUNC2S_VC_POST_ELSE \
      pt1 = HR; \
      *pt1++ = d0; \
      d0 = AbsAppl(HR);

#define P_FUNC2S_VC_IFOK_INIT \
	saveregs();

#define P_FUNC2S_VC_IFOK_IFOK \
	  Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
	  setregs(); \
	  JMPNext();

#define P_FUNC2S_VC_IFOK_NOIF \
	  setregs();

#define P_FUNC2S_VC_INSIDEWHILE \
	RESET_VARIABLE(pt1); \
	pt1++;

#define P_FUNC2S_VC_END1 \
      HR = pt1; \
      XREG((*_PREG)->y_u.xxn.x) = d0; \
      (*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), xxn),Osbpp),l); \
      GONext();

#define P_FUNC2S_VC_END2 \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_Y_VV_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2S_Y_VV_LOW_LEVEL_TRACER \
	RESET_VARIABLE(HR); \
	HR[1] = XREG((*_PREG)->y_u.yxx.x1); \
	HR[2] = XREG((*_PREG)->y_u.yxx.x2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2S_Y_VV_TEST_D0 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = XREG((*_PREG)->y_u.yxx.x1);

#define P_FUNC2S_Y_VV_TEST_D1 \
      d1 = XREG((*_PREG)->y_u.yxx.x2);

#define P_FUNC2S_Y_VV_D1INT \
	d1 = IntegerOfTerm(d1);

#define P_FUNC2S_Y_VV_D1NOTINT \
	saveregs();

#define P_FUNC2S_Y_VV_D1BIGINT \
	  Yap_Error(RESOURCE_ERROR_STACK, d1, "functor/3");

#define P_FUNC2S_Y_VV_D1NOTBIGINT \
	  Yap_Error(TYPE_ERROR_INTEGER,d1,"functor/3");

#define P_FUNC2S_Y_VV_POST_IF \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_VV_D0NOATOMIC \
	saveregs(); \
	Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_VV_EQUALS \
	RESET_VARIABLE(HR); \
	RESET_VARIABLE(HR+1); \
	d0 = AbsPair(HR); \
	HR += 2; \
	pt1 = YREG + (*_PREG)->y_u.yxx.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxx),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_VV_D1GREATER_D0NOATOM \
	  saveregs(); \
	  Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	  setregs(); \
	  FAIL();

#define P_FUNC2S_Y_VV_D1GREATER_D0ATOM \
	  d0 = (CELL) Yap_MkFunctor(AtomOfTerm(d0), (Int) d1);

#define P_FUNC2S_Y_VV_D1GREATER_POST_ELSE \
	pt1 = HR; \
	*pt1++ = d0; \
	d0 = AbsAppl(HR);

#define P_FUNC2S_Y_VV_D1GREATER_IFOK_INIT \
	  saveregs();

#define P_FUNC2S_Y_VV_D1GREATER_IFOK_IFOK \
	    Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
	    setregs(); \
	    JMPNext();

#define P_FUNC2S_Y_VV_D1GREATER_IFOK_NOIF \
	    setregs();

#define P_FUNC2S_Y_VV_D1GREATER_INSIDEWHILE \
	  RESET_VARIABLE(pt1); \
	  pt1++;

#define P_FUNC2S_Y_VV_D1GREATER_END \
	HR = pt1; \
	pt1 = YREG + (*_PREG)->y_u.yxx.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxx),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_VV_D1ISZERO \
	pt1 = YREG + (*_PREG)->y_u.yxx.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxx),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_VV_ELSE \
	saveregs(); \
	Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,MkIntegerTerm(d1),"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_VV_END1 \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_Y_VV_END2 \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_Y_CV_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2S_Y_CV_LOW_LEVEL_TRACER \
	RESET_VARIABLE(HR); \
	HR[1] = (*_PREG)->y_u.yxn.c; \
	HR[2] = XREG((*_PREG)->y_u.yxn.xi); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2S_Y_CV_TEST_D1 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = (*_PREG)->y_u.yxn.c; \
      d1 = XREG((*_PREG)->y_u.yxn.xi);

#define P_FUNC2S_Y_CV_D1INT \
	d1 = IntegerOfTerm(d1);

#define P_FUNC2S_Y_CV_D1NOTINT \
	saveregs();

#define P_FUNC2S_Y_CV_D1BIGINT \
	  Yap_Error(RESOURCE_ERROR_STACK, d1, "functor/3");

#define P_FUNC2S_Y_CV_D1NOTBIGINT \
	  Yap_Error(TYPE_ERROR_INTEGER,d1,"functor/3");

#define P_FUNC2S_Y_CV_POST_IF \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_CV_EQUALS \
	RESET_VARIABLE(HR); \
	RESET_VARIABLE(HR+1); \
	d0 = AbsPair(HR); \
	HR += 2; \
	pt1 = YREG + (*_PREG)->y_u.yxn.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxn),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_CV_D1GREATER_D0NOATOM \
	  saveregs(); \
	  Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	  setregs(); \
	  FAIL();

#define P_FUNC2S_Y_CV_D1GREATER_D0ATOM \
	  d0 = (CELL) Yap_MkFunctor(AtomOfTerm(d0), (Int) d1);

#define P_FUNC2S_Y_CV_D1GREATER_POST_ELSE \
	pt1 = HR; \
	*pt1++ = d0; \
	d0 = AbsAppl(HR);

#define P_FUNC2S_Y_CV_D1GREATER_IFOK_INIT \
	  saveregs();

#define P_FUNC2S_Y_CV_D1GREATER_IFOK_IFOK \
	    Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
	    setregs(); \
	    JMPNext();

#define P_FUNC2S_Y_CV_D1GREATER_IFOK_NOIF \
	    setregs();

#define P_FUNC2S_Y_CV_D1GREATER_INSIDEWHILE \
	  RESET_VARIABLE(pt1); \
	  pt1++;

#define P_FUNC2S_Y_CV_D1GREATER_END \
	HR = pt1; \
	pt1 = YREG + (*_PREG)->y_u.yxn.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxn),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_CV_D1ISZERO \
	pt1 = YREG + (*_PREG)->y_u.yxn.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxn),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_CV_ELSE \
	saveregs(); \
	Yap_Error(DOMAIN_ERROR_NOT_LESS_THAN_ZERO,MkIntegerTerm(d1),"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_CV_END \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d1, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2S_Y_VC_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2S_Y_VC_LOW_LEVEL_TRACER \
	Term ti; \
	CELL *hi = HR; \
	ti = MkIntegerTerm((Int)((*_PREG)->y_u.yxn.c)); \
	RESET_VARIABLE(HR); \
	HR[1] = XREG((*_PREG)->y_u.yxn.xi); \
	HR[2] = ti; \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR); \
	HR = hi;
#endif

#define P_FUNC2S_Y_VC_TEST_D0 \
	  register CELL d0, d1; \
	  register CELL *pt0, *pt1; \
      d0 = XREG((*_PREG)->y_u.yxn.xi);

#define P_FUNC2S_Y_VC_FUNC2S_Y_NVAR_VC \
      d1 = (*_PREG)->y_u.yxn.c;
	  
#define P_FUNC2S_Y_VC_D0NOATOMIC \
	saveregs(); \
	Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_VC_EQUALS \
	RESET_VARIABLE(HR); \
	RESET_VARIABLE(HR+1); \
	d0 = AbsPair(HR); \
	HR += 2; \
	pt1 = YREG + (*_PREG)->y_u.yxn.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxn),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_VC_D1ISZERO \
	pt1 = YREG + (*_PREG)->y_u.yxn.y; \
	(*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxn),Osbpp),l); \
	INITIALIZE_PERMVAR(pt1,d0); \
	GONext();

#define P_FUNC2S_Y_VC_D0NOATOM1 \
	saveregs(); \
	Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_VC_D0NOATOM2 \
	saveregs(); \
	Yap_Error(TYPE_ERROR_ATOM,d0,"functor/3"); \
	setregs(); \
	FAIL();

#define P_FUNC2S_Y_VC_D0ATOM \
	d0 = (CELL) Yap_MkFunctor(AtomOfTerm(d0), (Int) d1);

#define P_FUNC2S_Y_VC_POST_ELSE \
      pt1 = HR; \
      *pt1++ = d0; \
      d0 = AbsAppl(HR);

#define P_FUNC2S_Y_VC_IFOK_INIT \
	saveregs();

#define P_FUNC2S_Y_VC_IFOK_IFOK \
	  Yap_NilError(OUT_OF_STACK_ERROR,LOCAL_ErrorMessage); \
	  setregs(); \
	  JMPNext();

#define P_FUNC2S_Y_VC_IFOK_NOIF \
	  setregs();

#define P_FUNC2S_Y_VC_INSIDEWHILE \
	RESET_VARIABLE(pt1); \
	pt1++;

#define P_FUNC2S_Y_VC_END1 \
      HR = pt1; \
      pt1 = YREG + (*_PREG)->y_u.yxn.y; \
      (*_PREG) = NEXTOP(NEXTOP(NEXTOP((*_PREG), yxn),Osbpp),l); \
      INITIALIZE_PERMVAR(pt1,d0); \
      GONext();

#define P_FUNC2S_Y_VC_END2 \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2F_XX_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2F_XX_LOW_LEVEL_TRACER \
	HR[0] = XREG((*_PREG)->y_u.xxx.x); \
	RESET_VARIABLE(HR+1); \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2F_XX_TEST_D0 \
	  register CELL d0; \
	  register CELL* pt1; \
      d0 = XREG((*_PREG)->y_u.xxx.x);

#define P_FUNC2F_XX_D0APPL \
	Functor d1 = FunctorOfTerm(d0);

#define P_FUNC2F_XX_D0APPL_D1EXTFUNC \
	  XREG((*_PREG)->y_u.xxx.x1) = d0; \
	  XREG((*_PREG)->y_u.xxx.x2) = MkIntTerm(0); \
	  (*_PREG) = NEXTOP((*_PREG), xxx); \
	  GONext();

#define P_FUNC2F_XX_D0APPL_END \
	XREG((*_PREG)->y_u.xxx.x1) = MkAtomTerm(NameOfFunctor(d1)); \
	XREG((*_PREG)->y_u.xxx.x2) = MkIntegerTerm(ArityOfFunctor(d1)); \
	(*_PREG) = NEXTOP((*_PREG), xxx); \
	GONext();


#define P_FUNC2F_XX_D0PAIR \
	XREG((*_PREG)->y_u.xxx.x1) = TermDot; \
	XREG((*_PREG)->y_u.xxx.x2) = MkIntTerm(2); \
	(*_PREG) = NEXTOP((*_PREG), xxx); \
	GONext();

#define P_FUNC2F_XX_D0NOCOMPOUND \
	XREG((*_PREG)->y_u.xxx.x1) = d0; \
	XREG((*_PREG)->y_u.xxx.x2) = MkIntTerm(0); \
	(*_PREG) = NEXTOP((*_PREG), xxx); \
	GONext();

#define P_FUNC2F_XX_END \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2F_XY_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2F_XY_LOW_LEVEL_TRACER \
	HR[0] = XREG((*_PREG)->y_u.xxy.x); \
	RESET_VARIABLE(HR+1); \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2F_XY_TEST_D0 \
	  register CELL d0; \
	  register CELL *pt1; \
      d0 = XREG((*_PREG)->y_u.xxy.x);

#define P_FUNC2F_XY_D0APPL \
	Functor d1 = FunctorOfTerm(d0); \
	CELL *pt0 = YREG+(*_PREG)->y_u.xxy.y2;

#define P_FUNC2F_XY_D0APPL_D1EXTFUNC \
	  XREG((*_PREG)->y_u.xxy.x1) = d0; \
	  (*_PREG) = NEXTOP((*_PREG), xxy); \
	  INITIALIZE_PERMVAR(pt0, MkIntTerm(0)); \
	  GONext();

#define P_FUNC2F_XY_D0APPL_END \
	XREG((*_PREG)->y_u.xxy.x1) = MkAtomTerm(NameOfFunctor(d1)); \
	(*_PREG) = NEXTOP((*_PREG), xxy); \
	INITIALIZE_PERMVAR(pt0, MkIntegerTerm(ArityOfFunctor(d1))); \
	GONext();

#define P_FUNC2F_XY_D0PAIR \
	CELL *pt0 = YREG+(*_PREG)->y_u.xxy.y2; \
	XREG((*_PREG)->y_u.xxy.x1) = TermDot; \
	(*_PREG) = NEXTOP((*_PREG), xxy); \
	INITIALIZE_PERMVAR(pt0, MkIntTerm(2)); \
	GONext();

#define P_FUNC2F_XY_D0NOCOMPOUND \
	CELL *pt0 = YREG+(*_PREG)->y_u.xxy.y2; \
	XREG((*_PREG)->y_u.xxy.x1) = d0; \
	(*_PREG) = NEXTOP((*_PREG), xxy); \
	INITIALIZE_PERMVAR(pt0, MkIntTerm(0)); \
	GONext();

#define P_FUNC2F_XY_END \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2F_YX_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2F_YX_LOW_LEVEL_TRACER \
	HR[0] = XREG((*_PREG)->y_u.yxx.x2); \
	RESET_VARIABLE(HR+1); \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2F_YX_TEST_D0 \
	  register CELL d0; \
	  register CELL *pt1; \
      d0 = XREG((*_PREG)->y_u.yxx.x2);

#define P_FUNC2F_YX_D0APPL \
	Functor d1 = FunctorOfTerm(d0); \
	CELL *pt0 = YREG+(*_PREG)->y_u.yxx.y;

#define P_FUNC2F_YX_D0APPL_D1EXTFUNC \
	  XREG((*_PREG)->y_u.yxx.x1) = MkIntTerm(0); \
	  (*_PREG) = NEXTOP((*_PREG), yxx); \
	  INITIALIZE_PERMVAR(pt0, d0); \
	  GONext();

#define P_FUNC2F_YX_D0APPL_END \
	XREG((*_PREG)->y_u.yxx.x1) = MkIntegerTerm(ArityOfFunctor(d1)); \
	(*_PREG) = NEXTOP((*_PREG), yxx); \
	INITIALIZE_PERMVAR(pt0,  MkAtomTerm(NameOfFunctor(d1))); \
	GONext();

#define P_FUNC2F_YX_D0PAIR \
	CELL *pt0 = YREG+(*_PREG)->y_u.yxx.y; \
	XREG((*_PREG)->y_u.yxx.x1) = MkIntTerm(2); \
	(*_PREG) = NEXTOP((*_PREG), yxx); \
	INITIALIZE_PERMVAR(pt0 ,TermDot); \
	GONext();
	  
#define P_FUNC2F_YX_D0NOCOMPOUND \
	CELL *pt0 = YREG+(*_PREG)->y_u.yxx.y; \
	XREG((*_PREG)->y_u.yxx.x1) = MkIntTerm(0); \
	(*_PREG) = NEXTOP((*_PREG), yxx); \
	INITIALIZE_PERMVAR(pt0, d0); \
	GONext();

#define P_FUNC2F_YX_END \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#define P_FUNC2F_YY_INSTINIT

#ifdef LOW_LEVEL_TRACER
#define P_FUNC2F_YY_LOW_LEVEL_TRACER \
	HR[0] = XREG((*_PREG)->y_u.yyx.x); \
	RESET_VARIABLE(HR+1); \
	RESET_VARIABLE(HR+2); \
	low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorFunctor,0)),HR);
#endif

#define P_FUNC2F_YY_TEST_D0 \
	  register CELL d0; \
      d0 = XREG((*_PREG)->y_u.yyx.x);

#define P_FUNC2F_YY_D0APPL \
	Functor d1 = FunctorOfTerm(d0); \
	CELL *pt0 = YREG+(*_PREG)->y_u.yyx.y1; \
	CELL *pt1 = YREG+(*_PREG)->y_u.yyx.y2;

#define P_FUNC2F_YY_D0APPL_D1EXTFUNC \
	  (*_PREG) = NEXTOP((*_PREG), yyx); \
	  INITIALIZE_PERMVAR(pt0,  d0); \
	  INITIALIZE_PERMVAR(pt1, MkIntTerm(0)); \
	  GONext();

#define P_FUNC2F_YY_D0APPL_END \
	(*_PREG) = NEXTOP((*_PREG), yyx); \
	INITIALIZE_PERMVAR(pt0, MkAtomTerm(NameOfFunctor(d1))); \
	INITIALIZE_PERMVAR(pt1, MkIntegerTerm(ArityOfFunctor(d1))); \
	GONext();

#define P_FUNC2F_YY_D0PAIR \
	CELL *pt0 = YREG+(*_PREG)->y_u.yyx.y1; \
	CELL *pt1 = YREG+(*_PREG)->y_u.yyx.y2; \
	(*_PREG) = NEXTOP((*_PREG), yyx); \
	INITIALIZE_PERMVAR(pt0, TermDot); \
	INITIALIZE_PERMVAR(pt1, MkIntTerm(2)); \
	GONext();

#define P_FUNC2F_YY_D0NOCOMPOUND \
	CELL *pt0 = YREG+(*_PREG)->y_u.yyx.y1; \
	CELL *pt1 = YREG+(*_PREG)->y_u.yyx.y2; \
	(*_PREG) = NEXTOP((*_PREG), yyx); \
	INITIALIZE_PERMVAR(pt0, d0); \
	INITIALIZE_PERMVAR(pt1, MkIntTerm(0)); \
	GONext();

#define P_FUNC2F_YY_END \
      saveregs(); \
      Yap_Error(INSTANTIATION_ERROR, d0, "functor/3"); \
      setregs(); \
      FAIL();

#include "p_functor.i"