From: Kenichi Handa <handa@m17n.org>
Date: Mon, 18 Oct 1999 02:12:21 +0000 (+0000)
Subject: (Fload): Calculate bytes of filename correctly.
X-Git-Tag: emacs-pretest-21.0.90~6397
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=471aa4a0de104a09fefff4059fbb52745c689d52;p=emacs.git

(Fload): Calculate bytes of filename correctly.
(openp): Likewise.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 15feb7427fc..787ab4c045f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-18  Kenichi Handa  <handa@etl.go.jp>
+
+	* lread.c (Fload): Calculate bytes of filename correctly.
+	(openp): Likewise.
+
 1999-10-18  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* print.c (print_preprocess): In case print-circle is nil,
diff --git a/src/lread.c b/src/lread.c
index b57223b8cf8..c14554f5b31 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -625,7 +625,7 @@ Return t if file exists.")
      since it would try to load a directory as a Lisp file */
   if (XSTRING (file)->size > 0)
     {
-      int size = XSTRING (file)->size;
+      int size = STRING_BYTES (XSTRING (file));
 
       GCPRO1 (file);
 
@@ -681,7 +681,7 @@ Return t if file exists.")
 
   /* Load .elc files directly, but not when they are
      remote and have no handler!  */
-  if (!bcmp (&(XSTRING (found)->data[XSTRING (found)->size - 4]),
+  if (!bcmp (&(XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 4]),
 	     ".elc", 4)
       && fd != 0)
     {
@@ -694,7 +694,7 @@ Return t if file exists.")
       fmode = "rb";
 #endif /* DOS_NT */
       stat ((char *)XSTRING (found)->data, &s1);
-      XSTRING (found)->data[XSTRING (found)->size - 1] = 0;
+      XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 0;
       result = stat ((char *)XSTRING (found)->data, &s2);
       if (result >= 0 && (unsigned) s1.st_mtime < (unsigned) s2.st_mtime)
 	{
@@ -706,7 +706,7 @@ Return t if file exists.")
 	    message_with_string ("Source file `%s' newer than byte-compiled file",
 				 found, 1);
 	}
-      XSTRING (found)->data[XSTRING (found)->size - 1] = 'c';
+      XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 1] = 'c';
     }
   else
     {
@@ -897,7 +897,7 @@ openp (path, str, suffix, storeptr, exec_only)
 
       /* Calculate maximum size of any filename made from
 	 this path element/specified file name and any possible suffix.  */
-      want_size = strlen (suffix) + XSTRING (filename)->size + 1;
+      want_size = strlen (suffix) + STRING_BYTES (XSTRING (filename)) + 1;
       if (fn_size < want_size)
 	fn = (char *) alloca (fn_size = 100 + want_size);
 
@@ -917,13 +917,14 @@ openp (path, str, suffix, storeptr, exec_only)
 	      && XSTRING (filename)->data[1] == ':')
 	    {
 	      strncpy (fn, XSTRING (filename)->data + 2,
-		       XSTRING (filename)->size - 2);
-	      fn[XSTRING (filename)->size - 2] = 0;
+		       STRING_BYTES (XSTRING (filename)) - 2);
+	      fn[STRING_BYTES (XSTRING (filename)) - 2] = 0;
 	    }
 	  else
 	    {
-	      strncpy (fn, XSTRING (filename)->data, XSTRING (filename)->size);
-	      fn[XSTRING (filename)->size] = 0;
+	      strncpy (fn, XSTRING (filename)->data,
+		       STRING_BYTES (XSTRING (filename)));
+	      fn[STRING_BYTES (XSTRING (filename))] = 0;
 	    }
 
 	  if (lsuffix != 0)  /* Bug happens on CCI if lsuffix is 0.  */