* cipher.h: Add constants for new SHAs.
[gnupg.git] / mpi / mpiutil.c
index 62cb882..04e280c 100644 (file)
@@ -1,5 +1,5 @@
 /* mpiutil.ac  -  Utility functions for MPI
- *     Copyright (C) 1998 Free Software Foundation, Inc.
+ * Copyright (C) 1998, 1999 Free Software Foundation, Inc.
  *
  * This file is part of GnuPG.
  *
@@ -383,7 +383,11 @@ mpi_copy( MPI a )
  * with the same flags as A.
  */
 MPI
+#ifdef M_DEBUG
+mpi_debug_alloc_like( MPI a, const char *info )
+#else
 mpi_alloc_like( MPI a )
+#endif
 {
     MPI b;
 
@@ -394,8 +398,13 @@ mpi_alloc_like( MPI a )
        b = mpi_set_opaque( NULL, p, a->nbits );
     }
     else if( a ) {
+      #ifdef M_DEBUG
+       b = mpi_is_secure(a)? mpi_debug_alloc_secure( a->nlimbs, info )
+                           : mpi_debug_alloc( a->nlimbs, info );
+      #else
        b = mpi_is_secure(a)? mpi_alloc_secure( a->nlimbs )
                            : mpi_alloc( a->nlimbs );
+      #endif
        b->nlimbs = 0;
        b->sign = 0;
        b->flags = a->flags;