ULong
ULong *bx, *bxe, q, *sx, *sxe;
ULong borrow, carry, y, ys;
ULong si, z, zs;
j = sizeof(ULong);
sizeof(Bigint) - sizeof(ULong) - sizeof(int) + j <= i;
ULong x;
FPI *fpi; int be; ULong *bits;
(FPI *fpi, int be, ULong *bits, int *kindp, int mode, int ndigits, int *decpt, char **rve)
bitstob(bits, nbits, bbits) ULong *bits; int nbits; int *bbits;
bitstob(ULong *bits, int nbits, int *bbits)
ULong *be, *x, *x0;
extern char* __gdtoa ANSI((FPI *fpi, int be, ULong *bits, int *kindp,
extern int __strtodg ANSI((CONST char*, char**, FPI*, Long*, ULong*));
#ifndef ULong
typedef union { double d; ULong L[2]; } U;
ULong x[1];
#define Bcopy(x,y) memcpy_D2A(&x->sign,&y->sign,y->wds*sizeof(ULong) + 2*sizeof(int))
#define Bcopy(x,y) memcpy(&x->sign,&y->sign,y->wds*sizeof(ULong) + 2*sizeof(int))
#define hi0bits(x) __hi0bits_D2A((ULong)(x))
extern void ULtof ANSI((ULong*, ULong*, Long, int));
extern void ULtod ANSI((ULong*, ULong*, Long, int));
extern void ULtodd ANSI((ULong*, ULong*, Long, int));
extern void ULtoQ ANSI((ULong*, ULong*, Long, int));
extern void ULtox ANSI((UShort*, ULong*, Long, int));
extern void ULtoxL ANSI((ULong*, ULong*, Long, int));
extern ULong any_on ANSI((Bigint*, int));
extern void copybits ANSI((ULong*, int, Bigint*));
extern char *g__fmt ANSI((char*, char*, char*, int, ULong, size_t));
extern int hexnan ANSI((CONST char**, FPI*, ULong*));
extern int hi0bits_D2A ANSI((ULong));
extern int lo0bits ANSI((ULong*));
extern Bigint *s2b ANSI((CONST char*, int, int, ULong, int));
ULong L, lostbits, *x;
ULong *x, *x1, *xe, y;
ULong L, *x, *xe;
*xe &= ((ULong)0xffffffff) >> (ULbits - i);
L_shift(x, x1, i) ULong *x; ULong *x1; int i;
L_shift(ULong *x, ULong *x1, int i)
CONST char **sp; FPI *fpi; ULong *x0;
hexnan( CONST char **sp, FPI *fpi, ULong *x0)
ULong c, h, *x, *x1, *xe;
(y) ULong *y;
(ULong *y)
ULong x = *y;
ULong *x;
ULong carry, *x, y;
ULong xi, z;
(x) ULong x;
(ULong x)
ULong *x, *xa, *xae, *xb, *xbe, *xc, *xc0;
ULong y;
ULong carry, z;
ULong z2;
ULong *x, *x1, *xe, z;
ULong *xa, *xa0, *xb, *xb0;
ULong *xa, *xae, *xb, *xbe, *xc;
ULong borrow, y;
ULong z;
ULong *xa, *xa0, w, y, z;
ULong d0, d1;
rv = (Bigint *)MALLOC(sizeof(Bigint) + (x-1)*sizeof(ULong));
ULong *x, y, z;
ULong d0, d1;
len = (sizeof(Bigint) + (x-1)*sizeof(ULong) + sizeof(double) - 1)
copybits(c, n, b) ULong *c; int n; Bigint *b;
copybits(ULong *c, int n, Bigint *b)
ULong *ce, *x, *xe;
ULong
ULong *x, *x0, x1, x2;
(s, nd0, nd, y9, dplen) CONST char *s; int dplen, nd0, nd; ULong y9;
(CONST char *s, int nd0, int nd, ULong y9, int dplen)
ULong Lsb, Lsb1;
ULong bits[2];
ULong bits[2];
ULong y, z;
ULong *x, *xe;
ULong borrow = 1, y;
ULong *x, *xe;
ULong *x, *xe;
U *d; FPI *fpi; Long *exp; ULong *bits; int exact, rd, *irv;
(U *d, FPI *fpi, Long *exp, ULong *bits, int exact, int rd, int *irv)
ULong carry, inex, lostbits;
if (b->x[k>>kshift] & ((ULong)1 << (k & kmask)))
ULong L;
CONST char *s00; char **se; FPI *fpi; Long *exp; ULong *bits;
(CONST char *s00, char **se, FPI *fpi, Long *exp, ULong *bits)
ULong *b, *be, y, z;
ULong *x, *xe;
ULong carry = 1, y;
if (*x < (ULong)0xffffffffL) {
ULong bits[1];
union { ULong L[1]; float f; } u;
ULong bits[4];
ULtoQ((ULong*)L, bits, exp, k);
ULtoQ(L, bits, exp, k) ULong *L; ULong *bits; Long exp; int k;
ULtoQ(ULong *L, ULong *bits, Long exp, int k)
ULtod(L, bits, exp, k) ULong *L; ULong *bits; Long exp; int k;
ULtod(ULong *L, ULong *bits, Long exp, int k)
ULong bits[2];
ULtod((ULong*)d, bits, exp, k);
ULong bits[2];
ULtox(L, bits, exp, k) UShort *L; ULong *bits; Long exp; int k;
ULtox(UShort *L, ULong *bits, Long exp, int k)
ULong carry, *xc, *xa, *xb, *xe, y;
ULong z;