Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: downloads/tcl8.5.2/libtommath/bn_mp_cmp.c @ 37

Last change on this file since 37 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_CMP_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/* compare two ints (signed)*/
19int
20mp_cmp (mp_int * a, mp_int * b)
21{
22  /* compare based on sign */
23  if (a->sign != b->sign) {
24     if (a->sign == MP_NEG) {
25        return MP_LT;
26     } else {
27        return MP_GT;
28     }
29  }
30 
31  /* compare digits */
32  if (a->sign == MP_NEG) {
33     /* if negative compare opposite direction */
34     return mp_cmp_mag(b, a);
35  } else {
36     return mp_cmp_mag(a, b);
37  }
38}
39#endif
40
41/* $Source: /cvsroot/tcl/libtommath/bn_mp_cmp.c,v $ */
42/* $Revision: 1.1.1.3 $ */
43/* $Date: 2006/12/01 00:08:11 $ */
Note: See TracBrowser for help on using the repository browser.