| Line 47... |
Line 47... |
#ifdef DEBUG
|
#ifdef DEBUG
|
#include "stdio.h"
|
#include "stdio.h"
|
#define Bug(x) {fprintf(stderr, "%s\n", x); exit(1);}
|
#define Bug(x) {fprintf(stderr, "%s\n", x); exit(1);}
|
#endif
|
#endif
|
|
|
|
|
#ifdef Unsigned_Shifts
|
#ifdef Unsigned_Shifts
|
#define Sign_Extend(a,b) if (b < 0) a |= (__uint32_t)0xffff0000;
|
#define Sign_Extend(a,b) if (b < 0) a |= (__uint32_t)0xffff0000;
|
#else
|
#else
|
#define Sign_Extend(a,b) /*no-op*/
|
#define Sign_Extend(a,b) /*no-op*/
|
#endif
|
#endif
|
| Line 264... |
Line 263... |
#define multadd _multadd
|
#define multadd _multadd
|
#define s2b _s2b
|
#define s2b _s2b
|
#define lo0bits _lo0bits
|
#define lo0bits _lo0bits
|
#define hi0bits _hi0bits
|
#define hi0bits _hi0bits
|
#define i2b _i2b
|
#define i2b _i2b
|
#define mult _mult
|
#define mult _multiply
|
#define pow5mult _pow5mult
|
#define pow5mult _pow5mult
|
#define lshift _lshift
|
#define lshift _lshift
|
#define cmp __mcmp
|
#define cmp __mcmp
|
#define diff __mdiff
|
#define diff __mdiff
|
#define ulp _ulp
|
#define ulp _ulp
|
| Line 284... |
Line 283... |
double _EXFUN(ulp,(double x));
|
double _EXFUN(ulp,(double x));
|
double _EXFUN(b2d,(_Bigint *a , int *e));
|
double _EXFUN(b2d,(_Bigint *a , int *e));
|
_Bigint * _EXFUN(Balloc,(struct _reent *p, int k));
|
_Bigint * _EXFUN(Balloc,(struct _reent *p, int k));
|
void _EXFUN(Bfree,(struct _reent *p, _Bigint *v));
|
void _EXFUN(Bfree,(struct _reent *p, _Bigint *v));
|
_Bigint * _EXFUN(multadd,(struct _reent *p, _Bigint *, int, int));
|
_Bigint * _EXFUN(multadd,(struct _reent *p, _Bigint *, int, int));
|
_Bigint * _EXFUN(s2b,(struct _reent *, const char*, int, int, unsigned long));
|
_Bigint * _EXFUN(s2b,(struct _reent *, const char*, int, int, __ULong));
|
_Bigint * _EXFUN(i2b,(struct _reent *,int));
|
_Bigint * _EXFUN(i2b,(struct _reent *,int));
|
_Bigint * _EXFUN(mult, (struct _reent *, _Bigint *, _Bigint *));
|
_Bigint * _EXFUN(mult, (struct _reent *, _Bigint *, _Bigint *));
|
_Bigint * _EXFUN(pow5mult, (struct _reent *, _Bigint *, int k));
|
_Bigint * _EXFUN(pow5mult, (struct _reent *, _Bigint *, int k));
|
int _EXFUN(hi0bits,(unsigned long));
|
int _EXFUN(hi0bits,(__ULong));
|
int _EXFUN(lo0bits,(unsigned long *));
|
int _EXFUN(lo0bits,(__ULong *));
|
_Bigint * _EXFUN(d2b,(struct _reent *p, double d, int *e, int *bits));
|
_Bigint * _EXFUN(d2b,(struct _reent *p, double d, int *e, int *bits));
|
_Bigint * _EXFUN(lshift,(struct _reent *p, _Bigint *b, int k));
|
_Bigint * _EXFUN(lshift,(struct _reent *p, _Bigint *b, int k));
|
_Bigint * _EXFUN(diff,(struct _reent *p, _Bigint *a, _Bigint *b));
|
_Bigint * _EXFUN(diff,(struct _reent *p, _Bigint *a, _Bigint *b));
|
int _EXFUN(cmp,(_Bigint *a, _Bigint *b));
|
int _EXFUN(cmp,(_Bigint *a, _Bigint *b));
|
|
|
double _EXFUN(ratio,(_Bigint *a, _Bigint *b));
|
double _EXFUN(ratio,(_Bigint *a, _Bigint *b));
|
#define Bcopy(x,y) memcpy((char *)&x->_sign, (char *)&y->_sign, y->_wds*sizeof(long) + 2*sizeof(int))
|
#define Bcopy(x,y) memcpy((char *)&x->_sign, (char *)&y->_sign, y->_wds*sizeof(__Long) + 2*sizeof(int))
|
|
|
#if defined(_DOUBLE_IS_32BITS) && defined(__v800)
|
#if defined(_DOUBLE_IS_32BITS) && defined(__v800)
|
#define n_bigtens 2
|
#define n_bigtens 2
|
#else
|
#else
|
#define n_bigtens 5
|
#define n_bigtens 5
|
