Kernel/src/bigrat.c

62 	    pres->val.nint = (word) (f);
146 #define RatNegative(pw)	((pw)->val.ptr->tag.kernel & BIGSIGN)
149 #define RatZero(pw)	BigZero(Numer(pw)->val.ptr)
154 #define RatIntegral(pw)	BigOne(Denom(pw)->val.ptr)
169         (pw)->val.ptr = (pbig);				\
173 	(pw)->val.ptr = (prat);				\
285 	pword *_pw = (prat)[0].val.ptr;			\
287 	_pw = (prat)[1].val.ptr;			\
662 	    pw->val.nint = mpi->_mp_d[0];
669 	    pw->val.nint = - (word) mpi->_mp_d[0];
675 	pw->val.nint = 0;
693 		pw->val.nint = - (word)i;
699 		pw->val.nint = i;
803     dest->val.ptr = top;
907     int res = _write_big(quoted, stream, vrat.ptr[0].val, vrat.ptr[0].tag);
913     return _write_big(quoted, stream, vrat.ptr[1].val, vrat.ptr[1].tag);
923     Big_To_Mpi(vr.ptr[0].val.ptr, &bign);
925     Big_To_Mpi(vr.ptr[1].val.ptr, &bign);
941     Big_To_Mpi(vr.ptr[0].val.ptr, &bign);
948     Big_To_Mpi(vr.ptr[1].val.ptr, &bign);
992     return _copy_size_big(v1.ptr[0].val, v1.ptr[0].tag)
993 	 + _copy_size_big(v1.ptr[1].val, v1.ptr[1].tag)
1002     dest->val.ptr = top;
1005     top = _copy_heap_big(v1.ptr[0].val, v1.ptr[0].tag, top, dest);
1007     top = _copy_heap_big(v1.ptr[1].val, v1.ptr[1].tag, top, dest);
1121     return _int_rat(in, &pres->val);
1140     return _big_rat(in, &pres->val);
1366 	Make_Big(Numer(pres->val.ptr), TG);
1368 	Make_Big(Denom(pres->val.ptr), TG);
1387     pres->val.ptr = mpz_cmp(&a, &b) < 0 ? v1.ptr : v2.ptr;
1388     Normalize_Big(pres, pres->val.ptr);
1400     pres->val.ptr = mpz_cmp(&a, &b) > 0 ? v1.ptr : v2.ptr;
1401     Normalize_Big(pres, pres->val.ptr);
1656 	    pres->val.nint = (word) (f);				\
1693 	pres->val.nint = (word) ipart;
1741 	Push_Big_Copy(Numer(v1.ptr)->val.ptr);
1742 	Negate_Big(Numer(pw)->val.ptr);
1743 	Make_Big(Denom(pw), Denom(v1.ptr)->val.ptr);
1911     Big_To_Mpi(Numer(v1.ptr)->val.ptr, &a);
1912     Big_To_Mpi(Denom(v1.ptr)->val.ptr, &b);
1926     Normalize_Big(pres, Numer(v1.ptr)->val.ptr);
1934     Big_To_Mpi(Denom(v1.ptr)->val.ptr, &b);
1941 	Big_To_Mpi(Numer(v1.ptr)->val.ptr, &a);
1946 	Make_Big(Numer(pres->val.ptr), TG);
1948 	Make_Big(Denom(pres->val.ptr), TG);
1975     Normalize_Big(pres, Numer(v1.ptr)->val.ptr);
1982     Normalize_Big(pres, Denom(v1.ptr)->val.ptr);