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

Lines Matching refs:OFI
103 #define OFI(object)		FIXNUM_VALUE(object)
555 	    RFI(real) = OFI(obj);
595 	    NRFI(num) = OFI(obj);
875 		    r##OP##_fi_fi(real, OFI(obj));			\
878 		    r##OP##_bi_fi(real, OFI(obj));			\
881 		    r##OP##_flonum(real, RFF(real), (double)OFI(obj));	\
884 		    r##OP##_fr_fi(real, OFI(obj));			\
887 		    r##OP##_br_fi(real, OFI(obj));			\
1034 			r##OP##_fi_fi(NREAL(num), OFI(obj));		\
1037 			r##OP##_bi_fi(NREAL(num), OFI(obj));		\
1041 				    (double)OFI(obj));			\
1044 			r##OP##_fr_fi(NREAL(num), OFI(obj));		\
1047 			r##OP##_br_fi(NREAL(num), OFI(obj));		\
1662 		    rmod_fi_fi(real, OFI(obj));
1677 		    rmod_bi_fi(real, OFI(obj));
1766 		    rrem_fi_fi(real, OFI(obj));
1781 		    rrem_bi_fi(real, OFI(obj));
1899 		    RFI(real) &= OFI(obj);
1903 		    mpi_seti(&iop, OFI(obj));
1960 		    RFI(real) ^= ~OFI(obj);
1964 		    mpi_seti(&iop, OFI(obj));
2025 		    RFI(real) |= OFI(obj);
2029 		    mpi_seti(&iop, OFI(obj));
2100 		    RFI(real) ^= OFI(obj);
2104 		    mpi_seti(&iop, OFI(obj));
2159 		    ndivide_fi_fi(num, OFI(obj), fun, flo);
2165 		    ndivide_flonum(num, NRFF(num), (double)OFI(obj), fun, flo);
2361 		    return (cmp_fi_fi(RFI(op1), OFI(op2)));
2363 		    return (cmp_bi_fi(RBI(op1), OFI(op2)));
2365 		    return (cmp_flonum(RFF(op1), (double)OFI(op2)));
2367 		    return (cmp_fr_fi(RFRD(op1), RFRN(op1), OFI(op2)));
2369 		    return (cmp_br_fi(RBR(op1), OFI(op2)));
2473 			return (cmp_fi_fi(NRFI(op1), OFI(op2)));
2475 			return (cmp_bi_fi(NRBI(op1), OFI(op2)));
2477 			return (cmp_flonum(NRFF(op1), (double)OFI(op2)));
2479 			return (cmp_fr_fi(NRFRD(op1), NRFRN(op1), OFI(op2)));
2481 			return (cmp_br_fi(NRBR(op1), OFI(op2)));
2596 			return (cmp_fi_fi(OFI(op1), OFI(op2)));
2598 			return (cmp_fi_fi(OFI(op1), OII(op2)));
2600 			return (cmp_fi_bi(OFI(op1), OBI(op2)));
2602 			return (cmp_flonum((double)OFI(op1), ODF(op2)));
2604 			return (cmp_fi_fr(OFI(op1),
2607 			return (cmp_fi_br(OFI(op1), OBR(op2)));
2615 			return (cmp_fi_fi(OII(op1), OFI(op2)));
2634 			return (cmp_bi_fi(OBI(op1), OFI(op2)));
2653 			return (cmp_flonum(ODF(op1), (double)OFI(op2)));
2674 			return (cmp_fr_fi(OFRN(op1), OFRD(op1), OFI(op2)));
2695 			return (cmp_br_fi(OBR(op1), OFI(op2)));
2996 	    mpi_seti(rem, OFI(div));
3025 		    mpi_seti(&test, OFI(div));
3071 		mpi_subi(rem, rem, OFI(div));
3084 		mpi_addi(rem, rem, OFI(div));
3336 	    dsign = OFI(div) < 0 ? -1 : OFI(div) > 0 ? 1 : 0;
3337 	    mpi_seti(quo, OFI(div));