* lread.c (safe_to_load_p): Make the end-of-loop test the inverse of the in-loop.

diff --git a/src/ChangeLog b/src/ChangeLog
index ee9552454520dd050b76b16aa71105dd091bcf39..a83f79ef2def94b622737206e65e457122cdb186 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -2,6 +2,7 @@
 
        * lread.c (lisp_file_lexically_bound_p): Use ints rather than endptrs.
        (lisp_file_lexically_bound_p, read1): Use unsigned instead of int.
+       (safe_to_load_p): Make the end-of-loop test the inverse of the in-loop.
 
        * print.c (print_error_message): Avoid int overflow.
 

diff --git a/src/lread.c b/src/lread.c
index fb5b6cd0136288805b0e7d0ce94af499c142fbae..8777bc3454575bb63a42ff924def7eb0307c4f24 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -907,7 +907,7 @@ safe_to_load_p (int fd)
        if (i == 4)
          version = buf[i];
 
-      if (i == nbytes
+      if (i >= nbytes
          || fast_c_string_match_ignore_case (Vbytecomp_version_regexp,
                                              buf + i) < 0)
        safe_p = 0;