* lread.c (Fload): Use SDATA, SSET.

diff --git a/src/lread.c b/src/lread.c
index 3b06968e084908a433054c1e7600503267f1a915..6fd967da45194604d3acce92e4cb7ab0b78e300e 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -778,7 +778,7 @@ Return t if file exists.  */)
     Vloads_in_progress = Fcons (found, Vloads_in_progress);
   }
 
-  if (!bcmp (&(SREF (found, SBYTES (found) - 4)),
+  if (!bcmp (SDATA (found) + SBYTES (found) - 4,
             ".elc", 4))
     /* Load .elc files directly, but not when they are
        remote and have no handler!  */
@@ -807,9 +807,9 @@ Return t if file exists.  */)
          fmode = "rb";
 #endif /* DOS_NT */
          stat ((char *)SDATA (efound), &s1);
-         SREF (efound, SBYTES (efound) - 1) = 0;
+         SSET (efound, SBYTES (efound) - 1, 0);
          result = stat ((char *)SDATA (efound), &s2);
-         SREF (efound, SBYTES (efound) - 1) = 'c';
+         SSET (efound, SBYTES (efound) - 1, 'c');
          UNGCPRO;
 
          if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)