Fix gnutls problems caught by static checking.

* gnutls.c (Fgnutls_boot): Remove unused local.
(Fgnutls_boot): Fix pointer signedness.

diff --git a/src/ChangeLog b/src/ChangeLog
index a515080e85f84395b2ab1c05cbdb385ccf5bdc2b..da8746c3ff8c24cfd0b47f8d260e9d47f5cd2a01 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2014-11-25  Paul Eggert  <eggert@cs.ucla.edu>
+
+       Fix gnutls problems caught by static checking.
+       * gnutls.c (Fgnutls_boot): Remove unused local.
+       (Fgnutls_boot): Fix pointer signedness.
+
 2014-11-25  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnutls.c (gnutls_certificate_details): Don't include certain

diff --git a/src/gnutls.c b/src/gnutls.c
index 3c0674189529e181f415c9e96b92757b1201efea..baadaaf29b2ed544343dc6d2d01c2a7073f51010 100644 (file)
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -1185,7 +1185,6 @@ one trustfile (usually a CA bundle).  */)
   Lisp_Object verify_error;
   Lisp_Object prime_bits;
   Lisp_Object warnings;
-  Lisp_Object warning;
 
   CHECK_PROCESS (proc);
   CHECK_SYMBOL (type);
@@ -1441,7 +1440,7 @@ one trustfile (usually a CA bundle).  */)
           Lisp_Object warning = XCAR (tail);
           Lisp_Object message = Fgnutls_peer_status_warning_describe (warning);
           if (!NILP (message))
-            GNUTLS_LOG2 (1, max_log_level, "verification:", SDATA (message));
+            GNUTLS_LOG2 (1, max_log_level, "verification:", SSDATA (message));
         }
     }