diff options
Diffstat (limited to 'generic/tclTomMathInterface.c')
| -rw-r--r-- | generic/tclTomMathInterface.c | 119 |
1 files changed, 66 insertions, 53 deletions
diff --git a/generic/tclTomMathInterface.c b/generic/tclTomMathInterface.c index 7eda5c3..866cf08 100644 --- a/generic/tclTomMathInterface.c +++ b/generic/tclTomMathInterface.c @@ -3,15 +3,15 @@ * * tclTomMathInterface.c -- * - * This file contains procedures that are used as a 'glue' - * layer between Tcl and libtommath. + * This file contains procedures that are used as a 'glue' layer between + * Tcl and libtommath. * * Copyright (c) 2005 by Kevin B. Kenny. All rights reserved. * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. + * See the file "license.terms" for information on usage and redistribution of + * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTomMathInterface.c,v 1.3 2005/10/08 14:42:45 dgp Exp $ + * RCS: @(#) $Id: tclTomMathInterface.c,v 1.4 2005/10/12 23:51:44 dkf Exp $ */ #include "tclInt.h" @@ -28,38 +28,41 @@ * Results: * Returns a pointer to the allocated block. * - * This procedure is a wrapper around Tcl_Alloc, needed because of - * a mismatched type signature between Tcl_Alloc and malloc. + * This procedure is a wrapper around Tcl_Alloc, needed because of a + * mismatched type signature between Tcl_Alloc and malloc. * *---------------------------------------------------------------------- - */ + */ extern void * -TclBNAlloc( size_t x ) +TclBNAlloc( + size_t x) { - return (void*) Tcl_Alloc( (unsigned int) x ); + return (void *) Tcl_Alloc((unsigned int) x); } /* *---------------------------------------------------------------------- * - * TclBNAlloc -- + * TclBNRealloc -- * * Change the size of an allocated block of memory in libtommath * * Results: * Returns a pointer to the allocated block. * - * This procedure is a wrapper around Tcl_Realloc, needed because of - * a mismatched type signature between Tcl_Realloc and realloc. + * This procedure is a wrapper around Tcl_Realloc, needed because of a + * mismatched type signature between Tcl_Realloc and realloc. * *---------------------------------------------------------------------- - */ + */ extern void * -TclBNRealloc( void* p, size_t s ) +TclBNRealloc( + void *p, + size_t s) { - return (void*) Tcl_Realloc( (char*) p, (unsigned int) s ); + return (void *) Tcl_Realloc((char *) p, (unsigned int) s); } /* @@ -75,16 +78,17 @@ TclBNRealloc( void* p, size_t s ) * Side effects: * Memory is freed. * - * This function is simply a wrapper around Tcl_Free, needed in - * libtommath because of a type mismatch between free and Tcl_Free. + * This function is simply a wrapper around Tcl_Free, needed in libtommath + * because of a type mismatch between free and Tcl_Free. * *---------------------------------------------------------------------- */ extern void -TclBNFree( void* p ) +TclBNFree( + void *p) { - Tcl_Free( (char*) p); + Tcl_Free((char *) p); } /* @@ -104,9 +108,10 @@ TclBNFree( void* p ) */ extern void -TclBNInitBignumFromLong( mp_int* a, long initVal ) +TclBNInitBignumFromLong( + mp_int *a, + long initVal) { - int status; unsigned long v; mp_digit* p; @@ -115,15 +120,17 @@ TclBNInitBignumFromLong( mp_int* a, long initVal ) * Allocate enough memory to hold the largest possible long */ - status = mp_init_size( a, ( ( CHAR_BIT * sizeof( long ) + DIGIT_BIT - 1 ) - / DIGIT_BIT ) ); - if ( status != MP_OKAY ) { - Tcl_Panic( "initialization failure in TclBNInitBignumFromLong" ); + status = mp_init_size(a, + (CHAR_BIT * sizeof(long) + DIGIT_BIT - 1) / DIGIT_BIT); + if (status != MP_OKAY) { + Tcl_Panic("initialization failure in TclBNInitBignumFromLong"); } - - /* Convert arg to sign and magnitude */ - if ( initVal < 0 ) { + /* + * Convert arg to sign and magnitude. + */ + + if (initVal < 0) { a->sign = MP_NEG; v = -initVal; } else { @@ -131,15 +138,16 @@ TclBNInitBignumFromLong( mp_int* a, long initVal ) v = initVal; } - /* Store the magnitude in the bignum. */ + /* + * Store the magnitude in the bignum. + */ p = a->dp; - while ( v ) { - *p++ = (mp_digit) ( v & MP_MASK ); + while (v) { + *p++ = (mp_digit) (v & MP_MASK); v >>= MP_DIGIT_BIT; } a->used = p - a->dp; - } /* @@ -159,10 +167,9 @@ TclBNInitBignumFromLong( mp_int* a, long initVal ) */ extern void -TclBNInitBignumFromWideInt(mp_int* a, - /* Bignum to initialize */ - Tcl_WideInt v) - /* Initial value */ +TclBNInitBignumFromWideInt( + mp_int *a, /* Bignum to initialize */ + Tcl_WideInt v) /* Initial value */ { if (v < (Tcl_WideInt)0) { TclBNInitBignumFromWideUInt(a, (Tcl_WideUInt)(-v)); @@ -189,35 +196,41 @@ TclBNInitBignumFromWideInt(mp_int* a, */ extern void -TclBNInitBignumFromWideUInt(mp_int* a, - /* Bignum to initialize */ - Tcl_WideUInt v) - /* Initial value */ +TclBNInitBignumFromWideUInt( + mp_int *a, /* Bignum to initialize */ + Tcl_WideUInt v) /* Initial value */ { - int status; - mp_digit* p; + mp_digit *p; /* - * Allocate enough memory to hold the largest possible Tcl_WideUInt + * Allocate enough memory to hold the largest possible Tcl_WideUInt. */ - status = mp_init_size(a, ((CHAR_BIT * sizeof( Tcl_WideUInt ) - + DIGIT_BIT - 1) - / DIGIT_BIT)); + status = mp_init_size(a, + (CHAR_BIT * sizeof(Tcl_WideUInt) + DIGIT_BIT - 1) / DIGIT_BIT); if (status != MP_OKAY) { - Tcl_Panic( "initialization failure in TclBNInitBignumFromWideUInt" ); + Tcl_Panic("initialization failure in TclBNInitBignumFromWideUInt"); } - + a->sign = MP_ZPOS; - /* Store the magnitude in the bignum. */ + /* + * Store the magnitude in the bignum. + */ p = a->dp; - while ( v ) { - *p++ = (mp_digit) ( v & MP_MASK ); + while (vd) { + *p++ = (mp_digit) (v & MP_MASK); v >>= MP_DIGIT_BIT; } a->used = p - a->dp; - } + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ |