jpayne@69: /* jpayne@69: *---------------------------------------------------------------------- jpayne@69: * jpayne@69: * tclTomMathDecls.h -- jpayne@69: * jpayne@69: * This file contains the declarations for the 'libtommath' jpayne@69: * functions that are exported by the Tcl library. jpayne@69: * jpayne@69: * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. jpayne@69: * jpayne@69: * See the file "license.terms" for information on usage and redistribution jpayne@69: * of this file, and for a DISCLAIMER OF ALL WARRANTIES. jpayne@69: */ jpayne@69: jpayne@69: #ifndef _TCLTOMMATHDECLS jpayne@69: #define _TCLTOMMATHDECLS jpayne@69: jpayne@69: #include "tcl.h" jpayne@69: #ifndef BN_H_ jpayne@69: #include "tclTomMath.h" jpayne@69: #endif jpayne@69: jpayne@69: /* jpayne@69: * Define the version of the Stubs table that's exported for tommath jpayne@69: */ jpayne@69: jpayne@69: #define TCLTOMMATH_EPOCH 0 jpayne@69: #define TCLTOMMATH_REVISION 0 jpayne@69: jpayne@69: #define Tcl_TomMath_InitStubs(interp,version) \ jpayne@69: (TclTomMathInitializeStubs((interp),(version),\ jpayne@69: TCLTOMMATH_EPOCH,TCLTOMMATH_REVISION)) jpayne@69: jpayne@69: /* Define custom memory allocation for libtommath */ jpayne@69: jpayne@69: /* MODULE_SCOPE void* TclBNAlloc( size_t ); */ jpayne@69: #define TclBNAlloc(s) ((void*)ckalloc((size_t)(s))) jpayne@69: /* MODULE_SCOPE void* TclBNCalloc( size_t, size_t ); */ jpayne@69: #define TclBNCalloc(m,s) memset(ckalloc((size_t)(m)*(size_t)(s)),0,(size_t)(m)*(size_t)(s)) jpayne@69: /* MODULE_SCOPE void* TclBNRealloc( void*, size_t ); */ jpayne@69: #define TclBNRealloc(x,s) ((void*)ckrealloc((char*)(x),(size_t)(s))) jpayne@69: /* MODULE_SCOPE void TclBNFree( void* ); */ jpayne@69: #define TclBNFree(x) (ckfree((char*)(x))) jpayne@69: jpayne@69: #define MP_MALLOC(size) TclBNAlloc(size) jpayne@69: #define MP_CALLOC(nmemb, size) TclBNCalloc(nmemb, size) jpayne@69: #define MP_REALLOC(mem, oldsize, newsize) TclBNRealloc(mem, newsize) jpayne@69: #define MP_FREE(mem, size) TclBNFree(mem) jpayne@69: jpayne@69: jpayne@69: /* Rename the global symbols in libtommath to avoid linkage conflicts */ jpayne@69: jpayne@69: #define bn_reverse TclBN_reverse jpayne@69: #define mp_add TclBN_mp_add jpayne@69: #define mp_add_d TclBN_mp_add_d jpayne@69: #define mp_and TclBN_mp_and jpayne@69: #define mp_clamp TclBN_mp_clamp jpayne@69: #define mp_clear TclBN_mp_clear jpayne@69: #define mp_clear_multi TclBN_mp_clear_multi jpayne@69: #define mp_cmp TclBN_mp_cmp jpayne@69: #define mp_cmp_d TclBN_mp_cmp_d jpayne@69: #define mp_cmp_mag TclBN_mp_cmp_mag jpayne@69: #define mp_cnt_lsb TclBN_mp_cnt_lsb jpayne@69: #define mp_copy TclBN_mp_copy jpayne@69: #define mp_count_bits TclBN_mp_count_bits jpayne@69: #define mp_div TclBN_mp_div jpayne@69: #define mp_div_2 TclBN_mp_div_2 jpayne@69: #define mp_div_2d TclBN_mp_div_2d jpayne@69: #define mp_div_3 TclBN_mp_div_3 jpayne@69: #define mp_div_d TclBN_mp_div_d jpayne@69: #define mp_exch TclBN_mp_exch jpayne@69: #define mp_expt_d TclBN_mp_expt_d jpayne@69: #define mp_expt_d_ex TclBN_mp_expt_d_ex jpayne@69: #define mp_expt_u32 TclBN_mp_expt_d jpayne@69: #define mp_get_mag_ull TclBN_mp_get_mag_ull jpayne@69: #define mp_grow TclBN_mp_grow jpayne@69: #define mp_init TclBN_mp_init jpayne@69: #define mp_init_copy TclBN_mp_init_copy jpayne@69: #define mp_init_multi TclBN_mp_init_multi jpayne@69: #define mp_init_set TclBN_mp_init_set jpayne@69: #define mp_init_set_int TclBN_mp_init_set_int jpayne@69: #define mp_init_size TclBN_mp_init_size jpayne@69: #define mp_lshd TclBN_mp_lshd jpayne@69: #define mp_mod TclBN_mp_mod jpayne@69: #define mp_mod_2d TclBN_mp_mod_2d jpayne@69: #define mp_mul TclBN_mp_mul jpayne@69: #define mp_mul_2 TclBN_mp_mul_2 jpayne@69: #define mp_mul_2d TclBN_mp_mul_2d jpayne@69: #define mp_mul_d TclBN_mp_mul_d jpayne@69: #define mp_neg TclBN_mp_neg jpayne@69: #define mp_or TclBN_mp_or jpayne@69: #define mp_radix_size TclBN_mp_radix_size jpayne@69: #define mp_read_radix TclBN_mp_read_radix jpayne@69: #define mp_rshd TclBN_mp_rshd jpayne@69: #define mp_set TclBN_mp_set jpayne@69: #define mp_set_int(a,b) (TclBN_mp_set_int(a,(unsigned int)(b)),MP_OKAY) jpayne@69: #define mp_set_ll TclBN_mp_set_ll jpayne@69: #define mp_set_long(a,b) (TclBN_mp_set_int(a,b),MP_OKAY) jpayne@69: #define mp_set_ul(a,b) (void)TclBN_mp_set_int(a,b) jpayne@69: #define mp_set_ull TclBN_mp_set_ull jpayne@69: #define mp_set_u64 TclBN_mp_set_ull jpayne@69: #define mp_shrink TclBN_mp_shrink jpayne@69: #define mp_sqr TclBN_mp_sqr jpayne@69: #define mp_sqrt TclBN_mp_sqrt jpayne@69: #define mp_sub TclBN_mp_sub jpayne@69: #define mp_sub_d TclBN_mp_sub_d jpayne@69: #define mp_signed_rsh TclBN_mp_signed_rsh jpayne@69: #define mp_tc_and TclBN_mp_and jpayne@69: #define mp_tc_div_2d TclBN_mp_signed_rsh jpayne@69: #define mp_tc_or TclBN_mp_or jpayne@69: #define mp_tc_xor TclBN_mp_xor jpayne@69: #define mp_to_unsigned_bin TclBN_mp_to_unsigned_bin jpayne@69: #define mp_to_unsigned_bin_n TclBN_mp_to_unsigned_bin_n jpayne@69: #define mp_toradix_n TclBN_mp_toradix_n jpayne@69: #define mp_to_radix TclBN_mp_to_radix jpayne@69: #define mp_to_ubin TclBN_mp_to_ubin jpayne@69: #define mp_ubin_size TclBN_mp_unsigned_bin_size jpayne@69: #define mp_unsigned_bin_size(a) ((int)TclBN_mp_unsigned_bin_size(a)) jpayne@69: #define mp_xor TclBN_mp_xor jpayne@69: #define mp_zero TclBN_mp_zero jpayne@69: #define s_mp_add TclBN_s_mp_add jpayne@69: #define s_mp_balance_mul TclBN_mp_balance_mul jpayne@69: #define s_mp_karatsuba_mul TclBN_mp_karatsuba_mul jpayne@69: #define s_mp_karatsuba_sqr TclBN_mp_karatsuba_sqr jpayne@69: #define s_mp_mul_digs TclBN_s_mp_mul_digs jpayne@69: #define s_mp_mul_digs_fast TclBN_fast_s_mp_mul_digs jpayne@69: #define s_mp_reverse TclBN_s_mp_reverse jpayne@69: #define s_mp_sqr TclBN_s_mp_sqr jpayne@69: #define s_mp_sqr_fast TclBN_fast_s_mp_sqr jpayne@69: #define s_mp_sub TclBN_s_mp_sub jpayne@69: #define s_mp_toom_mul TclBN_mp_toom_mul jpayne@69: #define s_mp_toom_sqr TclBN_mp_toom_sqr jpayne@69: jpayne@69: #undef TCL_STORAGE_CLASS jpayne@69: #ifdef BUILD_tcl jpayne@69: # define TCL_STORAGE_CLASS DLLEXPORT jpayne@69: #else jpayne@69: # ifdef USE_TCL_STUBS jpayne@69: # define TCL_STORAGE_CLASS jpayne@69: # else jpayne@69: # define TCL_STORAGE_CLASS DLLIMPORT jpayne@69: # endif jpayne@69: #endif jpayne@69: jpayne@69: /* jpayne@69: * WARNING: This file is automatically generated by the tools/genStubs.tcl jpayne@69: * script. Any modifications to the function declarations below should be made jpayne@69: * in the generic/tclInt.decls script. jpayne@69: */ jpayne@69: jpayne@69: /* !BEGIN!: Do not edit below this line. */ jpayne@69: jpayne@69: #ifdef __cplusplus jpayne@69: extern "C" { jpayne@69: #endif jpayne@69: jpayne@69: /* jpayne@69: * Exported function declarations: jpayne@69: */ jpayne@69: jpayne@69: /* 0 */ jpayne@69: EXTERN int TclBN_epoch(void); jpayne@69: /* 1 */ jpayne@69: EXTERN int TclBN_revision(void); jpayne@69: /* 2 */ jpayne@69: EXTERN mp_err TclBN_mp_add(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 3 */ jpayne@69: EXTERN mp_err TclBN_mp_add_d(const mp_int *a, mp_digit b, jpayne@69: mp_int *c); jpayne@69: /* 4 */ jpayne@69: EXTERN mp_err TclBN_mp_and(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 5 */ jpayne@69: EXTERN void TclBN_mp_clamp(mp_int *a); jpayne@69: /* 6 */ jpayne@69: EXTERN void TclBN_mp_clear(mp_int *a); jpayne@69: /* 7 */ jpayne@69: EXTERN void TclBN_mp_clear_multi(mp_int *a, ...); jpayne@69: /* 8 */ jpayne@69: EXTERN mp_ord TclBN_mp_cmp(const mp_int *a, const mp_int *b); jpayne@69: /* 9 */ jpayne@69: EXTERN mp_ord TclBN_mp_cmp_d(const mp_int *a, mp_digit b); jpayne@69: /* 10 */ jpayne@69: EXTERN mp_ord TclBN_mp_cmp_mag(const mp_int *a, const mp_int *b); jpayne@69: /* 11 */ jpayne@69: EXTERN mp_err TclBN_mp_copy(const mp_int *a, mp_int *b); jpayne@69: /* 12 */ jpayne@69: EXTERN int TclBN_mp_count_bits(const mp_int *a); jpayne@69: /* 13 */ jpayne@69: EXTERN mp_err TclBN_mp_div(const mp_int *a, const mp_int *b, jpayne@69: mp_int *q, mp_int *r); jpayne@69: /* 14 */ jpayne@69: EXTERN mp_err TclBN_mp_div_d(const mp_int *a, mp_digit b, jpayne@69: mp_int *q, mp_digit *r); jpayne@69: /* 15 */ jpayne@69: EXTERN mp_err TclBN_mp_div_2(const mp_int *a, mp_int *q); jpayne@69: /* 16 */ jpayne@69: EXTERN mp_err TclBN_mp_div_2d(const mp_int *a, int b, mp_int *q, jpayne@69: mp_int *r); jpayne@69: /* 17 */ jpayne@69: EXTERN mp_err TclBN_mp_div_3(const mp_int *a, mp_int *q, jpayne@69: mp_digit *r); jpayne@69: /* 18 */ jpayne@69: EXTERN void TclBN_mp_exch(mp_int *a, mp_int *b); jpayne@69: /* 19 */ jpayne@69: EXTERN mp_err TclBN_mp_expt_d(const mp_int *a, unsigned int b, jpayne@69: mp_int *c); jpayne@69: /* 20 */ jpayne@69: EXTERN mp_err TclBN_mp_grow(mp_int *a, int size); jpayne@69: /* 21 */ jpayne@69: EXTERN mp_err TclBN_mp_init(mp_int *a); jpayne@69: /* 22 */ jpayne@69: EXTERN mp_err TclBN_mp_init_copy(mp_int *a, const mp_int *b); jpayne@69: /* 23 */ jpayne@69: EXTERN mp_err TclBN_mp_init_multi(mp_int *a, ...); jpayne@69: /* 24 */ jpayne@69: EXTERN mp_err TclBN_mp_init_set(mp_int *a, mp_digit b); jpayne@69: /* 25 */ jpayne@69: EXTERN mp_err TclBN_mp_init_size(mp_int *a, int size); jpayne@69: /* 26 */ jpayne@69: EXTERN mp_err TclBN_mp_lshd(mp_int *a, int shift); jpayne@69: /* 27 */ jpayne@69: EXTERN mp_err TclBN_mp_mod(const mp_int *a, const mp_int *b, jpayne@69: mp_int *r); jpayne@69: /* 28 */ jpayne@69: EXTERN mp_err TclBN_mp_mod_2d(const mp_int *a, int b, mp_int *r); jpayne@69: /* 29 */ jpayne@69: EXTERN mp_err TclBN_mp_mul(const mp_int *a, const mp_int *b, jpayne@69: mp_int *p); jpayne@69: /* 30 */ jpayne@69: EXTERN mp_err TclBN_mp_mul_d(const mp_int *a, mp_digit b, jpayne@69: mp_int *p); jpayne@69: /* 31 */ jpayne@69: EXTERN mp_err TclBN_mp_mul_2(const mp_int *a, mp_int *p); jpayne@69: /* 32 */ jpayne@69: EXTERN mp_err TclBN_mp_mul_2d(const mp_int *a, int d, mp_int *p); jpayne@69: /* 33 */ jpayne@69: EXTERN mp_err TclBN_mp_neg(const mp_int *a, mp_int *b); jpayne@69: /* 34 */ jpayne@69: EXTERN mp_err TclBN_mp_or(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 35 */ jpayne@69: EXTERN mp_err TclBN_mp_radix_size(const mp_int *a, int radix, jpayne@69: int *size); jpayne@69: /* 36 */ jpayne@69: EXTERN mp_err TclBN_mp_read_radix(mp_int *a, const char *str, jpayne@69: int radix); jpayne@69: /* 37 */ jpayne@69: EXTERN void TclBN_mp_rshd(mp_int *a, int shift); jpayne@69: /* 38 */ jpayne@69: EXTERN mp_err TclBN_mp_shrink(mp_int *a); jpayne@69: /* 39 */ jpayne@69: EXTERN void TclBN_mp_set(mp_int *a, mp_digit b); jpayne@69: /* 40 */ jpayne@69: EXTERN mp_err TclBN_mp_sqr(const mp_int *a, mp_int *b); jpayne@69: /* 41 */ jpayne@69: EXTERN mp_err TclBN_mp_sqrt(const mp_int *a, mp_int *b); jpayne@69: /* 42 */ jpayne@69: EXTERN mp_err TclBN_mp_sub(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 43 */ jpayne@69: EXTERN mp_err TclBN_mp_sub_d(const mp_int *a, mp_digit b, jpayne@69: mp_int *c); jpayne@69: /* 44 */ jpayne@69: EXTERN mp_err TclBN_mp_to_unsigned_bin(const mp_int *a, jpayne@69: unsigned char *b); jpayne@69: /* 45 */ jpayne@69: EXTERN mp_err TclBN_mp_to_unsigned_bin_n(const mp_int *a, jpayne@69: unsigned char *b, unsigned long *outlen); jpayne@69: /* 46 */ jpayne@69: EXTERN mp_err TclBN_mp_toradix_n(const mp_int *a, char *str, jpayne@69: int radix, int maxlen); jpayne@69: /* 47 */ jpayne@69: EXTERN size_t TclBN_mp_unsigned_bin_size(const mp_int *a); jpayne@69: /* 48 */ jpayne@69: EXTERN mp_err TclBN_mp_xor(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 49 */ jpayne@69: EXTERN void TclBN_mp_zero(mp_int *a); jpayne@69: /* 50 */ jpayne@69: EXTERN void TclBN_reverse(unsigned char *s, int len); jpayne@69: /* 51 */ jpayne@69: EXTERN mp_err TclBN_fast_s_mp_mul_digs(const mp_int *a, jpayne@69: const mp_int *b, mp_int *c, int digs); jpayne@69: /* 52 */ jpayne@69: EXTERN mp_err TclBN_fast_s_mp_sqr(const mp_int *a, mp_int *b); jpayne@69: /* 53 */ jpayne@69: EXTERN mp_err TclBN_mp_karatsuba_mul(const mp_int *a, jpayne@69: const mp_int *b, mp_int *c); jpayne@69: /* 54 */ jpayne@69: EXTERN mp_err TclBN_mp_karatsuba_sqr(const mp_int *a, mp_int *b); jpayne@69: /* 55 */ jpayne@69: EXTERN mp_err TclBN_mp_toom_mul(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 56 */ jpayne@69: EXTERN mp_err TclBN_mp_toom_sqr(const mp_int *a, mp_int *b); jpayne@69: /* 57 */ jpayne@69: EXTERN mp_err TclBN_s_mp_add(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 58 */ jpayne@69: EXTERN mp_err TclBN_s_mp_mul_digs(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c, int digs); jpayne@69: /* 59 */ jpayne@69: EXTERN mp_err TclBN_s_mp_sqr(const mp_int *a, mp_int *b); jpayne@69: /* 60 */ jpayne@69: EXTERN mp_err TclBN_s_mp_sub(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 61 */ jpayne@69: EXTERN mp_err TclBN_mp_init_set_int(mp_int *a, unsigned long i); jpayne@69: /* 62 */ jpayne@69: EXTERN mp_err TclBN_mp_set_int(mp_int *a, unsigned long i); jpayne@69: /* 63 */ jpayne@69: EXTERN int TclBN_mp_cnt_lsb(const mp_int *a); jpayne@69: /* 64 */ jpayne@69: EXTERN int TclBNInitBignumFromLong(mp_int *bignum, long initVal); jpayne@69: /* 65 */ jpayne@69: EXTERN int TclBNInitBignumFromWideInt(mp_int *bignum, jpayne@69: Tcl_WideInt initVal); jpayne@69: /* 66 */ jpayne@69: EXTERN int TclBNInitBignumFromWideUInt(mp_int *bignum, jpayne@69: Tcl_WideUInt initVal); jpayne@69: /* 67 */ jpayne@69: EXTERN mp_err TclBN_mp_expt_d_ex(const mp_int *a, mp_digit b, jpayne@69: mp_int *c, int fast); jpayne@69: /* 68 */ jpayne@69: EXTERN void TclBN_mp_set_ull(mp_int *a, Tcl_WideUInt i); jpayne@69: /* 69 */ jpayne@69: EXTERN Tcl_WideUInt TclBN_mp_get_mag_ull(const mp_int *a); jpayne@69: /* 70 */ jpayne@69: EXTERN void TclBN_mp_set_ll(mp_int *a, Tcl_WideInt i); jpayne@69: /* Slot 71 is reserved */ jpayne@69: /* Slot 72 is reserved */ jpayne@69: /* 73 */ jpayne@69: EXTERN mp_err TclBN_mp_tc_and(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 74 */ jpayne@69: EXTERN mp_err TclBN_mp_tc_or(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 75 */ jpayne@69: EXTERN mp_err TclBN_mp_tc_xor(const mp_int *a, const mp_int *b, jpayne@69: mp_int *c); jpayne@69: /* 76 */ jpayne@69: EXTERN mp_err TclBN_mp_signed_rsh(const mp_int *a, int b, jpayne@69: mp_int *c); jpayne@69: /* Slot 77 is reserved */ jpayne@69: /* 78 */ jpayne@69: EXTERN int TclBN_mp_to_ubin(const mp_int *a, unsigned char *buf, jpayne@69: size_t maxlen, size_t *written); jpayne@69: /* 79 */ jpayne@69: EXTERN mp_err TclBN_mp_div_ld(const mp_int *a, Tcl_WideUInt b, jpayne@69: mp_int *q, Tcl_WideUInt *r); jpayne@69: /* 80 */ jpayne@69: EXTERN int TclBN_mp_to_radix(const mp_int *a, char *str, jpayne@69: size_t maxlen, size_t *written, int radix); jpayne@69: jpayne@69: typedef struct TclTomMathStubs { jpayne@69: int magic; jpayne@69: void *hooks; jpayne@69: jpayne@69: int (*tclBN_epoch) (void); /* 0 */ jpayne@69: int (*tclBN_revision) (void); /* 1 */ jpayne@69: mp_err (*tclBN_mp_add) (const mp_int *a, const mp_int *b, mp_int *c); /* 2 */ jpayne@69: mp_err (*tclBN_mp_add_d) (const mp_int *a, mp_digit b, mp_int *c); /* 3 */ jpayne@69: mp_err (*tclBN_mp_and) (const mp_int *a, const mp_int *b, mp_int *c); /* 4 */ jpayne@69: void (*tclBN_mp_clamp) (mp_int *a); /* 5 */ jpayne@69: void (*tclBN_mp_clear) (mp_int *a); /* 6 */ jpayne@69: void (*tclBN_mp_clear_multi) (mp_int *a, ...); /* 7 */ jpayne@69: mp_ord (*tclBN_mp_cmp) (const mp_int *a, const mp_int *b); /* 8 */ jpayne@69: mp_ord (*tclBN_mp_cmp_d) (const mp_int *a, mp_digit b); /* 9 */ jpayne@69: mp_ord (*tclBN_mp_cmp_mag) (const mp_int *a, const mp_int *b); /* 10 */ jpayne@69: mp_err (*tclBN_mp_copy) (const mp_int *a, mp_int *b); /* 11 */ jpayne@69: int (*tclBN_mp_count_bits) (const mp_int *a); /* 12 */ jpayne@69: mp_err (*tclBN_mp_div) (const mp_int *a, const mp_int *b, mp_int *q, mp_int *r); /* 13 */ jpayne@69: mp_err (*tclBN_mp_div_d) (const mp_int *a, mp_digit b, mp_int *q, mp_digit *r); /* 14 */ jpayne@69: mp_err (*tclBN_mp_div_2) (const mp_int *a, mp_int *q); /* 15 */ jpayne@69: mp_err (*tclBN_mp_div_2d) (const mp_int *a, int b, mp_int *q, mp_int *r); /* 16 */ jpayne@69: mp_err (*tclBN_mp_div_3) (const mp_int *a, mp_int *q, mp_digit *r); /* 17 */ jpayne@69: void (*tclBN_mp_exch) (mp_int *a, mp_int *b); /* 18 */ jpayne@69: mp_err (*tclBN_mp_expt_d) (const mp_int *a, unsigned int b, mp_int *c); /* 19 */ jpayne@69: mp_err (*tclBN_mp_grow) (mp_int *a, int size); /* 20 */ jpayne@69: mp_err (*tclBN_mp_init) (mp_int *a); /* 21 */ jpayne@69: mp_err (*tclBN_mp_init_copy) (mp_int *a, const mp_int *b); /* 22 */ jpayne@69: mp_err (*tclBN_mp_init_multi) (mp_int *a, ...); /* 23 */ jpayne@69: mp_err (*tclBN_mp_init_set) (mp_int *a, mp_digit b); /* 24 */ jpayne@69: mp_err (*tclBN_mp_init_size) (mp_int *a, int size); /* 25 */ jpayne@69: mp_err (*tclBN_mp_lshd) (mp_int *a, int shift); /* 26 */ jpayne@69: mp_err (*tclBN_mp_mod) (const mp_int *a, const mp_int *b, mp_int *r); /* 27 */ jpayne@69: mp_err (*tclBN_mp_mod_2d) (const mp_int *a, int b, mp_int *r); /* 28 */ jpayne@69: mp_err (*tclBN_mp_mul) (const mp_int *a, const mp_int *b, mp_int *p); /* 29 */ jpayne@69: mp_err (*tclBN_mp_mul_d) (const mp_int *a, mp_digit b, mp_int *p); /* 30 */ jpayne@69: mp_err (*tclBN_mp_mul_2) (const mp_int *a, mp_int *p); /* 31 */ jpayne@69: mp_err (*tclBN_mp_mul_2d) (const mp_int *a, int d, mp_int *p); /* 32 */ jpayne@69: mp_err (*tclBN_mp_neg) (const mp_int *a, mp_int *b); /* 33 */ jpayne@69: mp_err (*tclBN_mp_or) (const mp_int *a, const mp_int *b, mp_int *c); /* 34 */ jpayne@69: mp_err (*tclBN_mp_radix_size) (const mp_int *a, int radix, int *size); /* 35 */ jpayne@69: mp_err (*tclBN_mp_read_radix) (mp_int *a, const char *str, int radix); /* 36 */ jpayne@69: void (*tclBN_mp_rshd) (mp_int *a, int shift); /* 37 */ jpayne@69: mp_err (*tclBN_mp_shrink) (mp_int *a); /* 38 */ jpayne@69: void (*tclBN_mp_set) (mp_int *a, mp_digit b); /* 39 */ jpayne@69: mp_err (*tclBN_mp_sqr) (const mp_int *a, mp_int *b); /* 40 */ jpayne@69: mp_err (*tclBN_mp_sqrt) (const mp_int *a, mp_int *b); /* 41 */ jpayne@69: mp_err (*tclBN_mp_sub) (const mp_int *a, const mp_int *b, mp_int *c); /* 42 */ jpayne@69: mp_err (*tclBN_mp_sub_d) (const mp_int *a, mp_digit b, mp_int *c); /* 43 */ jpayne@69: mp_err (*tclBN_mp_to_unsigned_bin) (const mp_int *a, unsigned char *b); /* 44 */ jpayne@69: mp_err (*tclBN_mp_to_unsigned_bin_n) (const mp_int *a, unsigned char *b, unsigned long *outlen); /* 45 */ jpayne@69: mp_err (*tclBN_mp_toradix_n) (const mp_int *a, char *str, int radix, int maxlen); /* 46 */ jpayne@69: size_t (*tclBN_mp_unsigned_bin_size) (const mp_int *a); /* 47 */ jpayne@69: mp_err (*tclBN_mp_xor) (const mp_int *a, const mp_int *b, mp_int *c); /* 48 */ jpayne@69: void (*tclBN_mp_zero) (mp_int *a); /* 49 */ jpayne@69: void (*tclBN_reverse) (unsigned char *s, int len); /* 50 */ jpayne@69: mp_err (*tclBN_fast_s_mp_mul_digs) (const mp_int *a, const mp_int *b, mp_int *c, int digs); /* 51 */ jpayne@69: mp_err (*tclBN_fast_s_mp_sqr) (const mp_int *a, mp_int *b); /* 52 */ jpayne@69: mp_err (*tclBN_mp_karatsuba_mul) (const mp_int *a, const mp_int *b, mp_int *c); /* 53 */ jpayne@69: mp_err (*tclBN_mp_karatsuba_sqr) (const mp_int *a, mp_int *b); /* 54 */ jpayne@69: mp_err (*tclBN_mp_toom_mul) (const mp_int *a, const mp_int *b, mp_int *c); /* 55 */ jpayne@69: mp_err (*tclBN_mp_toom_sqr) (const mp_int *a, mp_int *b); /* 56 */ jpayne@69: mp_err (*tclBN_s_mp_add) (const mp_int *a, const mp_int *b, mp_int *c); /* 57 */ jpayne@69: mp_err (*tclBN_s_mp_mul_digs) (const mp_int *a, const mp_int *b, mp_int *c, int digs); /* 58 */ jpayne@69: mp_err (*tclBN_s_mp_sqr) (const mp_int *a, mp_int *b); /* 59 */ jpayne@69: mp_err (*tclBN_s_mp_sub) (const mp_int *a, const mp_int *b, mp_int *c); /* 60 */ jpayne@69: mp_err (*tclBN_mp_init_set_int) (mp_int *a, unsigned long i); /* 61 */ jpayne@69: mp_err (*tclBN_mp_set_int) (mp_int *a, unsigned long i); /* 62 */ jpayne@69: int (*tclBN_mp_cnt_lsb) (const mp_int *a); /* 63 */ jpayne@69: int (*tclBNInitBignumFromLong) (mp_int *bignum, long initVal); /* 64 */ jpayne@69: int (*tclBNInitBignumFromWideInt) (mp_int *bignum, Tcl_WideInt initVal); /* 65 */ jpayne@69: int (*tclBNInitBignumFromWideUInt) (mp_int *bignum, Tcl_WideUInt initVal); /* 66 */ jpayne@69: mp_err (*tclBN_mp_expt_d_ex) (const mp_int *a, mp_digit b, mp_int *c, int fast); /* 67 */ jpayne@69: void (*tclBN_mp_set_ull) (mp_int *a, Tcl_WideUInt i); /* 68 */ jpayne@69: Tcl_WideUInt (*tclBN_mp_get_mag_ull) (const mp_int *a); /* 69 */ jpayne@69: void (*tclBN_mp_set_ll) (mp_int *a, Tcl_WideInt i); /* 70 */ jpayne@69: void (*reserved71)(void); jpayne@69: void (*reserved72)(void); jpayne@69: mp_err (*tclBN_mp_tc_and) (const mp_int *a, const mp_int *b, mp_int *c); /* 73 */ jpayne@69: mp_err (*tclBN_mp_tc_or) (const mp_int *a, const mp_int *b, mp_int *c); /* 74 */ jpayne@69: mp_err (*tclBN_mp_tc_xor) (const mp_int *a, const mp_int *b, mp_int *c); /* 75 */ jpayne@69: mp_err (*tclBN_mp_signed_rsh) (const mp_int *a, int b, mp_int *c); /* 76 */ jpayne@69: void (*reserved77)(void); jpayne@69: int (*tclBN_mp_to_ubin) (const mp_int *a, unsigned char *buf, size_t maxlen, size_t *written); /* 78 */ jpayne@69: mp_err (*tclBN_mp_div_ld) (const mp_int *a, Tcl_WideUInt b, mp_int *q, Tcl_WideUInt *r); /* 79 */ jpayne@69: int (*tclBN_mp_to_radix) (const mp_int *a, char *str, size_t maxlen, size_t *written, int radix); /* 80 */ jpayne@69: } TclTomMathStubs; jpayne@69: jpayne@69: extern const TclTomMathStubs *tclTomMathStubsPtr; jpayne@69: jpayne@69: #ifdef __cplusplus jpayne@69: } jpayne@69: #endif jpayne@69: jpayne@69: #if defined(USE_TCL_STUBS) jpayne@69: jpayne@69: /* jpayne@69: * Inline function declarations: jpayne@69: */ jpayne@69: jpayne@69: #define TclBN_epoch \ jpayne@69: (tclTomMathStubsPtr->tclBN_epoch) /* 0 */ jpayne@69: #define TclBN_revision \ jpayne@69: (tclTomMathStubsPtr->tclBN_revision) /* 1 */ jpayne@69: #define TclBN_mp_add \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_add) /* 2 */ jpayne@69: #define TclBN_mp_add_d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_add_d) /* 3 */ jpayne@69: #define TclBN_mp_and \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_and) /* 4 */ jpayne@69: #define TclBN_mp_clamp \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_clamp) /* 5 */ jpayne@69: #define TclBN_mp_clear \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_clear) /* 6 */ jpayne@69: #define TclBN_mp_clear_multi \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_clear_multi) /* 7 */ jpayne@69: #define TclBN_mp_cmp \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_cmp) /* 8 */ jpayne@69: #define TclBN_mp_cmp_d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_cmp_d) /* 9 */ jpayne@69: #define TclBN_mp_cmp_mag \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_cmp_mag) /* 10 */ jpayne@69: #define TclBN_mp_copy \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_copy) /* 11 */ jpayne@69: #define TclBN_mp_count_bits \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_count_bits) /* 12 */ jpayne@69: #define TclBN_mp_div \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_div) /* 13 */ jpayne@69: #define TclBN_mp_div_d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_div_d) /* 14 */ jpayne@69: #define TclBN_mp_div_2 \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_div_2) /* 15 */ jpayne@69: #define TclBN_mp_div_2d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_div_2d) /* 16 */ jpayne@69: #define TclBN_mp_div_3 \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_div_3) /* 17 */ jpayne@69: #define TclBN_mp_exch \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_exch) /* 18 */ jpayne@69: #define TclBN_mp_expt_d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_expt_d) /* 19 */ jpayne@69: #define TclBN_mp_grow \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_grow) /* 20 */ jpayne@69: #define TclBN_mp_init \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_init) /* 21 */ jpayne@69: #define TclBN_mp_init_copy \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_init_copy) /* 22 */ jpayne@69: #define TclBN_mp_init_multi \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_init_multi) /* 23 */ jpayne@69: #define TclBN_mp_init_set \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_init_set) /* 24 */ jpayne@69: #define TclBN_mp_init_size \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_init_size) /* 25 */ jpayne@69: #define TclBN_mp_lshd \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_lshd) /* 26 */ jpayne@69: #define TclBN_mp_mod \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_mod) /* 27 */ jpayne@69: #define TclBN_mp_mod_2d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_mod_2d) /* 28 */ jpayne@69: #define TclBN_mp_mul \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_mul) /* 29 */ jpayne@69: #define TclBN_mp_mul_d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_mul_d) /* 30 */ jpayne@69: #define TclBN_mp_mul_2 \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_mul_2) /* 31 */ jpayne@69: #define TclBN_mp_mul_2d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_mul_2d) /* 32 */ jpayne@69: #define TclBN_mp_neg \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_neg) /* 33 */ jpayne@69: #define TclBN_mp_or \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_or) /* 34 */ jpayne@69: #define TclBN_mp_radix_size \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_radix_size) /* 35 */ jpayne@69: #define TclBN_mp_read_radix \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_read_radix) /* 36 */ jpayne@69: #define TclBN_mp_rshd \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_rshd) /* 37 */ jpayne@69: #define TclBN_mp_shrink \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_shrink) /* 38 */ jpayne@69: #define TclBN_mp_set \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_set) /* 39 */ jpayne@69: #define TclBN_mp_sqr \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_sqr) /* 40 */ jpayne@69: #define TclBN_mp_sqrt \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_sqrt) /* 41 */ jpayne@69: #define TclBN_mp_sub \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_sub) /* 42 */ jpayne@69: #define TclBN_mp_sub_d \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_sub_d) /* 43 */ jpayne@69: #define TclBN_mp_to_unsigned_bin \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin) /* 44 */ jpayne@69: #define TclBN_mp_to_unsigned_bin_n \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_to_unsigned_bin_n) /* 45 */ jpayne@69: #define TclBN_mp_toradix_n \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_toradix_n) /* 46 */ jpayne@69: #define TclBN_mp_unsigned_bin_size \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_unsigned_bin_size) /* 47 */ jpayne@69: #define TclBN_mp_xor \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_xor) /* 48 */ jpayne@69: #define TclBN_mp_zero \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_zero) /* 49 */ jpayne@69: #define TclBN_reverse \ jpayne@69: (tclTomMathStubsPtr->tclBN_reverse) /* 50 */ jpayne@69: #define TclBN_fast_s_mp_mul_digs \ jpayne@69: (tclTomMathStubsPtr->tclBN_fast_s_mp_mul_digs) /* 51 */ jpayne@69: #define TclBN_fast_s_mp_sqr \ jpayne@69: (tclTomMathStubsPtr->tclBN_fast_s_mp_sqr) /* 52 */ jpayne@69: #define TclBN_mp_karatsuba_mul \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_karatsuba_mul) /* 53 */ jpayne@69: #define TclBN_mp_karatsuba_sqr \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_karatsuba_sqr) /* 54 */ jpayne@69: #define TclBN_mp_toom_mul \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_toom_mul) /* 55 */ jpayne@69: #define TclBN_mp_toom_sqr \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_toom_sqr) /* 56 */ jpayne@69: #define TclBN_s_mp_add \ jpayne@69: (tclTomMathStubsPtr->tclBN_s_mp_add) /* 57 */ jpayne@69: #define TclBN_s_mp_mul_digs \ jpayne@69: (tclTomMathStubsPtr->tclBN_s_mp_mul_digs) /* 58 */ jpayne@69: #define TclBN_s_mp_sqr \ jpayne@69: (tclTomMathStubsPtr->tclBN_s_mp_sqr) /* 59 */ jpayne@69: #define TclBN_s_mp_sub \ jpayne@69: (tclTomMathStubsPtr->tclBN_s_mp_sub) /* 60 */ jpayne@69: #define TclBN_mp_init_set_int \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_init_set_int) /* 61 */ jpayne@69: #define TclBN_mp_set_int \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_set_int) /* 62 */ jpayne@69: #define TclBN_mp_cnt_lsb \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_cnt_lsb) /* 63 */ jpayne@69: #define TclBNInitBignumFromLong \ jpayne@69: (tclTomMathStubsPtr->tclBNInitBignumFromLong) /* 64 */ jpayne@69: #define TclBNInitBignumFromWideInt \ jpayne@69: (tclTomMathStubsPtr->tclBNInitBignumFromWideInt) /* 65 */ jpayne@69: #define TclBNInitBignumFromWideUInt \ jpayne@69: (tclTomMathStubsPtr->tclBNInitBignumFromWideUInt) /* 66 */ jpayne@69: #define TclBN_mp_expt_d_ex \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_expt_d_ex) /* 67 */ jpayne@69: #define TclBN_mp_set_ull \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_set_ull) /* 68 */ jpayne@69: #define TclBN_mp_get_mag_ull \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_get_mag_ull) /* 69 */ jpayne@69: #define TclBN_mp_set_ll \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_set_ll) /* 70 */ jpayne@69: /* Slot 71 is reserved */ jpayne@69: /* Slot 72 is reserved */ jpayne@69: #define TclBN_mp_tc_and \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_tc_and) /* 73 */ jpayne@69: #define TclBN_mp_tc_or \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_tc_or) /* 74 */ jpayne@69: #define TclBN_mp_tc_xor \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_tc_xor) /* 75 */ jpayne@69: #define TclBN_mp_signed_rsh \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_signed_rsh) /* 76 */ jpayne@69: /* Slot 77 is reserved */ jpayne@69: #define TclBN_mp_to_ubin \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_to_ubin) /* 78 */ jpayne@69: #define TclBN_mp_div_ld \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_div_ld) /* 79 */ jpayne@69: #define TclBN_mp_to_radix \ jpayne@69: (tclTomMathStubsPtr->tclBN_mp_to_radix) /* 80 */ jpayne@69: jpayne@69: #endif /* defined(USE_TCL_STUBS) */ jpayne@69: jpayne@69: /* !END!: Do not edit above this line. */ jpayne@69: jpayne@69: #undef TCL_STORAGE_CLASS jpayne@69: #define TCL_STORAGE_CLASS DLLIMPORT jpayne@69: jpayne@69: #ifdef USE_TCL_STUBS jpayne@69: #undef TclBNInitBignumFromLong jpayne@69: #define TclBNInitBignumFromLong(a,b) \ jpayne@69: do { \ jpayne@69: (a)->dp = NULL; \ jpayne@69: (void)tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(b)); \ jpayne@69: if ((a)->dp == NULL) { \ jpayne@69: Tcl_Panic("initialization failure in TclBNInitBignumFromLong"); \ jpayne@69: } \ jpayne@69: } while (0) jpayne@69: #undef TclBNInitBignumFromWideInt jpayne@69: #define TclBNInitBignumFromWideInt(a,b) \ jpayne@69: do { \ jpayne@69: (a)->dp = NULL; \ jpayne@69: (void)tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)); \ jpayne@69: if ((a)->dp == NULL) { \ jpayne@69: Tcl_Panic("initialization failure in TclBNInitBignumFromWideInt"); \ jpayne@69: } \ jpayne@69: } while (0) jpayne@69: #undef TclBNInitBignumFromWideUInt jpayne@69: #define TclBNInitBignumFromWideUInt(a,b) \ jpayne@69: do { \ jpayne@69: (a)->dp = NULL; \ jpayne@69: (void)tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)); \ jpayne@69: if ((a)->dp == NULL) { \ jpayne@69: Tcl_Panic("initialization failure in TclBNInitBignumFromWideUInt"); \ jpayne@69: } \ jpayne@69: } while (0) jpayne@69: #define mp_init_i32(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(int32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_l(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromLong((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_ll(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_i64(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_u32(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(uint32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_ul(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(unsigned long)(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_ull(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_u64(a,b) (((a)->dp=NULL,tclTomMathStubsPtr->tclBNInitBignumFromWideUInt((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #else jpayne@69: #define mp_init_i32(a,b) (((a)->dp=NULL,(TclBNInitBignumFromLong)((a),(int32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_l(a,b) (((a)->dp=NULL,(TclBNInitBignumFromLong)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_ll(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_i64(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_u32(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(uint32_t)(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_ul(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(unsigned long)(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_ull(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #define mp_init_u64(a,b) (((a)->dp=NULL,(TclBNInitBignumFromWideUInt)((a),(b)),(a)->dp)?MP_OKAY:MP_ERR) jpayne@69: #endif /* USE_TCL_STUBS */ jpayne@69: #endif /* _TCLINTDECLS */