Cross Reference: /xsrc/external/mit/xedit/dist/lisp/mathimp.c

Lines Matching refs:RFI
87 #define RFI(real)		(real)->data.fixnum
527 	    RFI(real) = RFI(val);
555 	    RFI(real) = OFI(obj);
559 	    RFI(real) = OII(obj);
666 	    if (RFI(real) > MOST_POSITIVE_FIXNUM ||
667 		RFI(real) < MOST_NEGATIVE_FIXNUM) {
670 		OII(obj) = RFI(real);
673 		obj = FIXNUM(RFI(real));
757 		    r##OP##_fi_fi(real, RFI(val));			\
763 		    r##OP##_flonum(real, (double)RFI(real), RFF(val));	\
776 		    r##OP##_bi_fi(real, RFI(val));			\
795 		    r##OP##_flonum(real, RFF(real), (double)RFI(val));	\
815 		    r##OP##_fr_fi(real, RFI(val));			\
836 		    r##OP##_br_fi(real, RFI(val));			\
932 		    r##OP##_flonum(real, (double)RFI(real), ODF(obj));	\
1255     if (RFI(real) < 0)
1324     if (RFI(real) == MINSLONG) {
1328 	mpi_seti(bigi, RFI(real));
1334 	RFI(real) = -RFI(real);
1431 	mpi_seti(&tmp, RFI(real));
1441 	    RFI(real) = mpi_geti(&bignum);
1451 	    value = (double)RFI(real);
1635 		    rmod_fi_fi(real, RFI(val));
1645 		    rmod_bi_fi(real, RFI(val));
1700     if ((RFI(real) < 0) ^ (fi < 0))
1701 	RFI(real) = (RFI(real) % fi) + fi;
1702     else if (RFI(real) == MINSLONG || fi == MINSLONG) {
1706 	mpi_seti(&bignum, RFI(real));
1707 	RFI(real) = mpi_modi(&bignum, fi);
1711 	RFI(real) = RFI(real) % fi;
1724     mpi_seti(bigi, RFI(real));
1804     if (RFI(real) == MINSLONG || fi == MINSLONG) {
1808 	mpi_seti(&bignum, RFI(real));
1809 	RFI(real) = mpi_remi(&bignum, fi);
1813 	RFI(real) = RFI(real) % fi;
1826     mpi_seti(bigi, RFI(real));
1899 		    RFI(real) &= OFI(obj);
1913 		    RFI(real) &= OII(obj);
1929 		    mpi_seti(bigi, RFI(real));
1960 		    RFI(real) ^= ~OFI(obj);
1975 		    RFI(real) ^= ~OII(obj);
1992 		    mpi_seti(bigi, RFI(real));
2025 		    RFI(real) |= OFI(obj);
2039 		    RFI(real) |= OII(obj);
2055 		    mpi_seti(bigi, RFI(real));
2081 	RFI(real) = ~RFI(real);
2100 		    RFI(real) ^= OFI(obj);
2114 		    RFI(real) ^= OII(obj);
2130 		    mpi_seti(bigi, RFI(real));
2280 		    return (cmp_fi_fi(RFI(op1), RFI(op2)));
2282 		    return (cmp_fi_bi(RFI(op1), RBI(op2)));
2284 		    return (cmp_flonum((double)RFI(op1), RFF(op2)));
2286 		    return (cmp_fi_fr(RFI(op1), RFRN(op2), RFRD(op2)));
2288 		    return (cmp_fi_br(RFI(op1), RBR(op2)));
2294 		    return (cmp_bi_fi(RBI(op1), RFI(op2)));
2308 		    return (cmp_flonum(RFF(op1), (double)RFI(op2)));
2323 		    return (cmp_fr_fi(RFRN(op1), RFRD(op1), RFI(op2)));
2339 		    return (cmp_br_fi(RBR(op1), RFI(op2)));
2361 		    return (cmp_fi_fi(RFI(op1), OFI(op2)));
2375 		    return (cmp_fi_fi(RFI(op1), OII(op2)));
2389 		    return (cmp_fi_bi(RFI(op1), OBI(op2)));
2403 		    return (cmp_flonum((double)RFI(op1), ODF(op2)));
2418 		    return (cmp_fi_fr(RFI(op1), OFRN(op2), OFRD(op2)));
2434 		    return (cmp_fi_br(RFI(op1), OBR(op2)));
2776 	RFI(real) = fi;
2808 	RFI(real) = 0;
2828 	RFI(real) = numerator;
2851 	    RFI(real) = 0;
2856 	    RFI(real) = numerator;
3947     mpi_seti(bigi, RFI(real));
3961     if (!fi_fi_add_overflow(RFI(real), fi))
3962 	RFI(real) += fi;
3970     if (!fi_fi_sub_overflow(RFI(real), fi))
3971 	RFI(real) -= fi;
3979     if (!fi_fi_mul_overflow(RFI(real), fi))
3980 	RFI(real) *= fi;
3989     RFRN(real) = RFI(real);
4015     mpi_seti(bigi, RFI(real));
4024 	RFI(real) = mpi_geti(bigi);
4062     mpi_seti(mpr_num(bigr), RFI(real));
4083     long value = 0, op = RFI(real);
4127     long op = RFI(real);
4206     mpi_seti(&iop, RFI(real));
4230     mpi_seti(&iop, RFI(real));
4306     if (RFI(real) == 0)