105 #define OBI(object)		(object)->data.mp.integer  macro
565 	    mpi_set(RBI(real), OBI(obj));  in set_real_object()
607 	    mpi_set(NRBI(num), OBI(obj));  in set_number_object()
913 		    r##OP##_fi_bi(real, OBI(obj));			\  in DEFOP_REAL_REAL()
916 		    r##OP##_bi_bi(real, OBI(obj));			\  in DEFOP_REAL_REAL()
919 		    r##OP##_flonum(real, RFF(real), bi_getd(OBI(obj)));	\  in DEFOP_REAL_REAL()
922 		    r##OP##_fr_bi(real, OBI(obj));			\  in DEFOP_REAL_REAL()
925 		    r##OP##_br_bi(real, OBI(obj));			\  in DEFOP_REAL_REAL()
1074 			r##OP##_fi_bi(NREAL(num), OBI(obj));		\
1077 			r##OP##_bi_bi(NREAL(num), OBI(obj));		\
1081 				       bi_getd(OBI(obj)));		\
1084 			r##OP##_fr_bi(NREAL(num), OBI(obj));		\
1087 			r##OP##_br_bi(NREAL(num), OBI(obj));		\
1668 		    rmod_fi_bi(real, OBI(obj));  in mod_real_object()
1683 		    rmod_bi_bi(real, OBI(obj));  in mod_real_object()
1772 		    rrem_fi_bi(real, OBI(obj));  in rem_real_object()
1787 		    rrem_bi_bi(real, OBI(obj));  in rem_real_object()
1930 		    mpi_and(bigi, bigi, OBI(obj));  in and_real_object()
1936 		    mpi_and(RBI(real), RBI(real), OBI(obj));  in and_real_object()
1994 		    mpi_xor(bigi, bigi, OBI(obj));  in eqv_real_object()
2001 		    mpi_xor(RBI(real), RBI(real), OBI(obj));  in eqv_real_object()
2056 		    mpi_ior(bigi, bigi, OBI(obj));  in ior_real_object()
2062 		    mpi_ior(RBI(real), RBI(real), OBI(obj));  in ior_real_object()
2131 		    mpi_xor(bigi, bigi, OBI(obj));  in xor_real_object()
2137 		    mpi_xor(RBI(real), RBI(real), OBI(obj));  in xor_real_object()
2197 		    ndivide_flonum(num, NRFF(num), bi_getd(OBI(obj)),  in divide_number_object()
2389 		    return (cmp_fi_bi(RFI(op1), OBI(op2)));  in cmp_real_object()
2391 		    return (cmp_bi_bi(RBI(op1), OBI(op2)));  in cmp_real_object()
2393 		    return (cmp_flonum(RFF(op1), bi_getd(OBI(op2))));  in cmp_real_object()
2395 		    return (cmp_fr_bi(RFRD(op1), RFRN(op1), OBI(op2)));  in cmp_real_object()
2397 		    return (cmp_br_bi(RBR(op1), OBI(op2)));  in cmp_real_object()
2501 			return (cmp_fi_bi(NRFI(op1), OBI(op2)));
2503 			return (cmp_bi_bi(NRBI(op1), OBI(op2)));
2505 			return (cmp_flonum(NRFF(op1), bi_getd(OBI(op2))));
2507 			return (cmp_fr_bi(NRFRD(op1), NRFRN(op1), OBI(op2)));
2509 			return (cmp_br_bi(NRBR(op1), OBI(op2)));
2600 			return (cmp_fi_bi(OFI(op1), OBI(op2)));  in cmp_object_object()
2619 			return (cmp_fi_bi(OII(op1), OBI(op2)));  in cmp_object_object()
2634 			return (cmp_bi_fi(OBI(op1), OFI(op2)));  in cmp_object_object()
2636 			return (cmp_bi_fi(OBI(op1), OII(op2)));  in cmp_object_object()
2638 			return (cmp_bi_bi(OBI(op1), OBI(op2)));  in cmp_object_object()
2640 			return (cmp_flonum(bi_getd(OBI(op1)), ODF(op2)));  in cmp_object_object()
2642 			return (cmp_bi_fr(OBI(op1),  in cmp_object_object()
2645 			return (cmp_bi_br(OBI(op1), OBR(op2)));  in cmp_object_object()
2657 			return (cmp_flonum(ODF(op1), bi_getd(OBI(op2))));  in cmp_object_object()
2678 			return (cmp_fr_bi(OFRN(op1), OFRD(op1), OBI(op2)));  in cmp_object_object()
2699 			return (cmp_br_bi(OBR(op1), OBI(op2)));  in cmp_object_object()
3002 	    mpi_set(rem, OBI(div));  in ndivide_xi_xi()
3031 		    mpi_set(&test, OBI(div));  in ndivide_xi_xi()
3077 		mpi_sub(rem, rem, OBI(div));  in ndivide_xi_xi()
3090 		mpi_add(rem, rem, OBI(div));  in ndivide_xi_xi()
3344 	    dsign = mpi_sgn(OBI(div));  in ndivide_xr_xi()
3345 	    mpi_set(quo, OBI(div));  in ndivide_xr_xi()