From: Ken Raeburn <raeburn@raeburn.org>
Date: Tue, 16 Jul 2002 15:49:38 +0000 (+0000)
Subject: * lread.c (Fload): Use SDATA, SSET.
X-Git-Tag: ttn-vms-21-2-B4~14085
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1c89c0a12b0c7e516e8b87253f1bb160795efd6;p=emacs.git

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

diff --git a/src/lread.c b/src/lread.c
index 3b06968e084..6fd967da451 100644
--- 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)