Backport doc.c fix from trunk.

* doc.c (store_function_docstring): Fix pointer signedness mismatch.

diff --git a/src/ChangeLog b/src/ChangeLog
index f67923bf417fbe2b8fcbef31989cf60525e8f670..d2572e740482e1a622cba401a8c0027cd97661e5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-03-20  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * doc.c (store_function_docstring): Fix pointer signedness mismatch.
+
 2014-03-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * doc.c (store_function_docstring): Warn when we don't know where to

diff --git a/src/doc.c b/src/doc.c
index 7e693165c6fd53fca76085853ae7715d94d6bdee..b6a4cd0a27b668d594577fe7bf5bbcb1b5e17365 100644 (file)
--- a/src/doc.c
+++ b/src/doc.c
@@ -537,7 +537,7 @@ store_function_docstring (Lisp_Object obj, ptrdiff_t offset)
        ASET (fun, COMPILED_DOC_STRING, make_number (offset));
       else
        message ("No docstring slot for %s",
-                SYMBOLP (obj) ? SDATA (SYMBOL_NAME (obj)) : "<anonymous>");
+                SYMBOLP (obj) ? SSDATA (SYMBOL_NAME (obj)) : "<anonymous>");
     }
 }