# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1264151404 -32400
# Node ID ddd257e3f8165ebc1d8e06fde5b6ee0aed4b7f86
# Parent  86ae2a69cf520bf09d824d2eb7b2835dddd6352b
Make string pointer args point to const as in other string allocation functions.

* lisp.h (make_pure_string): String pointer arg now points to const.

* alloc.c (find_string_data_in_pure, make_pure_string): String pointer
args now point to const.

diff -r 86ae2a69cf52 -r ddd257e3f816 src/ChangeLog
--- a/src/ChangeLog	Fri Jan 22 10:44:50 2010 +0200
+++ b/src/ChangeLog	Fri Jan 22 18:10:04 2010 +0900
@@ -1,3 +1,10 @@
+2010-01-22  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+	* lisp.h (make_pure_string): String pointer arg now points to const.
+
+	* alloc.c (find_string_data_in_pure, make_pure_string): String pointer
+	args now point to const.
+
 2010-01-22  Eli Zaretskii  <eliz@gnu.org>
 
 	* lread.c (Fload): Don't treat files without .elc extension as
diff -r 86ae2a69cf52 -r ddd257e3f816 src/alloc.c
--- a/src/alloc.c	Fri Jan 22 10:44:50 2010 +0200
+++ b/src/alloc.c	Fri Jan 22 18:10:04 2010 +0900
@@ -4725,11 +4725,11 @@
 
 static char *
 find_string_data_in_pure (data, nbytes)
-     char *data;
+     const char *data;
      int nbytes;
 {
   int i, skip, bm_skip[256], last_char_skip, infinity, start, start_max;
-  unsigned char *p;
+  const unsigned char *p;
   char *non_lisp_beg;
 
   if (pure_bytes_used_non_lisp < nbytes + 1)
@@ -4740,7 +4740,7 @@
   for (i = 0; i < 256; i++)
     bm_skip[i] = skip;
 
-  p = (unsigned char *) data;
+  p = (const unsigned char *) data;
   while (--skip > 0)
     bm_skip[*p++] = skip;
 
@@ -4754,7 +4754,7 @@
   infinity = pure_bytes_used_non_lisp + 1;
   bm_skip['\0'] = infinity;
 
-  p = (unsigned char *) non_lisp_beg + nbytes;
+  p = (const unsigned char *) non_lisp_beg + nbytes;
   start = 0;
   do
     {
@@ -4796,7 +4796,7 @@
 
 Lisp_Object
 make_pure_string (data, nchars, nbytes, multibyte)
-     char *data;
+     const char *data;
      int nchars, nbytes;
      int multibyte;
 {
diff -r 86ae2a69cf52 -r ddd257e3f816 src/lisp.h
--- a/src/lisp.h	Fri Jan 22 10:44:50 2010 +0200
+++ b/src/lisp.h	Fri Jan 22 18:10:04 2010 +0900
@@ -2686,7 +2686,7 @@
 extern Lisp_Object make_string_from_bytes P_ ((const char *, int, int));
 extern Lisp_Object make_specified_string P_ ((const char *, int, int, int));
 EXFUN (Fpurecopy, 1);
-extern Lisp_Object make_pure_string P_ ((char *, int, int, int));
+extern Lisp_Object make_pure_string P_ ((const char *, int, int, int));
 extern Lisp_Object make_pure_c_string (const char *data);
 extern Lisp_Object pure_cons P_ ((Lisp_Object, Lisp_Object));
 extern Lisp_Object make_pure_vector P_ ((EMACS_INT));