Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: downloads/tcl8.5.2/libtommath/bn_mp_clear.c @ 25

Last change on this file since 25 was 25, checked in by landauf, 16 years ago

added tcl to libs

File size: 1.1 KB
Line 
1#include <tommath.h>
2#ifdef BN_MP_CLEAR_C
3/* LibTomMath, multiple-precision integer library -- Tom St Denis
4 *
5 * LibTomMath is a library that provides multiple-precision
6 * integer arithmetic as well as number theoretic functionality.
7 *
8 * The library was designed directly after the MPI library by
9 * Michael Fromberger but has been written from scratch with
10 * additional optimizations in place.
11 *
12 * The library is free for all purposes without any express
13 * guarantee it works.
14 *
15 * Tom St Denis, tomstdenis@gmail.com, http://math.libtomcrypt.com
16 */
17
18/* clear one (frees)  */
19void
20mp_clear (mp_int * a)
21{
22  int i;
23
24  /* only do anything if a hasn't been freed previously */
25  if (a->dp != NULL) {
26    /* first zero the digits */
27    for (i = 0; i < a->used; i++) {
28        a->dp[i] = 0;
29    }
30
31    /* free ram */
32    XFREE(a->dp);
33
34    /* reset members to make debugging easier */
35    a->dp    = NULL;
36    a->alloc = a->used = 0;
37    a->sign  = MP_ZPOS;
38  }
39}
40#endif
41
42/* $Source: /cvsroot/tcl/libtommath/bn_mp_clear.c,v $ */
43/* $Revision: 1.1.1.3 $ */
44/* $Date: 2006/12/01 00:08:11 $ */
Note: See TracBrowser for help on using the repository browser.