This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/JIT/HPP/p_eq.i
Vitor Santos Costa ce84e60d08 cosmetic
2015-01-18 01:32:13 +00:00

262 lines
6.8 KiB
OpenEdge ABL

#define P_EQ_INSTINIT \
BLOCKADDRESS = (CELL)(*_PREG); \
#ifdef LOW_LEVEL_TRACER
#define P_EQ_LOW_LEVEL_TRACER \
low_level_trace(enter_pred,RepPredProp(Yap_GetPredPropByFunc(FunctorSame,0)),XREGS+1);
#endif
#define P_EQ_POST_LOW_LEVEL_TRACER \
register CELL d0, d1, d2; \
register CELL *pt0, *pt1; \
d0 = ARG1;
#define P_EQ_P_EQ_NVAR1 \
d1 = ARG2;
#ifdef USE_GMP
#define P_EQ_P_EQ_NVAR1_NVAR2 \
BLOCK = (CELL)P_EQ_P_EQ_NVAR1_NVAR2; \
FAILED = 0; \
if (d0 == d1) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
else { \
if (IsPairTerm(d0)) { \
if (!IsPairTerm(d1)) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_save_pc(); \
d2 = iequ_complex(RepPair(d0)-1, RepPair(d0)+1,RepPair(d1)-1); \
if (d2 == FALSE) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_set_pc(); \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
} \
} \
else if (IsApplTerm(d0)) { \
Functor f0 = FunctorOfTerm(d0); \
Functor f1; \
if (!IsApplTerm(d1)) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
f1 = FunctorOfTerm(d1); \
if (IsExtensionFunctor(f0)) { \
switch ((CELL)f0) { \
case (CELL)FunctorDBRef: \
if (d0 == d1) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
else { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
break; \
case (CELL)FunctorLongInt: \
if (f1 != FunctorLongInt) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else if (LongIntOfTerm(d0) == LongIntOfTerm(d1)) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
else { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
break; \
case (CELL)FunctorBigInt: \
if (f1 != FunctorBigInt) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else if (Yap_gmp_tcmp_big_big(d0,d1) == 0) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
else { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
break; \
case (CELL)FunctorDouble: \
if (f1 != FunctorDouble) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else if (FloatOfTerm(d0) == FloatOfTerm(d1)) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
break; \
default: \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
} \
else { \
if (f0 != f1) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_save_pc(); \
d2 = iequ_complex(RepAppl(d0), RepAppl(d0)+ArityOfFunctor(f0), RepAppl(d1)); \
if (d2 == FALSE) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_set_pc(); \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
} \
} \
} \
} \
else { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
}
#else /* USE_GMP */
#define P_EQ_P_EQ_NVAR1_NVAR2 \
BLOCK = (CELL)P_EQ_P_EQ_NVAR1_NVAR2; \
FAILED = 0; \
if (d0 == d1) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
else { \
if (IsPairTerm(d0)) { \
if (!IsPairTerm(d1)) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_save_pc(); \
d2 = iequ_complex(RepPair(d0)-1, RepPair(d0)+1,RepPair(d1)-1); \
if (d2 == FALSE) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_set_pc(); \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
} \
} \
else if (IsApplTerm(d0)) { \
Functor f0 = FunctorOfTerm(d0); \
Functor f1; \
if (!IsApplTerm(d1)) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
f1 = FunctorOfTerm(d1); \
if (IsExtensionFunctor(f0)) { \
switch ((CELL)f0) { \
case (CELL)FunctorDBRef: \
if (d0 == d1) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
else { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
break; \
case (CELL)FunctorLongInt: \
if (f1 != FunctorLongInt) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else if (LongIntOfTerm(d0) == LongIntOfTerm(d1)) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
else { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
break; \
case (CELL)FunctorDouble: \
if (f1 != FunctorDouble) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else if (FloatOfTerm(d0) == FloatOfTerm(d1)) { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
break; \
default: \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
} \
else { \
if (f0 != f1) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_save_pc(); \
d2 = iequ_complex(RepAppl(d0), RepAppl(d0)+ArityOfFunctor(f0), RepAppl(d1)); \
if (d2 == FALSE) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
always_set_pc(); \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
} \
} \
} \
} \
} \
else { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
}
#endif /* USE_GMP */
#define P_EQ_P_EQ_NVAR1_UNK2 \
(*_PREG) = (*_PREG)->u.l.l; \
GONext();
#define P_EQ_P_EQ_UNK1 \
d1 = ARG2;
#define P_EQ_P_EQ_VAR1_NVAR2 \
(*_PREG) = (*_PREG)->u.l.l; \
GONext();
#define P_EQ_P_EQ_VAR1_UNK2_END \
BLOCK = (CELL)P_EQ_P_EQ_VAR1_UNK2_END; \
if (pt1 != pt0) { \
(*_PREG) = (*_PREG)->u.l.l; \
GONext(); \
} \
else { \
(*_PREG) = NEXTOP((*_PREG), l); \
GONext(); \
}