From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 19:47:52 +0000 (+0000)
Subject: (xstrdup, make_string, make_unibyte_string)
X-Git-Tag: ttn-vms-21-2-B4~14059
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=943b873ebafce226551dc5c28956a6dbaaceca27;p=emacs.git

(xstrdup, make_string, make_unibyte_string)
(make_multibyte_string, build_string): String pointer args now
point to const.
---

diff --git a/src/alloc.c b/src/alloc.c
index 470cb9277bb..b8d54ee3ba9 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -575,7 +575,7 @@ xfree (block)
 
 char *
 xstrdup (s)
-     char *s;
+     const char *s;
 {
   size_t len = strlen (s) + 1;
   char *p = (char *) xmalloc (len);
@@ -1757,7 +1757,7 @@ LENGTH must be a number.  INIT matters only in whether it is t or nil.  */)
 
 Lisp_Object
 make_string (contents, nbytes)
-     char *contents;
+     const char *contents;
      int nbytes;
 {
   register Lisp_Object val;
@@ -1778,7 +1778,7 @@ make_string (contents, nbytes)
 
 Lisp_Object
 make_unibyte_string (contents, length)
-     char *contents;
+     const char *contents;
      int length;
 {
   register Lisp_Object val;
@@ -1794,7 +1794,7 @@ make_unibyte_string (contents, length)
 
 Lisp_Object
 make_multibyte_string (contents, nchars, nbytes)
-     char *contents;
+     const char *contents;
      int nchars, nbytes;
 {
   register Lisp_Object val;
@@ -1845,7 +1845,7 @@ make_specified_string (contents, nchars, nbytes, multibyte)
 
 Lisp_Object
 build_string (str)
-     char *str;
+     const char *str;
 {
   return make_string (str, strlen (str));
 }