emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Richard M. Stallman
Subject: [Emacs-diffs] Changes to emacs/src/lread.c
Date: Fri, 02 Aug 2002 13:54:23 -0400

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.294 emacs/src/lread.c:1.295
*** emacs/src/lread.c:1.294     Tue Jul 16 13:34:35 2002
--- emacs/src/lread.c   Tue Jul 16 15:48:47 2002
***************
*** 958,964 ****
  complete_filename_p (pathname)
       Lisp_Object pathname;
  {
!   register unsigned char *s = SDATA (pathname);
    return (IS_DIRECTORY_SEP (s[0])
          || (SCHARS (pathname) > 2
              && IS_DEVICE_SEP (s[1]) && IS_DIRECTORY_SEP (s[2]))
--- 958,964 ----
  complete_filename_p (pathname)
       Lisp_Object pathname;
  {
!   register const unsigned char *s = SDATA (pathname);
    return (IS_DIRECTORY_SEP (s[0])
          || (SCHARS (pathname) > 2
              && IS_DEVICE_SEP (s[1]) && IS_DIRECTORY_SEP (s[2]))
***************
*** 1122,1128 ****
            }
          else
            {
!             char *pfn;
  
              encoded_fn = ENCODE_FILE (string);
              pfn = SDATA (encoded_fn);
--- 1122,1128 ----
            }
          else
            {
!             const char *pfn;
  
              encoded_fn = ENCODE_FILE (string);
              pfn = SDATA (encoded_fn);
***************
*** 2973,2979 ****
  int oblookup_last_bucket_number;
  
  static int hash_string ();
- Lisp_Object oblookup ();
  
  /* Get an error if OBARRAY is not an obarray.
     If it is one, return it.  */
--- 2973,2978 ----
***************
*** 2997,3003 ****
  
  Lisp_Object
  intern (str)
!      char *str;
  {
    Lisp_Object tem;
    int len = strlen (str);
--- 2996,3002 ----
  
  Lisp_Object
  intern (str)
!      const char *str;
  {
    Lisp_Object tem;
    int len = strlen (str);
***************
*** 3174,3180 ****
  Lisp_Object
  oblookup (obarray, ptr, size, size_byte)
       Lisp_Object obarray;
!      register char *ptr;
       int size, size_byte;
  {
    int hash;
--- 3173,3179 ----
  Lisp_Object
  oblookup (obarray, ptr, size, size_byte)
       Lisp_Object obarray;
!      register const char *ptr;
       int size, size_byte;
  {
    int hash;
***************
*** 3215,3225 ****
  
  static int
  hash_string (ptr, len)
!      unsigned char *ptr;
       int len;
  {
!   register unsigned char *p = ptr;
!   register unsigned char *end = p + len;
    register unsigned char c;
    register int hash = 0;
  
--- 3214,3224 ----
  
  static int
  hash_string (ptr, len)
!      const unsigned char *ptr;
       int len;
  {
!   register const unsigned char *p = ptr;
!   register const unsigned char *end = p + len;
    register unsigned char c;
    register int hash = 0;
  



reply via email to

[Prev in Thread] Current Thread [Next in Thread]