src/gnutls.c: Fix previous change.

(init_gnutls_functions): Protect against (unlikely) manipulation
of :loaded-from data.

diff --git a/src/ChangeLog b/src/ChangeLog
index 73e54c21a60aa46a7338fd92186f09d56e64fdfe..30ba6d6c4a9c1b433b5e005ec0d21c569e872e9a 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-04-24  Juanma Barranquero  <lekktu@gmail.com>
+
+       * gnutls.c (init_gnutls_functions): Protect against (unlikely)
+       manipulation of :loaded-from data.
+
 2012-04-23  Juanma Barranquero  <lekktu@gmail.com>
 
        * gnutls.c (init_gnutls_functions): The value of :loaded-from is

diff --git a/src/gnutls.c b/src/gnutls.c
index 09268aee3978f3879c971ae27d368873cb90f1dc..cf471314849827f2608b49cb69ffaebf0498b37f 100644 (file)
--- a/src/gnutls.c
+++ b/src/gnutls.c
@@ -200,8 +200,12 @@ init_gnutls_functions (Lisp_Object libraries)
 
   max_log_level = global_gnutls_log_level;
 
-  GNUTLS_LOG2 (1, max_log_level, "GnuTLS library loaded:",
-              SDATA (XCAR (Fget (Qgnutls_dll, QCloaded_from))));
+  {
+    Lisp_Object name = CAR_SAFE (Fget (Qgnutls_dll, QCloaded_from));
+    GNUTLS_LOG2 (1, max_log_level, "GnuTLS library loaded:",
+                 STRINGP (name) ? (const char *) SDATA (name) : "unknown");
+  }
+
   return 1;
 }