[GNUnet-SVN] r32513 - gnunet/src/util

[gnunet]

Author: grothoff
Date: 2014-03-05 13:47:52 +0100 (Wed, 05 Mar 2014)
New Revision: 32513

Modified:
   gnunet/src/util/crypto_random.c
Log:
-fix ftbfs with older libgcrypt

Modified: gnunet/src/util/crypto_random.c
===================================================================
--- gnunet/src/util/crypto_random.c     2014-03-05 12:44:21 UTC (rev 32512)
+++ gnunet/src/util/crypto_random.c     2014-03-05 12:47:52 UTC (rev 32513)
@@ -145,7 +145,7 @@
  * @return a random value in the interval [0,i[.
  */
 uint32_t
-GNUNET_CRYPTO_random_u32 (enum GNUNET_CRYPTO_Quality mode, 
+GNUNET_CRYPTO_random_u32 (enum GNUNET_CRYPTO_Quality mode,
                          uint32_t i)
 {
 #ifdef gcry_fast_random_poll
@@ -270,6 +270,9 @@
 }
 
 
+/**
+ * Initialize libgcrypt.
+ */
 void __attribute__ ((constructor))
 GNUNET_CRYPTO_random_init ()
 {
@@ -302,11 +305,16 @@
 }
 
 
+/**
+ * Nicely shut down libgcrypt.
+ */
 void __attribute__ ((destructor))
 GNUNET_CRYPTO_random_fini ()
 {
   gcry_set_progress_handler (NULL, NULL);
+#ifdef GCRYCTL_CLOSE_RANDOM_DEVICE
   (void) gcry_control (GCRYCTL_CLOSE_RANDOM_DEVICE, 0);
+#endif
 }