changeset 46465:5c56d4068a01

(report_file_error): String pointer args now point to const. (Ffile_name_directory, Ffile_name_nondirectory): (Fmake_directory_internal, Fdelete_directory): (Ffile_name_absolute_p, Fwrite_region, double_dollars): Use const for pointer to lisp string data.

--- a/src/fileio.c	Tue Jul 16 19:48:12 2002 +0000
+++ b/src/fileio.c	Tue Jul 16 19:48:17 2002 +0000
@@ -250,7 +250,7 @@
 
 void
 report_file_error (string, data)
-     char *string;
+     const char *string;
      Lisp_Object data;
 {
   Lisp_Object errstring;
@@ -393,8 +393,8 @@
      (filename)
      Lisp_Object filename;
 {
-  register unsigned char *beg;
-  register unsigned char *p;
+  register const unsigned char *beg;
+  register const unsigned char *p;
   Lisp_Object handler;
 
   CHECK_STRING (filename);
@@ -469,7 +469,7 @@
      (filename)
      Lisp_Object filename;
 {
-  register unsigned char *beg, *p, *end;
+  register const unsigned char *beg, *p, *end;
   Lisp_Object handler;
 
   CHECK_STRING (filename);
@@ -2540,7 +2540,7 @@
      (directory)
      Lisp_Object directory;
 {
-  unsigned char *dir;
+  const unsigned char *dir;
   Lisp_Object handler;
   Lisp_Object encoded_dir;
 
@@ -2570,7 +2570,7 @@
      (directory)
      Lisp_Object directory;
 {
-  unsigned char *dir;
+  const unsigned char *dir;
   Lisp_Object handler;
   Lisp_Object encoded_dir;
 
@@ -2903,7 +2903,7 @@
      (filename)
      Lisp_Object filename;
 {
-  unsigned char *ptr;
+  const unsigned char *ptr;
 
   CHECK_STRING (filename);
   ptr = SDATA (filename);
@@ -4750,7 +4750,7 @@
   register int desc;
   int failure;
   int save_errno = 0;
-  unsigned char *fn;
+  const unsigned char *fn;
   struct stat st;
   int tem;
   int count = SPECPDL_INDEX ();
@@ -5813,7 +5813,8 @@
 double_dollars (val)
      Lisp_Object val;
 {
-  register unsigned char *old, *new;
+  register const unsigned char *old;
+  register unsigned char *new;
   register int n;
   int osize, count;