[Emacs-diffs] Changes to emacs/src/fileio.c

[Ken Raeburn]

Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.455 emacs/src/fileio.c:1.456
*** emacs/src/fileio.c:1.455    Tue Jul 16 11:49:16 2002
--- emacs/src/fileio.c  Tue Jul 16 15:48:17 2002
***************
*** 250,256 ****
  
  void
  report_file_error (string, data)
!      char *string;
       Lisp_Object data;
  {
    Lisp_Object errstring;
--- 250,256 ----
  
  void
  report_file_error (string, data)
!      const char *string;
       Lisp_Object data;
  {
    Lisp_Object errstring;
***************
*** 393,400 ****
       (filename)
       Lisp_Object filename;
  {
!   register unsigned char *beg;
!   register unsigned char *p;
    Lisp_Object handler;
  
    CHECK_STRING (filename);
--- 393,400 ----
       (filename)
       Lisp_Object filename;
  {
!   register const unsigned char *beg;
!   register const unsigned char *p;
    Lisp_Object handler;
  
    CHECK_STRING (filename);
***************
*** 469,475 ****
       (filename)
       Lisp_Object filename;
  {
!   register unsigned char *beg, *p, *end;
    Lisp_Object handler;
  
    CHECK_STRING (filename);
--- 469,475 ----
       (filename)
       Lisp_Object filename;
  {
!   register const unsigned char *beg, *p, *end;
    Lisp_Object handler;
  
    CHECK_STRING (filename);
***************
*** 2540,2546 ****
       (directory)
       Lisp_Object directory;
  {
!   unsigned char *dir;
    Lisp_Object handler;
    Lisp_Object encoded_dir;
  
--- 2540,2546 ----
       (directory)
       Lisp_Object directory;
  {
!   const unsigned char *dir;
    Lisp_Object handler;
    Lisp_Object encoded_dir;
  
***************
*** 2570,2576 ****
       (directory)
       Lisp_Object directory;
  {
!   unsigned char *dir;
    Lisp_Object handler;
    Lisp_Object encoded_dir;
  
--- 2570,2576 ----
       (directory)
       Lisp_Object directory;
  {
!   const unsigned char *dir;
    Lisp_Object handler;
    Lisp_Object encoded_dir;
  
***************
*** 2903,2909 ****
       (filename)
       Lisp_Object filename;
  {
!   unsigned char *ptr;
  
    CHECK_STRING (filename);
    ptr = SDATA (filename);
--- 2903,2909 ----
       (filename)
       Lisp_Object filename;
  {
!   const unsigned char *ptr;
  
    CHECK_STRING (filename);
    ptr = SDATA (filename);
***************
*** 4750,4756 ****
    register int desc;
    int failure;
    int save_errno = 0;
!   unsigned char *fn;
    struct stat st;
    int tem;
    int count = SPECPDL_INDEX ();
--- 4750,4756 ----
    register int desc;
    int failure;
    int save_errno = 0;
!   const unsigned char *fn;
    struct stat st;
    int tem;
    int count = SPECPDL_INDEX ();
***************
*** 5813,5819 ****
  double_dollars (val)
       Lisp_Object val;
  {
!   register unsigned char *old, *new;
    register int n;
    int osize, count;
  
--- 5813,5820 ----
  double_dollars (val)
       Lisp_Object val;
  {
!   register const unsigned char *old;
!   register unsigned char *new;
    register int n;
    int osize, count;