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

Lines Matching defs:n_real
134 } n_real;
138     n_real real;
139     n_real imag;
149 static void set_real_real(n_real*, n_real*);
150 static void set_real_object(n_real*, LispObj*);
152 static void clear_real(n_real*);
155 static LispObj *make_real_object(n_real*);
166 static void add_real_object(n_real*, LispObj*);
170 static void sub_real_object(n_real*, LispObj*);
174 static void mul_real_object(n_real*, LispObj*);
178 static void div_real_object(n_real*, LispObj*);
182 static int cmp_real_real(n_real*, n_real*);
183 static int cmp_real_object(n_real*, LispObj*);
195 static void rbi_canonicalize(n_real*);
198 static void rfr_canonicalize(n_real*);
199 static void rbr_canonicalize(n_real*);
205 static void abs_real(n_real*);
208 static INLINE void rabs_fi(n_real*);
209 static INLINE void rabs_bi(n_real*);
210 static INLINE void rabs_ff(n_real*);
211 static INLINE void rabs_fr(n_real*);
212 static INLINE void rabs_br(n_real*);
215 static void neg_real(n_real*);
217 static void rneg_fi(n_real*);
218 static INLINE void rneg_bi(n_real*);
219 static INLINE void rneg_ff(n_real*);
220 static INLINE void rneg_fr(n_real*);
221 static INLINE void rneg_br(n_real*);
224 static void sqrt_real(n_real*);
226 static void rsqrt_xi(n_real*);
227 static void rsqrt_xr(n_real*);
228 static void rsqrt_ff(n_real*);
235 static void mod_real_real(n_real*, n_real*);
236 static void mod_real_object(n_real*, LispObj*);
237 static void rmod_fi_fi(n_real*, long);
238 static void rmod_fi_bi(n_real*, mpi*);
239 static void rmod_bi_fi(n_real*, long);
240 static void rmod_bi_bi(n_real*, mpi*);
243 static void rem_real_object(n_real*, LispObj*);
244 static void rrem_fi_fi(n_real*, long);
245 static void rrem_fi_bi(n_real*, mpi*);
246 static void rrem_bi_fi(n_real*, long);
247 static void rrem_bi_bi(n_real*, mpi*);
250 static void gcd_real_object(n_real*, LispObj*);
253 static void and_real_object(n_real*, LispObj*);
256 static void eqv_real_object(n_real*, LispObj*);
259 static void ior_real_object(n_real*, LispObj*);
262 static void not_real(n_real*);
265 static void xor_real_object(n_real*, LispObj*);
295 static void radd_flonum(n_real*, double, double);
296 static void rsub_flonum(n_real*, double, double);
297 static void rmul_flonum(n_real*, double, double);
298 static void rdiv_flonum(n_real*, double, double);
302 static void rop_fi_fi_bi(n_real*, long, int);
303 static INLINE void radd_fi_fi(n_real*, long);
304 static INLINE void rsub_fi_fi(n_real*, long);
305 static INLINE void rmul_fi_fi(n_real*, long);
306 static INLINE void rdiv_fi_fi(n_real*, long);
311 static void rop_fi_bi_xi(n_real*, mpi*, int);
312 static INLINE void radd_fi_bi(n_real*, mpi*);
313 static INLINE void rsub_fi_bi(n_real*, mpi*);
314 static INLINE void rmul_fi_bi(n_real*, mpi*);
315 static void rdiv_fi_bi(n_real*, mpi*);
319 static void rop_fi_fr_as_xr(n_real*, long, long, int);
320 static void rop_fi_fr_md_xr(n_real*, long, long, int);
321 static INLINE void radd_fi_fr(n_real*, long, long);
322 static INLINE void rsub_fi_fr(n_real*, long, long);
323 static INLINE void rmul_fi_fr(n_real*, long, long);
324 static INLINE void rdiv_fi_fr(n_real*, long, long);
328 static void rop_fi_br_as_xr(n_real*, mpr*, int);
329 static void rop_fi_br_md_xr(n_real*, mpr*, int);
330 static INLINE void radd_fi_br(n_real*, mpr*);
331 static INLINE void rsub_fi_br(n_real*, mpr*);
332 static INLINE void rmul_fi_br(n_real*, mpr*);
333 static INLINE void rdiv_fi_br(n_real*, mpr*);
337 static INLINE void radd_bi_fi(n_real*, long);
338 static INLINE void rsub_bi_fi(n_real*, long);
339 static INLINE void rmul_bi_fi(n_real*, long);
340 static void rdiv_bi_fi(n_real*, long);
344 static INLINE void radd_bi_bi(n_real*, mpi*);
345 static INLINE void rsub_bi_bi(n_real*, mpi*);
346 static INLINE void rmul_bi_bi(n_real*, mpi*);
347 static void rdiv_bi_bi(n_real*, mpi*);
351 static void rop_bi_fr_as_xr(n_real*, long, long, int);
352 static void rop_bi_fr_md_xr(n_real*, long, long, int);
353 static INLINE void radd_bi_fr(n_real*, long, long);
354 static INLINE void rsub_bi_fr(n_real*, long, long);
355 static INLINE void rmul_bi_fr(n_real*, long, long);
356 static INLINE void rdiv_bi_fr(n_real*, long, long);
360 static void rop_bi_br_as_xr(n_real*, mpr*, int);
361 static void rop_bi_br_md_xr(n_real*, mpr*, int);
362 static INLINE void radd_bi_br(n_real*, mpr*);
363 static INLINE void rsub_bi_br(n_real*, mpr*);
364 static INLINE void rmul_bi_br(n_real*, mpr*);
365 static INLINE void rdiv_bi_br(n_real*, mpr*);
369 static void rop_fr_fi_as_xr(n_real*, long, int);
370 static void rop_fr_fi_md_xr(n_real*, long, int);
371 static INLINE void radd_fr_fi(n_real*, long);
372 static INLINE void rsub_fr_fi(n_real*, long);
373 static INLINE void rmul_fr_fi(n_real*, long);
374 static INLINE void rdiv_fr_fi(n_real*, long);
378 static void rop_fr_bi_as_xr(n_real*, mpi*, int);
379 static void rop_fr_bi_md_xr(n_real*, mpi*, int);
380 static INLINE void radd_fr_bi(n_real*, mpi*);
381 static INLINE void rsub_fr_bi(n_real*, mpi*);
382 static INLINE void rmul_fr_bi(n_real*, mpi*);
383 static INLINE void rdiv_fr_bi(n_real*, mpi*);
387 static void rop_fr_fr_as_xr(n_real*, long, long, int);
388 static void rop_fr_fr_md_xr(n_real*, long, long, int);
389 static INLINE void radd_fr_fr(n_real*, long, long);
390 static INLINE void rsub_fr_fr(n_real*, long, long);
391 static INLINE void rmul_fr_fr(n_real*, long, long);
392 static INLINE void rdiv_fr_fr(n_real*, long, long);
396 static void rop_fr_br_asmd_xr(n_real*, mpr*, int);
397 static INLINE void radd_fr_br(n_real*, mpr*);
398 static INLINE void rsub_fr_br(n_real*, mpr*);
399 static INLINE void rmul_fr_br(n_real*, mpr*);
400 static INLINE void rdiv_fr_br(n_real*, mpr*);
404 static void rop_br_fi_asmd_xr(n_real*, long, int);
405 static INLINE void radd_br_fi(n_real*, long);
406 static INLINE void rsub_br_fi(n_real*, long);
407 static INLINE void rmul_br_fi(n_real*, long);
408 static INLINE void rdiv_br_fi(n_real*, long);
412 static void rop_br_bi_as_xr(n_real*, mpi*, int);
413 static INLINE void radd_br_bi(n_real*, mpi*);
414 static INLINE void rsub_br_bi(n_real*, mpi*);
415 static INLINE void rmul_br_bi(n_real*, mpi*);
416 static INLINE void rdiv_br_bi(n_real*, mpi*);
420 static void rop_br_fr_asmd_xr(n_real*, long, long, int);
421 static INLINE void radd_br_fr(n_real*, long, long);
422 static INLINE void rsub_br_fr(n_real*, long, long);
423 static INLINE void rmul_br_fr(n_real*, long, long);
424 static INLINE void rdiv_br_fr(n_real*, long, long);
428 static INLINE void radd_br_br(n_real*, mpr*);
429 static INLINE void rsub_br_br(n_real*, mpr*);
430 static INLINE void rmul_br_br(n_real*, mpr*);
431 static INLINE void rdiv_br_br(n_real*, mpr*);
437 static n_real zero, one, two;
523 set_real_real(n_real *real, n_real *val)
550 set_real_object(n_real *real, LispObj *obj)
639 clear_real(n_real *real)
660 make_real_object(n_real *real)
751 OP##_real_real(n_real *real, n_real *val)				\
869 OP##_real_object(n_real *real, LispObj *obj)				\
1184 abs_real(n_real *real)
1214     n_real temp;
1220 	memcpy(&temp, NIMAG(num), sizeof(n_real));
1221 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1222 	memcpy(NREAL(num), &temp, sizeof(n_real));
1247 	memcpy(NREAL(num), NIMAG(num), sizeof(n_real));
1253 rabs_fi(n_real *real)
1260 rabs_bi(n_real *real)
1267 rabs_ff(n_real *real)
1274 rabs_fr(n_real *real)
1281 rabs_br(n_real *real)
1292 neg_real(n_real *real)
1322 rneg_fi(n_real *real)
1338 rneg_bi(n_real *real)
1344 rneg_ff(n_real *real)
1350 rneg_fr(n_real *real)
1366 rneg_br(n_real *real)
1376 sqrt_real(n_real *real)
1416 rsqrt_xi(n_real *real)
1461 rsqrt_xr(n_real *real)
1463     n_real num, den;
1505     memcpy(real, &num, sizeof(n_real));
1511 rsqrt_ff(n_real *real)
1523     n_real *real, *imag;
1534 	memcpy(NREAL(num), real, sizeof(n_real));
1552 	memcpy(imag, NIMAG(num), sizeof(n_real));
1555 	memcpy(NIMAG(num), real, sizeof(n_real));
1565 	memcpy(NREAL(num), imag, sizeof(n_real));
1577 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1612 	memcpy(NIMAG(num), NREAL(num), sizeof(n_real));
1628 mod_real_real(n_real *real, n_real *val)
1656 mod_real_object(n_real *real, LispObj *obj)
1689 	/* Assume the n_real object is an integer */
1695 rmod_fi_fi(n_real *real, long fi)
1715 rmod_fi_bi(n_real *real, mpi *bignum)
1732 rmod_bi_fi(n_real *real, long fi)
1747 rmod_bi_bi(n_real *real, mpi *bignum)
1760 rem_real_object(n_real *real, LispObj *obj)
1793 	/* Assume the n_real object is an integer */
1799 rrem_fi_fi(n_real *real, long fi)
1817 rrem_fi_bi(n_real *real, mpi *bignum)
1834 rrem_bi_fi(n_real *real, long fi)
1849 rrem_bi_bi(n_real *real, mpi *bignum)
1863 gcd_real_object(n_real *real, LispObj *obj)
1872 	n_real rest, temp;
1879 	    memcpy(&temp, real, sizeof(n_real));
1880 	    memcpy(real, &rest, sizeof(n_real));
1881 	    memcpy(&rest, &temp, sizeof(n_real));
1891 and_real_object(n_real *real, LispObj *obj)
1952 eqv_real_object(n_real *real, LispObj *obj)
2017 ior_real_object(n_real *real, LispObj *obj)
2078 not_real(n_real *real)
2092 xor_real_object(n_real *real, LispObj *obj)
2274 cmp_real_real(n_real *op1, n_real *op2)
2355 cmp_real_object(n_real *op1, LispObj *op2)
2768 rbi_canonicalize(n_real *real)
2785 rfr_canonicalize(n_real *real)
2837 rbr_canonicalize(n_real *real)
3268 	    n_real cmp;
3385 	    n_real cmp;
3500 		n_real cmp;
3626     n_real div, temp;
3742     n_real IaIb, RaIb;
3771     n_real temp1, temp2;
3828 radd_flonum(n_real *real, double op1, double op2)
3852 rsub_flonum(n_real *real, double op1, double op2)
3876 rmul_flonum(n_real *real, double op1, double op2)
3900 rdiv_flonum(n_real *real, double op1, double op2)
3942 rop_fi_fi_bi(n_real *real, long fi, int op)
3959 radd_fi_fi(n_real *real, long fi)
3968 rsub_fi_fi(n_real *real, long fi)
3977 rmul_fi_fi(n_real *real, long fi)
3986 rdiv_fi_fi(n_real *real, long fi)
4010 rop_fi_bi_xi(n_real *real, mpi *bi, int nop)
4035 radd_fi_bi(n_real *real, mpi *bi)
4041 rsub_fi_bi(n_real *real, mpi *bi)
4047 rmul_fi_bi(n_real *real, mpi *bi)
4053 rdiv_fi_bi(n_real *real, mpi *bi)
4080 rop_fi_fr_as_xr(n_real *real, long num, long den, int nop)
4124 rop_fi_fr_md_xr(n_real *real, long num, long den, int nop)
4166 radd_fi_fr(n_real *real, long num, long den)
4172 rsub_fi_fr(n_real *real, long num, long den)
4178 rmul_fi_fr(n_real *real, long num, long den)
4184 rdiv_fi_fr(n_real *real, long num, long den)
4200 rop_fi_br_as_xr(n_real *real, mpr *ratio, int nop)
4224 rop_fi_br_md_xr(n_real *real, mpr *ratio, int nop)
4247 radd_fi_br(n_real *real, mpr *ratio)
4253 rsub_fi_br(n_real *real, mpr *ratio)
4259 rmul_fi_br(n_real *real, mpr *ratio)
4265 rdiv_fi_br(n_real *real, mpr *ratio)
4281 radd_bi_fi(n_real *real, long fi)
4288 rsub_bi_fi(n_real *real, long fi)
4295 rmul_bi_fi(n_real *real, long fi)
4302 rdiv_bi_fi(n_real *real, long fi)
4330 radd_bi_bi(n_real *real, mpi *bignum)
4337 rsub_bi_bi(n_real *real, mpi *bignum)
4344 rmul_bi_bi(n_real *real, mpi *bignum)
4351 rdiv_bi_bi(n_real *real, mpi *bignum)
4379 rop_bi_fr_as_xr(n_real *real, long num, long den, int nop)
4404 rop_bi_fr_md_xr(n_real *real, long num, long den, int nop)
4426 radd_bi_fr(n_real *real, long num, long den)
4432 rsub_bi_fr(n_real *real, long num, long den)
4438 rmul_bi_fr(n_real *real, long num, long den)
4444 rdiv_bi_fr(n_real *real, long num, long den)
4474 rop_bi_br_as_xr(n_real *real, mpr *bigratio, int nop)
4499 rop_bi_br_md_xr(n_real *real, mpr *bigratio, int nop)
4518 radd_bi_br(n_real *real, mpr *bigratio)
4524 rsub_bi_br(n_real *real, mpr *bigratio)
4530 rmul_bi_br(n_real *real, mpr *bigratio)
4536 rdiv_bi_br(n_real *real, mpr *bigratio)
4562 rop_fr_fi_as_xr(n_real *real, long op, int nop)
4604 rop_fr_fi_md_xr(n_real *real, long op, int nop)
4637 radd_fr_fi(n_real *real, long op)
4643 rsub_fr_fi(n_real *real, long op)
4649 rmul_fr_fi(n_real *real, long op)
4655 rdiv_fr_fi(n_real *real, long op)
4671 rop_fr_bi_as_xr(n_real *real, mpi *bignum, int nop)
4695 rop_fr_bi_md_xr(n_real *real, mpi *bignum, int nop)
4713 radd_fr_bi(n_real *real, mpi *bignum)
4719 rsub_fr_bi(n_real *real, mpi *bignum)
4725 rmul_fr_bi(n_real *real, mpi *bignum)
4731 rdiv_fr_bi(n_real *real, mpi *bignum)
4761 rop_fr_fr_as_xr(n_real *real, long num2, long den2, int nop)
4813 rop_fr_fr_md_xr(n_real *real, long num2, long den2, int nop)
4861 radd_fr_fr(n_real *real, long num, long den)
4867 rsub_fr_fr(n_real *real, long num, long den)
4873 rmul_fr_fr(n_real *real, long num, long den)
4879 rdiv_fr_fr(n_real *real, long num, long den)
4896 rop_fr_br_asmd_xr(n_real *real, mpr *bigratio, int nop)
4924 radd_fr_br(n_real *real, mpr *bigratio)
4930 rsub_fr_br(n_real *real, mpr *bigratio)
4936 rmul_fr_br(n_real *real, mpr *bigratio)
4942 rdiv_fr_br(n_real *real, mpr *bigratio)
4967 rop_br_fi_asmd_xr(n_real *real, long fixnum, int nop)
4991 radd_br_fi(n_real *real, long fixnum)
4997 rsub_br_fi(n_real *real, long fixnum)
5003 rmul_br_fi(n_real *real, long fixnum)
5009 rdiv_br_fi(n_real *real, long fixnum)
5033 rop_br_bi_as_xr(n_real *real, mpi *bignum, int nop)
5050 radd_br_bi(n_real *real, mpi *bignum)
5056 rsub_br_bi(n_real *real, mpi *bignum)
5062 rmul_br_bi(n_real *real, mpi *bignum)
5069 rdiv_br_bi(n_real *real, mpi *bignum)
5096 rop_br_fr_asmd_xr(n_real *real, long num, long den, int nop)
5121 radd_br_fr(n_real *real, long num, long den)
5127 rsub_br_fr(n_real *real, long num, long den)
5133 rmul_br_fr(n_real *real, long num, long den)
5139 rdiv_br_fr(n_real *real, long num, long den)
5163 radd_br_br(n_real *real, mpr *bigratio)
5170 rsub_br_br(n_real *real, mpr *bigratio)
5177 rmul_br_br(n_real *real, mpr *bigratio)
5184 rdiv_br_br(n_real *real, mpr *bigratio)