changeset 46429:eb5964b8cc24

* lread.c (Fload): Use SDATA, SSET.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Jul 2002 15:49:38 +0000
parents 82755b55ec33
children 2576e1ad86de
files src/lread.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Tue Jul 16 15:49:34 2002 +0000
+++ b/src/lread.c	Tue Jul 16 15:49:38 2002 +0000
@@ -778,7 +778,7 @@
     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 @@
 	  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)