* gnutls.c: Fix compilation warnings given fix --enable-gcc-warnings.

diff --git a/src/ChangeLog b/src/ChangeLog
index a4410161c5a649ce602d2fe96701f15edd066b81..448de36eb0555da527330f022a7cfbd3b389a0b5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-11-24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnutls.c: Fix compilation warnings given fix --enable-gcc-warnings.
+
 2014-11-24  Glenn Morris  <rgm@gnu.org>
 
        * emacs.c (main) <--version>: Make use of PACKAGE_NAME.

diff --git a/src/gnutls.c b/src/gnutls.c
index 22e3aec0c21a3e90f6b8b7d44b9ea209a0c33bcd..dd9c8015ca106e0e629a4acea7db0d0050529aa6 100644 (file)
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -62,10 +62,10 @@ static void gnutls_log_function2 (int, const char *, const char *);
 static void gnutls_audit_log_function (gnutls_session_t, const char *);
 #endif
 
-static enum
-  {
-    CERTIFICATE_NOT_MATCHING = 2,
-  } extra_peer_verification_t;
+enum extra_peer_verification
+{
+    CERTIFICATE_NOT_MATCHING = 2
+};
 
 \f
 #ifdef WINDOWSNT
@@ -768,8 +768,8 @@ DEFUN ("gnutls-available-p", Fgnutls_available_p, Sgnutls_available_p, 0, 0, 0,
 #endif
 }
 
-Lisp_Object
-gnutls_hex_string (char *buf, size_t buf_size, char *prefix) {
+static Lisp_Object
+gnutls_hex_string (char *buf, size_t buf_size, const char *prefix) {
   size_t prefix_length = strlen (prefix);
   char *string = malloc (buf_size * 3 + prefix_length);
   Lisp_Object ret;
@@ -786,7 +786,7 @@ gnutls_hex_string (char *buf, size_t buf_size, char *prefix) {
   return ret;
 }
 
-Lisp_Object
+static Lisp_Object
 gnutls_certificate_details (gnutls_x509_crt_t cert)
 {
   Lisp_Object res = Qnil;