From a1c89c0a12b0c7e516e8b87253f1bb160795efd6 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Tue, 16 Jul 2002 15:49:38 +0000 Subject: [PATCH] * lread.c (Fload): Use SDATA, SSET. --- src/lread.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.39.2