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

Lines Matching refs:RBI
88 #define RBI(real)		(real)->data.bignum
99 #define RCLEAR_BI(real)		mpi_clear(RBI(real)); XFREE(RBI(real))
530 	    RBI(real) = XALLOC(mpi);
531 	    mpi_init(RBI(real));
532 	    mpi_set(RBI(real), RBI(val));
563 	    RBI(real) = XALLOC(mpi);
564 	    mpi_init(RBI(real));
565 	    mpi_set(RBI(real), OBI(obj));
642 	mpi_clear(RBI(real));
643 	XFREE(RBI(real));
676 	    obj = BIGNUM(RBI(real));
760 		    r##OP##_fi_bi(real, RBI(val));			\
779 		    r##OP##_bi_bi(real, RBI(val));			\
782 		    r##OP##_flonum(real, bi_getd(RBI(real)), RFF(val));	\
798 		    r##OP##_flonum(real, RFF(real), bi_getd(RBI(val)));	\
818 		    r##OP##_fr_bi(real, RBI(val));			\
839 		    r##OP##_br_bi(real, RBI(val));			\
935 		    r##OP##_flonum(real, bi_getd(RBI(real)), ODF(obj));	\
1262     if (mpi_cmpi(RBI(real), 0) < 0)
1263 	mpi_neg(RBI(real), RBI(real));
1331 	RBI(real) = bigi;
1340     mpi_neg(RBI(real), RBI(real));
1426 	exact = mpi_sqrt(&bignum, RBI(real));
1437 	    mpi_set(RBI(real), &bignum);
1447 	    value = bi_getd(RBI(real));
1638 		    rmod_fi_bi(real, RBI(val));
1648 		    rmod_bi_bi(real, RBI(val));
1727     RBI(real) = bigi;
1741     mpi_mod(RBI(real), RBI(real), &iop);
1752     mpi_mod(RBI(real), RBI(real), bignum);
1829     RBI(real) = bigi;
1843     mpi_rem(RBI(real), RBI(real), &iop);
1854     mpi_rem(RBI(real), RBI(real), bignum);
1904 		    mpi_and(RBI(real), RBI(real), &iop);
1918 		    mpi_and(RBI(real), RBI(real), &iop);
1932 		    RBI(real) = bigi;
1936 		    mpi_and(RBI(real), RBI(real), OBI(obj));
1966 		    mpi_xor(RBI(real), RBI(real), &iop);
1981 		    mpi_xor(RBI(real), RBI(real), &iop);
1996 		    RBI(real) = bigi;
2000 		    mpi_com(RBI(real), RBI(real));
2001 		    mpi_xor(RBI(real), RBI(real), OBI(obj));
2030 		    mpi_ior(RBI(real), RBI(real), &iop);
2044 		    mpi_ior(RBI(real), RBI(real), &iop);
2058 		    RBI(real) = bigi;
2062 		    mpi_ior(RBI(real), RBI(real), OBI(obj));
2083 	mpi_com(RBI(real), RBI(real));
2105 		    mpi_xor(RBI(real), RBI(real), &iop);
2119 		    mpi_xor(RBI(real), RBI(real), &iop);
2133 		    RBI(real) = bigi;
2137 		    mpi_xor(RBI(real), RBI(real), OBI(obj));
2282 		    return (cmp_fi_bi(RFI(op1), RBI(op2)));
2294 		    return (cmp_bi_fi(RBI(op1), RFI(op2)));
2296 		    return (cmp_bi_bi(RBI(op1), RBI(op2)));
2298 		    return (cmp_flonum(bi_getd(RBI(op1)), RFF(op2)));
2300 		    return (cmp_bi_fr(RBI(op1), RFRN(op2), RFRD(op2)));
2302 		    return (cmp_bi_br(RBI(op1), RBR(op2)));
2310 		    return (cmp_flonum(RFF(op1), bi_getd(RBI(op2))));
2325 		    return (cmp_fr_bi(RFRN(op1), RFRD(op1), RBI(op2)));
2341 		    return (cmp_br_bi(RBR(op1), RBI(op2)));
2363 		    return (cmp_bi_fi(RBI(op1), OFI(op2)));
2377 		    return (cmp_bi_fi(RBI(op1), OII(op2)));
2391 		    return (cmp_bi_bi(RBI(op1), OBI(op2)));
2405 		    return (cmp_flonum(bi_getd(RBI(op1)), ODF(op2)));
2420 		    return (cmp_bi_fr(RBI(op1), OFRN(op2), OFRD(op2)));
2436 		    return (cmp_bi_br(RBI(op1), OBR(op2)));
2770     if (mpi_fiti(RBI(real))) {
2771 	long fi = mpi_geti(RBI(real));
2774 	mpi_clear(RBI(real));
2775 	XFREE(RBI(real));
2874 	    RBI(real) = bigi;
3954     RBI(real) = bigi;
4029 	RBI(real) = bigi;
4283     mpi_addi(RBI(real), RBI(real), fi);
4290     mpi_subi(RBI(real), RBI(real), fi);
4297     mpi_muli(RBI(real), RBI(real), fi);
4311     mpi_set(mpr_num(bigr), RBI(real));
4332     mpi_add(RBI(real), RBI(real), bignum);
4339     mpi_sub(RBI(real), RBI(real), bignum);
4346     mpi_mul(RBI(real), RBI(real), bignum);
4360     mpi_set(mpr_num(bigr), RBI(real));
4385     mpi_set(&iop, RBI(real));
4413 	mpi_mul(mpr_num(bigr), RBI(real), mpr_num(bigr));
4415 	mpi_mul(mpr_den(bigr), RBI(real), mpr_den(bigr));
4480     mpi_set(&iop, RBI(real));
4509     mpi_mul(mpr_num(bigr), RBI(real), mpr_num(bigr));