mpi-genesis~ 1
mpi-genesis~ 2 * Copyright (C) 1998, 1999 Free Software Foundation, Inc.
mpi-genesis~ 3 *
mpi-genesis~ 4 * This file is part of GnuPG.
mpi-genesis~ 5 *
mpi-genesis~ 6 * GnuPG is free software; you can redistribute it and/or modify
mpi-genesis~ 7 * it under the terms of the GNU General Public License as published by
mpi-genesis~ 8 * the Free Software Foundation; either version 3 of the License, or
mpi-genesis~ 9 * (at your option) any later version.
mpi-genesis~ 10 *
mpi-genesis~ 11 * GnuPG is distributed in the hope that it will be useful,
mpi-genesis~ 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
mpi-genesis~ 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
mpi-genesis~ 14 * GNU General Public License for more details.
mpi-genesis~ 15 *
mpi-genesis~ 16 * You should have received a copy of the GNU General Public License
mpi-genesis~ 17 * along with this program; if not, see <http:
mpi-genesis~ 18 */
mpi-genesis~ 19
mpi-genesis~ 20 #include <config.h>
mpi-genesis~ 21 #include <stdio.h>
mpi-genesis~ 22 #include <stdlib.h>
mpi-genesis~ 23 #include <string.h>
mpi-genesis~ 24 #include <assert.h>
mpi-genesis~ 25
mpi-genesis~ 26 #include "mpi.h"
mpi-genesis~ 27 #include "mpi-internal.h"
mpi-genesis~ 28 #include "memory.h"
mpi-genesis~ 29 #include "util.h"
mpi-genesis~ 30
mpi-genesis~ 31
mpi-genesis~ 32 #ifdef M_DEBUG
mpi-genesis~ 33 #undef mpi_alloc
mpi-genesis~ 34 #undef mpi_alloc_secure
mpi-genesis~ 35 #undef mpi_free
mpi-genesis~ 36 #endif
mpi-genesis~ 37
mpi-genesis~ 38
mpi-genesis~ 39 * Note: It was a bad idea to use the number of limbs to allocate
mpi-genesis~ 40 * because on a alpha the limbs are large but we normally need
mpi-genesis~ 41 * integers of n bits - So we should chnage this to bits (or bytes).
mpi-genesis~ 42 *
mpi-genesis~ 43 * But mpi_alloc is used in a lot of places :-)
mpi-genesis~ 44 */
mpi-genesis~ 45 MPI
mpi-genesis~ 46 #ifdef M_DEBUG
mpi-genesis~ 47 mpi_debug_alloc( unsigned nlimbs, const char *info )
mpi-genesis~ 48 #else
mpi-genesis~ 49 mpi_alloc( unsigned nlimbs )
mpi-genesis~ 50 #endif
mpi-genesis~ 51 {
mpi-genesis~ 52 MPI a;
mpi-genesis~ 53
mpi-genesis~ 54 if( DBG_MEMORY )
mpi-genesis~ 55 log_debug("mpi_alloc(%u)\n", nlimbs*BITS_PER_MPI_LIMB );
mpi-genesis~ 56 #ifdef M_DEBUG
mpi-genesis~ 57 a = m_debug_alloc( sizeof *a, info );
mpi-genesis~ 58 a->d = nlimbs? mpi_debug_alloc_limb_space( nlimbs, 0, info ) : NULL;
mpi-genesis~ 59 #else
mpi-genesis~ 60 a = xmalloc( sizeof *a );
mpi-genesis~ 61 a->d = nlimbs? mpi_alloc_limb_space( nlimbs, 0 ) : NULL;
mpi-genesis~ 62 #endif
mpi-genesis~ 63 a->alloced = nlimbs;
mpi-genesis~ 64 a->nlimbs = 0;
mpi-genesis~ 65 a->sign = 0;
mpi-genesis~ 66 a->flags = 0;
mpi-genesis~ 67 a->nbits = 0;
mpi-genesis~ 68 return a;
mpi-genesis~ 69 }
mpi-genesis~ 70
mpi-genesis~ 71 void
mpi-genesis~ 72 mpi_m_check( MPI a )
mpi-genesis~ 73 {
mpi-genesis~ 74 m_check(a);
mpi-genesis~ 75 m_check(a->d);
mpi-genesis~ 76 }
mpi-genesis~ 77
mpi-genesis~ 78 MPI
mpi-genesis~ 79 #ifdef M_DEBUG
mpi-genesis~ 80 mpi_debug_alloc_secure( unsigned nlimbs, const char *info )
mpi-genesis~ 81 #else
mpi-genesis~ 82 mpi_alloc_secure( unsigned nlimbs )
mpi-genesis~ 83 #endif
mpi-genesis~ 84 {
mpi-genesis~ 85 MPI a;
mpi-genesis~ 86
mpi-genesis~ 87 if( DBG_MEMORY )
mpi-genesis~ 88 log_debug("mpi_alloc_secure(%u)\n", nlimbs*BITS_PER_MPI_LIMB );
mpi-genesis~ 89 #ifdef M_DEBUG
mpi-genesis~ 90 a = m_debug_alloc( sizeof *a, info );
mpi-genesis~ 91 a->d = nlimbs? mpi_debug_alloc_limb_space( nlimbs, 1, info ) : NULL;
mpi-genesis~ 92 #else
mpi-genesis~ 93 a = xmalloc( sizeof *a );
mpi-genesis~ 94 a->d = nlimbs? mpi_alloc_limb_space( nlimbs, 1 ) : NULL;
mpi-genesis~ 95 #endif
mpi-genesis~ 96 a->alloced = nlimbs;
mpi-genesis~ 97 a->flags = 1;
mpi-genesis~ 98 a->nlimbs = 0;
mpi-genesis~ 99 a->sign = 0;
mpi-genesis~ 100 a->nbits = 0;
mpi-genesis~ 101 return a;
mpi-genesis~ 102 }
mpi-genesis~ 103
mpi-genesis~ 104
mpi-genesis~ 105 #if 0
mpi-genesis~ 106 static void *unused_limbs_5;
mpi-genesis~ 107 static void *unused_limbs_32;
mpi-genesis~ 108 static void *unused_limbs_64;
mpi-genesis~ 109 #endif
mpi-genesis~ 110
mpi-genesis~ 111 mpi_ptr_t
mpi-genesis~ 112 #ifdef M_DEBUG
mpi-genesis~ 113 mpi_debug_alloc_limb_space( unsigned nlimbs, int secure, const char *info )
mpi-genesis~ 114 #else
mpi-genesis~ 115 mpi_alloc_limb_space( unsigned nlimbs, int secure )
mpi-genesis~ 116 #endif
mpi-genesis~ 117 {
mpi-genesis~ 118 size_t len = nlimbs * sizeof(mpi_limb_t);
mpi-genesis~ 119 mpi_ptr_t p;
mpi-genesis~ 120
mpi-genesis~ 121 if( DBG_MEMORY )
mpi-genesis~ 122 log_debug("mpi_alloc_limb_space(%u)\n", (unsigned)len*8 );
mpi-genesis~ 123 #if 0
mpi-genesis~ 124 if( !secure ) {
mpi-genesis~ 125 if( nlimbs == 5 && unused_limbs_5 ) {
mpi-genesis~ 126 p = unused_limbs_5;
mpi-genesis~ 127 unused_limbs_5 = *p;
mpi-genesis~ 128 return p;
mpi-genesis~ 129 }
mpi-genesis~ 130 else if( nlimbs == 32 && unused_limbs_32 ) {
mpi-genesis~ 131 p = unused_limbs_32;
mpi-genesis~ 132 unused_limbs_32 = *p;
mpi-genesis~ 133 return p;
mpi-genesis~ 134 }
mpi-genesis~ 135 else if( nlimbs == 64 && unused_limbs_64 ) {
mpi-genesis~ 136 p = unused_limbs_64;
mpi-genesis~ 137 unused_limbs_64 = *p;
mpi-genesis~ 138 return p;
mpi-genesis~ 139 }
mpi-genesis~ 140 }
mpi-genesis~ 141 #endif
mpi-genesis~ 142
mpi-genesis~ 143 #ifdef M_DEBUG
mpi-genesis~ 144 p = secure? m_debug_alloc_secure(len, info):m_debug_alloc( len, info );
mpi-genesis~ 145 #else
mpi-genesis~ 146 p = secure? xmalloc_secure( len ):xmalloc( len );
mpi-genesis~ 147 #endif
mpi-genesis~ 148
mpi-genesis~ 149 return p;
mpi-genesis~ 150 }
mpi-genesis~ 151
mpi-genesis~ 152 void
mpi-genesis~ 153 #ifdef M_DEBUG
mpi-genesis~ 154 mpi_debug_free_limb_space( mpi_ptr_t a, const char *info )
mpi-genesis~ 155 #else
mpi-genesis~ 156 mpi_free_limb_space( mpi_ptr_t a )
mpi-genesis~ 157 #endif
mpi-genesis~ 158 {
mpi-genesis~ 159 if( !a )
mpi-genesis~ 160 return;
mpi-genesis~ 161 if( DBG_MEMORY )
mpi-genesis~ 162 log_debug("mpi_free_limb_space of size %lu\n", (ulong)m_size(a)*8 );
mpi-genesis~ 163
mpi-genesis~ 164 #if 0
mpi-genesis~ 165 if( !m_is_secure(a) ) {
mpi-genesis~ 166 size_t nlimbs = m_size(a) / 4 ;
mpi-genesis~ 167 void *p = a;
mpi-genesis~ 168
mpi-genesis~ 169 if( nlimbs == 5 ) {
mpi-genesis~ 170 *a = unused_limbs_5;
mpi-genesis~ 171 unused_limbs_5 = a;
mpi-genesis~ 172 return;
mpi-genesis~ 173 }
mpi-genesis~ 174 else if( nlimbs == 32 ) {
mpi-genesis~ 175 *a = unused_limbs_32;
mpi-genesis~ 176 unused_limbs_32 = a;
mpi-genesis~ 177 return;
mpi-genesis~ 178 }
mpi-genesis~ 179 else if( nlimbs == 64 ) {
mpi-genesis~ 180 *a = unused_limbs_64;
mpi-genesis~ 181 unused_limbs_64 = a;
mpi-genesis~ 182 return;
mpi-genesis~ 183 }
mpi-genesis~ 184 }
mpi-genesis~ 185 #endif
mpi-genesis~ 186
mpi-genesis~ 187 xfree(a);
mpi-genesis~ 188 }
mpi-genesis~ 189
mpi-genesis~ 190
mpi-genesis~ 191 void
mpi-genesis~ 192 mpi_assign_limb_space( MPI a, mpi_ptr_t ap, unsigned nlimbs )
mpi-genesis~ 193 {
mpi-genesis~ 194 mpi_free_limb_space(a->d);
mpi-genesis~ 195 a->d = ap;
mpi-genesis~ 196 a->alloced = nlimbs;
mpi-genesis~ 197 }
mpi-genesis~ 198
mpi-genesis~ 199
mpi-genesis~ 200
mpi-genesis~ 201
mpi-genesis~ 202 * Resize the array of A to NLIMBS. the additional space is cleared
mpi-genesis~ 203 * (set to 0) [done by xrealloc()]
mpi-genesis~ 204 */
mpi-genesis~ 205 void
mpi-genesis~ 206 #ifdef M_DEBUG
mpi-genesis~ 207 mpi_debug_resize( MPI a, unsigned nlimbs, const char *info )
mpi-genesis~ 208 #else
mpi-genesis~ 209 mpi_resize( MPI a, unsigned nlimbs )
mpi-genesis~ 210 #endif
mpi-genesis~ 211 {
mpi-genesis~ 212 if( nlimbs <= a->alloced )
mpi-genesis~ 213 return;
mpi-genesis~ 214
mpi-genesis~ 215 * take care of it. Maybe we should drop a->secure completely
mpi-genesis~ 216 * and rely on a mpi_is_secure function, which would be
mpi-genesis~ 217 * a wrapper around m_is_secure
mpi-genesis~ 218 */
mpi-genesis~ 219 #ifdef M_DEBUG
mpi-genesis~ 220 if( a->d )
mpi-genesis~ 221 a->d = m_debug_realloc(a->d, nlimbs * sizeof(mpi_limb_t), info );
mpi-genesis~ 222 else
mpi-genesis~ 223 a->d = m_debug_alloc_clear( nlimbs * sizeof(mpi_limb_t), info );
mpi-genesis~ 224 #else
mpi-genesis~ 225 if( a->d )
mpi-genesis~ 226 a->d = xrealloc(a->d, nlimbs * sizeof(mpi_limb_t) );
mpi-genesis~ 227 else
mpi-genesis~ 228 a->d = xmalloc_clear( nlimbs * sizeof(mpi_limb_t) );
mpi-genesis~ 229 #endif
mpi-genesis~ 230 a->alloced = nlimbs;
mpi-genesis~ 231 }
mpi-genesis~ 232
mpi-genesis~ 233 void
mpi-genesis~ 234 mpi_clear( MPI a )
mpi-genesis~ 235 {
mpi-genesis~ 236 a->nlimbs = 0;
mpi-genesis~ 237 a->nbits = 0;
mpi-genesis~ 238 a->flags = 0;
mpi-genesis~ 239 }
mpi-genesis~ 240
mpi-genesis~ 241
mpi-genesis~ 242 void
mpi-genesis~ 243 #ifdef M_DEBUG
mpi-genesis~ 244 mpi_debug_free( MPI a, const char *info )
mpi-genesis~ 245 #else
mpi-genesis~ 246 mpi_free( MPI a )
mpi-genesis~ 247 #endif
mpi-genesis~ 248 {
mpi-genesis~ 249 if( !a )
mpi-genesis~ 250 return;
mpi-genesis~ 251 if( DBG_MEMORY )
mpi-genesis~ 252 log_debug("mpi_free\n" );
mpi-genesis~ 253 if( a->flags & 4 )
mpi-genesis~ 254 xfree( a->d );
mpi-genesis~ 255 else {
mpi-genesis~ 256 #ifdef M_DEBUG
mpi-genesis~ 257 mpi_debug_free_limb_space(a->d, info);
mpi-genesis~ 258 #else
mpi-genesis~ 259 mpi_free_limb_space(a->d);
mpi-genesis~ 260 #endif
mpi-genesis~ 261 }
mpi-genesis~ 262 if( a->flags & ~7 )
mpi-genesis~ 263 log_bug("invalid flag value in mpi\n");
mpi-genesis~ 264 xfree(a);
mpi-genesis~ 265 }
mpi-genesis~ 266
mpi-genesis~ 267
mpi-genesis~ 268 void
mpi-genesis~ 269 mpi_set_secure( MPI a )
mpi-genesis~ 270 {
mpi-genesis~ 271 mpi_ptr_t ap, bp;
mpi-genesis~ 272
mpi-genesis~ 273 if( (a->flags & 1) )
mpi-genesis~ 274 return;
mpi-genesis~ 275 a->flags |= 1;
mpi-genesis~ 276 ap = a->d;
mpi-genesis~ 277 if( !a->nlimbs ) {
mpi-genesis~ 278 assert(!ap);
mpi-genesis~ 279 return;
mpi-genesis~ 280 }
mpi-genesis~ 281 #ifdef M_DEBUG
mpi-genesis~ 282 bp = mpi_debug_alloc_limb_space( a->nlimbs, 1, "set_secure" );
mpi-genesis~ 283 #else
mpi-genesis~ 284 bp = mpi_alloc_limb_space( a->nlimbs, 1 );
mpi-genesis~ 285 #endif
mpi-genesis~ 286 MPN_COPY( bp, ap, a->nlimbs );
mpi-genesis~ 287 a->d = bp;
mpi-genesis~ 288 #ifdef M_DEBUG
mpi-genesis~ 289 mpi_debug_free_limb_space(ap, "set_secure");
mpi-genesis~ 290 #else
mpi-genesis~ 291 mpi_free_limb_space(ap);
mpi-genesis~ 292 #endif
mpi-genesis~ 293 }
mpi-genesis~ 294
mpi-genesis~ 295
mpi-genesis~ 296 MPI
mpi-genesis~ 297 mpi_set_opaque( MPI a, void *p, unsigned int len )
mpi-genesis~ 298 {
mpi-genesis~ 299 if( !a ) {
mpi-genesis~ 300 #ifdef M_DEBUG
mpi-genesis~ 301 a = mpi_debug_alloc(0,"alloc_opaque");
mpi-genesis~ 302 #else
mpi-genesis~ 303 a = mpi_alloc(0);
mpi-genesis~ 304 #endif
mpi-genesis~ 305 }
mpi-genesis~ 306
mpi-genesis~ 307 if( a->flags & 4 )
mpi-genesis~ 308 xfree( a->d );
mpi-genesis~ 309 else {
mpi-genesis~ 310 #ifdef M_DEBUG
mpi-genesis~ 311 mpi_debug_free_limb_space(a->d, "alloc_opaque");
mpi-genesis~ 312 #else
mpi-genesis~ 313 mpi_free_limb_space(a->d);
mpi-genesis~ 314 #endif
mpi-genesis~ 315 }
mpi-genesis~ 316
mpi-genesis~ 317 a->d = p;
mpi-genesis~ 318 a->alloced = 0;
mpi-genesis~ 319 a->nlimbs = 0;
mpi-genesis~ 320 a->nbits = len;
mpi-genesis~ 321 a->flags = 4;
mpi-genesis~ 322 return a;
mpi-genesis~ 323 }
mpi-genesis~ 324
mpi-genesis~ 325
mpi-genesis~ 326 void *
mpi-genesis~ 327 mpi_get_opaque( MPI a, unsigned int *len )
mpi-genesis~ 328 {
mpi-genesis~ 329 if( !(a->flags & 4) )
mpi-genesis~ 330 log_bug("mpi_get_opaque on normal mpi\n");
mpi-genesis~ 331 if( len )
mpi-genesis~ 332 *len = a->nbits;
mpi-genesis~ 333 return a->d;
mpi-genesis~ 334 }
mpi-genesis~ 335
mpi-genesis~ 336
mpi-genesis~ 337
mpi-genesis~ 338 * Note: This copy function should not interpret the MPI
mpi-genesis~ 339 * but copy it transparently.
mpi-genesis~ 340 */
mpi-genesis~ 341 MPI
mpi-genesis~ 342 #ifdef M_DEBUG
mpi-genesis~ 343 mpi_debug_copy( MPI a, const char *info )
mpi-genesis~ 344 #else
mpi-genesis~ 345 mpi_copy( MPI a )
mpi-genesis~ 346 #endif
mpi-genesis~ 347 {
mpi-genesis~ 348 int i;
mpi-genesis~ 349 MPI b;
mpi-genesis~ 350
mpi-genesis~ 351 if( a && (a->flags & 4) ) {
mpi-genesis~ 352 void *p = m_is_secure(a->d)? xmalloc_secure( a->nbits )
mpi-genesis~ 353 : xmalloc( a->nbits );
mpi-genesis~ 354 memcpy( p, a->d, a->nbits );
mpi-genesis~ 355 b = mpi_set_opaque( NULL, p, a->nbits );
mpi-genesis~ 356 }
mpi-genesis~ 357 else if( a ) {
mpi-genesis~ 358 #ifdef M_DEBUG
mpi-genesis~ 359 b = mpi_is_secure(a)? mpi_debug_alloc_secure( a->nlimbs, info )
mpi-genesis~ 360 : mpi_debug_alloc( a->nlimbs, info );
mpi-genesis~ 361 #else
mpi-genesis~ 362 b = mpi_is_secure(a)? mpi_alloc_secure( a->nlimbs )
mpi-genesis~ 363 : mpi_alloc( a->nlimbs );
mpi-genesis~ 364 #endif
mpi-genesis~ 365 b->nlimbs = a->nlimbs;
mpi-genesis~ 366 b->sign = a->sign;
mpi-genesis~ 367 b->flags = a->flags;
mpi-genesis~ 368 b->nbits = a->nbits;
mpi-genesis~ 369 for(i=0; i < b->nlimbs; i++ )
mpi-genesis~ 370 b->d[i] = a->d[i];
mpi-genesis~ 371 }
mpi-genesis~ 372 else
mpi-genesis~ 373 b = NULL;
mpi-genesis~ 374 return b;
mpi-genesis~ 375 }
mpi-genesis~ 376
mpi-genesis~ 377
mpi-genesis~ 378
mpi-genesis~ 379 * This function allocates an MPI which is optimized to hold
mpi-genesis~ 380 * a value as large as the one given in the argument and allocates it
mpi-genesis~ 381 * with the same flags as A.
mpi-genesis~ 382 */
mpi-genesis~ 383 MPI
mpi-genesis~ 384 #ifdef M_DEBUG
mpi-genesis~ 385 mpi_debug_alloc_like( MPI a, const char *info )
mpi-genesis~ 386 #else
mpi-genesis~ 387 mpi_alloc_like( MPI a )
mpi-genesis~ 388 #endif
mpi-genesis~ 389 {
mpi-genesis~ 390 MPI b;
mpi-genesis~ 391
mpi-genesis~ 392 if( a && (a->flags & 4) ) {
mpi-genesis~ 393 void *p = m_is_secure(a->d)? xmalloc_secure( a->nbits )
mpi-genesis~ 394 : xmalloc( a->nbits );
mpi-genesis~ 395 memcpy( p, a->d, a->nbits );
mpi-genesis~ 396 b = mpi_set_opaque( NULL, p, a->nbits );
mpi-genesis~ 397 }
mpi-genesis~ 398 else if( a ) {
mpi-genesis~ 399 #ifdef M_DEBUG
mpi-genesis~ 400 b = mpi_is_secure(a)? mpi_debug_alloc_secure( a->nlimbs, info )
mpi-genesis~ 401 : mpi_debug_alloc( a->nlimbs, info );
mpi-genesis~ 402 #else
mpi-genesis~ 403 b = mpi_is_secure(a)? mpi_alloc_secure( a->nlimbs )
mpi-genesis~ 404 : mpi_alloc( a->nlimbs );
mpi-genesis~ 405 #endif
mpi-genesis~ 406 b->nlimbs = 0;
mpi-genesis~ 407 b->sign = 0;
mpi-genesis~ 408 b->flags = a->flags;
mpi-genesis~ 409 b->nbits = 0;
mpi-genesis~ 410 }
mpi-genesis~ 411 else
mpi-genesis~ 412 b = NULL;
mpi-genesis~ 413 return b;
mpi-genesis~ 414 }
mpi-genesis~ 415
mpi-genesis~ 416
mpi-genesis~ 417 void
mpi-genesis~ 418 mpi_set( MPI w, MPI u)
mpi-genesis~ 419 {
mpi-genesis~ 420 mpi_ptr_t wp, up;
mpi-genesis~ 421 mpi_size_t usize = u->nlimbs;
mpi-genesis~ 422 int usign = u->sign;
mpi-genesis~ 423
mpi-genesis~ 424 RESIZE_IF_NEEDED(w, usize);
mpi-genesis~ 425 wp = w->d;
mpi-genesis~ 426 up = u->d;
mpi-genesis~ 427 MPN_COPY( wp, up, usize );
mpi-genesis~ 428 w->nlimbs = usize;
mpi-genesis~ 429 w->nbits = u->nbits;
mpi-genesis~ 430 w->flags = u->flags;
mpi-genesis~ 431 w->sign = usign;
mpi-genesis~ 432 }
mpi-genesis~ 433
mpi-genesis~ 434
mpi-genesis~ 435 void
mpi-genesis~ 436 mpi_set_ui( MPI w, unsigned long u)
mpi-genesis~ 437 {
mpi-genesis~ 438 RESIZE_IF_NEEDED(w, 1);
mpi-genesis~ 439 w->d[0] = u;
mpi-genesis~ 440 w->nlimbs = u? 1:0;
mpi-genesis~ 441 w->sign = 0;
mpi-genesis~ 442 w->nbits = 0;
mpi-genesis~ 443 w->flags = 0;
mpi-genesis~ 444 }
mpi-genesis~ 445
mpi-genesis~ 446
mpi-genesis~ 447 MPI
mpi-genesis~ 448 mpi_alloc_set_ui( unsigned long u)
mpi-genesis~ 449 {
mpi-genesis~ 450 #ifdef M_DEBUG
mpi-genesis~ 451 MPI w = mpi_debug_alloc(1,"alloc_set_ui");
mpi-genesis~ 452 #else
mpi-genesis~ 453 MPI w = mpi_alloc(1);
mpi-genesis~ 454 #endif
mpi-genesis~ 455 w->d[0] = u;
mpi-genesis~ 456 w->nlimbs = u? 1:0;
mpi-genesis~ 457 w->sign = 0;
mpi-genesis~ 458 return w;
mpi-genesis~ 459 }
mpi-genesis~ 460
mpi-genesis~ 461
mpi-genesis~ 462 void
mpi-genesis~ 463 mpi_swap( MPI a, MPI b)
mpi-genesis~ 464 {
mpi-genesis~ 465 struct gcry_mpi tmp;
mpi-genesis~ 466
mpi-genesis~ 467 tmp = *a; *a = *b; *b = tmp;
mpi-genesis~ 468 }
mpi-genesis~ 469
mpi-genesis~ 470
mpi-genesis~ 471 int
mpi-genesis~ 472 mpi_get_nlimbs (MPI a)
mpi-genesis~ 473 {
mpi-genesis~ 474 return a->nlimbs;
mpi-genesis~ 475 }
mpi-genesis~ 476
mpi-genesis~ 477
mpi-genesis~ 478 int
mpi-genesis~ 479 mpi_is_neg (MPI a)
mpi-genesis~ 480 {
mpi-genesis~ 481 return a->sign;
mpi-genesis~ 482 }
mpi-genesis~ 483
mpi-genesis~ 484
mpi-genesis~ 485
mpi-genesis~ 486 the number of bytes to represent it. */
mpi-genesis~ 487 unsigned int
mpi-genesis~ 488 mpi_nlimb_hint_from_nbytes (unsigned int nbytes)
mpi-genesis~ 489 {
mpi-genesis~ 490 return (nbytes+BYTES_PER_MPI_LIMB-1) / BYTES_PER_MPI_LIMB;
mpi-genesis~ 491 }
mpi-genesis~ 492
mpi-genesis~ 493
mpi-genesis~ 494 the number of bytes to represent it. */
mpi-genesis~ 495 unsigned int
mpi-genesis~ 496 mpi_nlimb_hint_from_nbits (unsigned int nbits)
mpi-genesis~ 497 {
mpi-genesis~ 498 return (nbits+BITS_PER_MPI_LIMB-1) / BITS_PER_MPI_LIMB;
mpi-genesis~ 499 }
mpi-genesis~ 500
mpi-genesis~ 501 unsigned int
mpi-genesis~ 502 mpi_get_flags (MPI a)
mpi-genesis~ 503 {
mpi-genesis~ 504 return a->flags;
mpi-genesis~ 505 }