diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2011-07-02 22:36:45 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2011-07-02 22:36:45 (GMT) |
| commit | ab7a6af8cae45f25825b7c3ac24edc9af86c9233 (patch) | |
| tree | cfb063e941efc61b9d4aaf5f1b223dae502e9b76 /generic/tclTomMathDecls.h | |
| parent | 8f8741ac3a12f301cee5f84fd38210ef0527106c (diff) | |
| parent | 59f60c354a264bd149bbe3248982f82c6ddd165a (diff) | |
| download | tcl-ab7a6af8cae45f25825b7c3ac24edc9af86c9233.zip tcl-ab7a6af8cae45f25825b7c3ac24edc9af86c9233.tar.gz tcl-ab7a6af8cae45f25825b7c3ac24edc9af86c9233.tar.bz2 | |
Fix roundoff gaffe in bignum-to-double conversion [Bug 3349507]
Diffstat (limited to 'generic/tclTomMathDecls.h')
| -rw-r--r-- | generic/tclTomMathDecls.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclTomMathDecls.h b/generic/tclTomMathDecls.h index 7df0d90..feaefb3 100644 --- a/generic/tclTomMathDecls.h +++ b/generic/tclTomMathDecls.h @@ -63,6 +63,7 @@ #define mp_cmp TclBN_mp_cmp #define mp_cmp_d TclBN_mp_cmp_d #define mp_cmp_mag TclBN_mp_cmp_mag +#define mp_cnt_lsb TclBN_mp_cnt_lsb #define mp_copy TclBN_mp_copy #define mp_count_bits TclBN_mp_count_bits #define mp_div TclBN_mp_div @@ -272,6 +273,8 @@ EXTERN int TclBN_s_mp_sub(mp_int *a, mp_int *b, mp_int *c); EXTERN int TclBN_mp_init_set_int(mp_int*a, unsigned long i); /* 62 */ EXTERN int TclBN_mp_set_int(mp_int*a, unsigned long i); +/* 63 */ +EXTERN int TclBN_mp_cnt_lsb(const mp_int*a); typedef struct TclTomMathStubs { int magic; @@ -340,6 +343,7 @@ typedef struct TclTomMathStubs { int (*tclBN_s_mp_sub) (mp_int *a, mp_int *b, mp_int *c); /* 60 */ int (*tclBN_mp_init_set_int) (mp_int*a, unsigned long i); /* 61 */ int (*tclBN_mp_set_int) (mp_int*a, unsigned long i); /* 62 */ + int (*tclBN_mp_cnt_lsb) (const mp_int*a); /* 63 */ } TclTomMathStubs; #ifdef __cplusplus @@ -482,6 +486,8 @@ extern const TclTomMathStubs *tclTomMathStubsPtr; (tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */ #define TclBN_mp_set_int \ (tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */ +#define TclBN_mp_cnt_lsb \ + (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ #endif /* defined(USE_TCL_STUBS) */ |