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

Lines Matching refs:NREAL
59 #define NREAL(num)		&((num)->real)
629 	    set_real_object(NREAL(num), OCXR(obj));
654     clear_real(NREAL(num));
710 	OCXR(obj) = make_real_object(NREAL(num));
1034 			r##OP##_fi_fi(NREAL(num), OFI(obj));		\
1037 			r##OP##_bi_fi(NREAL(num), OFI(obj));		\
1040 			r##OP##_flonum(NREAL(num), NRFF(num),		\
1044 			r##OP##_fr_fi(NREAL(num), OFI(obj));		\
1047 			r##OP##_br_fi(NREAL(num), OFI(obj));		\
1054 			r##OP##_fi_fi(NREAL(num), OII(obj));		\
1057 			r##OP##_bi_fi(NREAL(num), OII(obj));		\
1060 			r##OP##_flonum(NREAL(num), NRFF(num),		\
1064 			r##OP##_fr_fi(NREAL(num), OII(obj));		\
1067 			r##OP##_br_fi(NREAL(num), OII(obj));		\
1074 			r##OP##_fi_bi(NREAL(num), OBI(obj));		\
1077 			r##OP##_bi_bi(NREAL(num), OBI(obj));		\
1080 			r##OP##_flonum(NREAL(num), NRFF(num),		\
1084 			r##OP##_fr_bi(NREAL(num), OBI(obj));		\
1087 			r##OP##_br_bi(NREAL(num), OBI(obj));		\
1094 			r##OP##_flonum(NREAL(num), (double)NRFI(num),	\
1098 			r##OP##_flonum(NREAL(num), bi_getd(NRBI(num)),	\
1102 			r##OP##_flonum(NREAL(num), NRFF(num), ODF(obj));\
1105 			r##OP##_flonum(NREAL(num),			\
1111 			r##OP##_flonum(NREAL(num), br_getd(NRBR(num)),	\
1119 			r##OP##_fi_fr(NREAL(num), OFRN(obj), OFRD(obj));\
1122 			r##OP##_bi_fr(NREAL(num), OFRN(obj), OFRD(obj));\
1125 			r##OP##_flonum(NREAL(num), NRFF(num),		\
1130 			r##OP##_fr_fr(NREAL(num), OFRN(obj), OFRD(obj));\
1133 			r##OP##_br_fr(NREAL(num), OFRN(obj), OFRD(obj));\
1140 			r##OP##_fi_br(NREAL(num), OBR(obj));		\
1143 			r##OP##_bi_br(NREAL(num), OBR(obj));		\
1146 			r##OP##_flonum(NREAL(num), NRFF(num),		\
1150 			r##OP##_fr_br(NREAL(num), OBR(obj));		\
1153 			r##OP##_br_br(NREAL(num), OBR(obj));		\
1202 	    case N_FIXNUM:	rabs_fi(NREAL(num));	break;
1203 	    case N_BIGNUM:	rabs_bi(NREAL(num));	break;
1204 	    case N_FLONUM:	rabs_ff(NREAL(num));	break;
1205 	    case N_FIXRATIO:	rabs_fr(NREAL(num));	break;
1206 	    case N_BIGRATIO:	rabs_br(NREAL(num));	break;
1216     abs_real(NREAL(num));
1219     if (cmp_real_real(NREAL(num), NIMAG(num)) < 0) {
1221 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1222 	memcpy(NREAL(num), &temp, sizeof(n_real));
1231 	    mul_real_real(NREAL(num), &temp);
1237 	div_real_real(NIMAG(num), NREAL(num));
1245 	mul_real_real(NIMAG(num), NREAL(num));
1246 	clear_real(NREAL(num));
1247 	memcpy(NREAL(num), NIMAG(num), sizeof(n_real));
1307 	neg_real(NREAL(num));
1312 	    case N_FIXNUM:	rneg_fi(NREAL(num));	break;
1313 	    case N_BIGNUM:	rneg_bi(NREAL(num));	break;
1314 	    case N_FLONUM:	rneg_ff(NREAL(num));	break;
1315 	    case N_FIXRATIO:	rneg_fr(NREAL(num));	break;
1316 	    case N_BIGRATIO:	rneg_br(NREAL(num));	break;
1527     set_real_real(real, NREAL(num));
1534 	memcpy(NREAL(num), real, sizeof(n_real));
1539     else if (cmp_real_real(NREAL(num), &zero) > 0) {
1541 	add_real_real(NREAL(num), real);
1543 	div_real_real(NREAL(num), &two);
1544 	sqrt_real(NREAL(num));
1547 	div_real_real(NIMAG(num), NREAL(num));
1556 	sub_real_real(NIMAG(num), NREAL(num));
1563 	clear_real(NREAL(num));
1565 	memcpy(NREAL(num), imag, sizeof(n_real));
1566 	div_real_real(NREAL(num), NIMAG(num));
1567 	div_real_real(NREAL(num), &two);
1576     if (cmp_real_real(NREAL(num), &zero) < 0) {
1577 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1585 	rsqrt_xi(NREAL(num));
1611     if (cmp_real_real(NREAL(num), &zero) < 0) {
1612 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1620 	rsqrt_xr(NREAL(num));
2459 	    if (cmp_real_object(NREAL(op1), OCXR(op2)) == 0)
2464 	    return (cmp_real_object(NREAL(op1), op2));
2560 		    return (cmp_real_object(NREAL(op1), OCXR(op2)));
3105     clear_real(NREAL(num));
3118 	rbi_canonicalize(NREAL(num));
3182     clear_real(NREAL(number));
3307     clear_real(NREAL(num));
3320 	rbi_canonicalize(NREAL(num));
3424     clear_real(NREAL(num));
3437 	rbi_canonicalize(NREAL(num));
3482     clear_real(NREAL(num));
3532 	add_real_real(NREAL(num), &one);
3536 	sub_real_real(NREAL(num), &one);
3550 	    rbi_canonicalize(NREAL(num));
3569     add_real_object(NREAL(num), OCXR(comp));
3586     sub_real_object(NREAL(num), OCXR(comp));
3605     set_real_real(NIMAG(num), NREAL(num));
3608     mul_real_object(NREAL(num), OCXR(comp));
3644     mul_real_real(NIMAG(num), NREAL(num));
3647     mul_real_object(NREAL(num), OCXR(comp));
3649     div_real_real(NREAL(num), &div);
3668     add_real_object(NREAL(num), re);
3679     sub_real_object(NREAL(num), re);
3690     mul_real_object(NREAL(num), re);
3702     div_real_object(NREAL(num), re);
3718     add_real_object(NREAL(num), OCXR(comp));
3730     sub_real_object(NREAL(num), OCXR(comp));
3747     set_real_real(&RaIb, NREAL(num));
3751     mul_real_object(NREAL(num), OCXR(comp));
3752     sub_real_real(NREAL(num), &IaIb);
3778     set_real_real(&temp2, NREAL(num));
3782     mul_real_object(NREAL(num), OCXR(comp));
3783     add_real_real(NREAL(num), &temp1);
3804     div_real_real(NREAL(num), &temp1);