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[]; |