Rev 4874 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 4874 | Rev 4921 | ||
|---|---|---|---|
| Line 96... | Line 96... | ||
| 96 | #define SI 1 |
96 | #define SI 1 |
| 97 | #else |
97 | #else |
| 98 | #define SI 0 |
98 | #define SI 0 |
| 99 | #endif |
99 | #endif |
| Line 100... | Line 100... | ||
| 100 | 100 | ||
| Line 101... | Line 101... | ||
| 101 | #define Storeinc(a,b,c) (*(a)++ = (b) << 16 | (c) & 0xffff) |
101 | #define Storeinc(a,b,c) (*(a)++ = ((b) << 16) | ((c) & 0xffff)) |
| 102 | 102 | ||
| 103 | /* #define P DBL_MANT_DIG */ |
103 | /* #define P DBL_MANT_DIG */ |
| 104 | /* Ten_pmax = floor(P*log(2)/log(5)) */ |
104 | /* Ten_pmax = floor(P*log(2)/log(5)) */ |
| Line 368... | Line 368... | ||
| 368 | #define ratio __ratio |
368 | #define ratio __ratio |
| 369 | #define any_on __any_on |
369 | #define any_on __any_on |
| 370 | #define gethex __gethex |
370 | #define gethex __gethex |
| 371 | #define copybits __copybits |
371 | #define copybits __copybits |
| 372 | #define hexnan __hexnan |
372 | #define hexnan __hexnan |
| 373 | #define hexdig_init __hexdig_init |
- | |
| Line -... | Line 373... | ||
| - | 373 | ||
| - | 374 | #if !defined(PREFER_SIZE_OVER_SPEED) && !defined(__OPTIMIZE_SIZE__) && !defined(_SMALL_HEXDIG) |
|
| - | 375 | #define __get_hexdig(x) __hexdig[x] /* NOTE: must evaluate arg only once */ |
|
| 374 | 376 | #else /* !defined(PREFER_SIZE_OVER_SPEED) && !defined(__OPTIMIZE_SIZE__) && !defined(_SMALL_HEXDIG) */ |
|
| - | 377 | #define __get_hexdig(x) __hexdig_fun(x) |
|
| Line 375... | Line 378... | ||
| 375 | #define hexdig __hexdig |
378 | #endif /* !defined(PREFER_SIZE_OVER_SPEED) && !defined(__OPTIMIZE_SIZE__) && !defined(_SMALL_HEXDIG) */ |
| 376 | 379 | ||
| 377 | #define tens __mprec_tens |
380 | #define tens __mprec_tens |
| Line 393... | Line 396... | ||
| 393 | int _EXFUN(lo0bits,(__ULong *)); |
396 | int _EXFUN(lo0bits,(__ULong *)); |
| 394 | _Bigint * _EXFUN(d2b,(struct _reent *p, double d, int *e, int *bits)); |
397 | _Bigint * _EXFUN(d2b,(struct _reent *p, double d, int *e, int *bits)); |
| 395 | _Bigint * _EXFUN(lshift,(struct _reent *p, _Bigint *b, int k)); |
398 | _Bigint * _EXFUN(lshift,(struct _reent *p, _Bigint *b, int k)); |
| 396 | _Bigint * _EXFUN(diff,(struct _reent *p, _Bigint *a, _Bigint *b)); |
399 | _Bigint * _EXFUN(diff,(struct _reent *p, _Bigint *a, _Bigint *b)); |
| 397 | int _EXFUN(cmp,(_Bigint *a, _Bigint *b)); |
400 | int _EXFUN(cmp,(_Bigint *a, _Bigint *b)); |
| 398 | int _EXFUN(gethex,(struct _reent *p, _CONST char **sp, struct FPI *fpi, Long *exp, _Bigint **bp, int sign)); |
401 | int _EXFUN(gethex,(struct _reent *p, _CONST char **sp, _CONST struct FPI *fpi, Long *exp, _Bigint **bp, int sign)); |
| 399 | double _EXFUN(ratio,(_Bigint *a, _Bigint *b)); |
402 | double _EXFUN(ratio,(_Bigint *a, _Bigint *b)); |
| 400 | __ULong _EXFUN(any_on,(_Bigint *b, int k)); |
403 | __ULong _EXFUN(any_on,(_Bigint *b, int k)); |
| 401 | void _EXFUN(copybits,(__ULong *c, int n, _Bigint *b)); |
404 | void _EXFUN(copybits,(__ULong *c, int n, _Bigint *b)); |
| - | 405 | #if defined(PREFER_SIZE_OVER_SPEED) || defined(__OPTIMIZE_SIZE__) || defined(_SMALL_HEXDIG) |
|
| 402 | void _EXFUN(hexdig_init,(void)); |
406 | unsigned char _EXFUN(__hexdig_fun,(unsigned char)); |
| - | 407 | #endif /* !defined(PREFER_SIZE_OVER_SPEED) && !defined(__OPTIMIZE_SIZE__) && !defined(_SMALL_HEXDIG) */ |
|
| 403 | #ifdef INFNAN_CHECK |
408 | #ifdef INFNAN_CHECK |
| 404 | int _EXFUN(hexnan,(_CONST char **sp, struct FPI *fpi, __ULong *x0)); |
409 | int _EXFUN(hexnan,(_CONST char **sp, _CONST struct FPI *fpi, __ULong *x0)); |
| 405 | #endif |
410 | #endif |
| Line 406... | Line 411... | ||
| 406 | 411 | ||
| Line 407... | Line 412... | ||
| 407 | #define Bcopy(x,y) memcpy((char *)&x->_sign, (char *)&y->_sign, y->_wds*sizeof(__Long) + 2*sizeof(int)) |
412 | #define Bcopy(x,y) memcpy((char *)&x->_sign, (char *)&y->_sign, y->_wds*sizeof(__Long) + 2*sizeof(int)) |
| 408 | 413 | ||
| 409 | extern _CONST double tinytens[]; |
414 | extern _CONST double tinytens[]; |
| - | 415 | extern _CONST double bigtens[]; |
|
| 410 | extern _CONST double bigtens[]; |
416 | extern _CONST double tens[]; |
| - | 417 | #if !defined(PREFER_SIZE_OVER_SPEED) && !defined(__OPTIMIZE_SIZE__) && !defined(_SMALL_HEXDIG) |
|
| Line 411... | Line 418... | ||
| 411 | extern _CONST double tens[]; |
418 | extern _CONST unsigned char __hexdig[]; |