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

Lines Matching refs:RFRN
90 #define RFRN(real)		(real)->data.fixratio.num
538 	    RFRN(real) = RFRN(val);
573 	    RFRN(real) = OFRN(obj);
684 	    OFRN(obj) = RFRN(real);
766 		    r##OP##_fi_fr(real, RFRN(val), RFRD(val));		\
785 		    r##OP##_bi_fr(real, RFRN(val), RFRD(val));		\
805 				 (double)RFRN(val) / (double)RFRD(val));\
822 				(double)RFRN(real) / (double)RFRD(real),\
826 		    r##OP##_fr_fr(real, RFRN(val), RFRD(val));		\
845 		    r##OP##_br_fr(real, RFRN(val), RFRD(val));		\
942 				(double)RFRN(real) / (double)RFRD(real),\
1276     if (RFRN(real) < 0)
1352     if (RFRN(real) == MINSLONG) {
1356 	mpr_seti(bigr, RFRN(real), RFRD(real));
1362 	RFRN(real) = -RFRN(real);
1470 	num.data.fixnum = RFRN(real);
2286 		    return (cmp_fi_fr(RFI(op1), RFRN(op2), RFRD(op2)));
2300 		    return (cmp_bi_fr(RBI(op1), RFRN(op2), RFRD(op2)));
2315 				       (double)RFRN(op2) / (double)RFRD(op2)));
2323 		    return (cmp_fr_fi(RFRN(op1), RFRD(op1), RFI(op2)));
2325 		    return (cmp_fr_bi(RFRN(op1), RFRD(op1), RBI(op2)));
2327 		    return (cmp_flonum((double)RFRN(op1) / (double)RFRD(op1),
2330 		    return (cmp_fr_fr(RFRN(op1), RFRD(op1),
2331 				      RFRN(op2), RFRD(op2)));
2333 		    return (cmp_fr_br(RFRN(op1), RFRD(op1), RBR(op2)));
2345 		    return (cmp_br_fr(RBR(op1), RFRN(op2), RFRD(op2)));
2367 		    return (cmp_fr_fi(RFRD(op1), RFRN(op1), OFI(op2)));
2381 		    return (cmp_fr_fi(RFRD(op1), RFRN(op1), OII(op2)));
2395 		    return (cmp_fr_bi(RFRD(op1), RFRN(op1), OBI(op2)));
2409 		    return (cmp_flonum((double)RFRN(op1) / (double)RFRD(op1),
2425 		    return (cmp_fr_fr(RFRN(op1), RFRD(op1),
2440 		    return (cmp_fr_br(RFRN(op1), RFRD(op1), OBR(op2)));
2789     num = numerator = RFRN(real);
2831 	RFRN(real) = numerator;
2860 	    RFRN(real) = numerator;
3989     RFRN(real) = RFI(real);
4095 	    RFRN(real) = value + num;
4097 	    RFRN(real) = value - num;
4135 	    RFRN(real) = op * num;
4139 	    RFRN(real) = op * den;
4565     long value = 0, num = RFRN(real), den = RFRD(real);
4578 	    RFRN(real) = num + value;
4580 	    RFRN(real) = num - value;
4606     long num = RFRN(real), den = RFRD(real);
4610 	    RFRN(real) = op * num;
4677     mpr_seti(bigr, RFRN(real), RFRD(real));
4700     mpr_seti(bigr, RFRN(real), RFRD(real));
4764     long num1 = RFRN(real), den1 = RFRD(real), num = 0, den = 0;
4786 	RFRN(real) = num;
4816     long num1 = RFRN(real), den1 = RFRD(real), num = 0, den = 0;
4834 	RFRN(real) = num;
4901     mpr_seti(bigr, RFRN(real), RFRD(real));