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

[Ken Raeburn]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.292 emacs/src/lread.c:1.293
*** emacs/src/lread.c:1.292     Sun Jul 14 22:16:52 2002
--- emacs/src/lread.c   Tue Jul 16 11:49:38 2002
***************
*** 778,784 ****
      Vloads_in_progress = Fcons (found, Vloads_in_progress);
    }
  
!   if (!bcmp (&(SREF (found, SBYTES (found) - 4)),
             ".elc", 4))
      /* Load .elc files directly, but not when they are
         remote and have no handler!  */
--- 778,784 ----
      Vloads_in_progress = Fcons (found, Vloads_in_progress);
    }
  
!   if (!bcmp (SDATA (found) + SBYTES (found) - 4,
             ".elc", 4))
      /* Load .elc files directly, but not when they are
         remote and have no handler!  */
***************
*** 807,815 ****
          fmode = "rb";
  #endif /* DOS_NT */
          stat ((char *)SDATA (efound), &s1);
!         SREF (efound, SBYTES (efound) - 1) = 0;
          result = stat ((char *)SDATA (efound), &s2);
!         SREF (efound, SBYTES (efound) - 1) = 'c';
          UNGCPRO;
  
          if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
--- 807,815 ----
          fmode = "rb";
  #endif /* DOS_NT */
          stat ((char *)SDATA (efound), &s1);
!         SSET (efound, SBYTES (efound) - 1, 0);
          result = stat ((char *)SDATA (efound), &s2);
!         SSET (efound, SBYTES (efound) - 1, 'c');
          UNGCPRO;
  
          if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)