(live_float_p): Check that p is not past the `floats' array,

now that `floats' is not the last element of the struct any more.

diff --git a/src/ChangeLog b/src/ChangeLog
index 5efef007e00f6a7bd15a08c200da446a4bcd25db..634bc3f9a611fe326f13406fad8124cade1aca08 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-06  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * alloc.c (live_float_p): Check that p is not past the `floats' array,
+       now that `floats' is not the last element of the struct any more.
+
 2003-07-06  Jason Rumney  <jasonr@gnu.org>
 
        * w32term.h (ClipboardSequence_Proc): New type.

diff --git a/src/alloc.c b/src/alloc.c
index 92fd44dcdac78bc7a82f9ccd1454b8b3f8498ced..169d292c1b335b8575422593c13ce84b41b44bfa 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3468,6 +3468,7 @@ live_float_p (m, p)
       /* P must point to the start of a Lisp_Float and not be
         one of the unused cells in the current float block.  */
       return (offset >= 0
+             && offset < (FLOAT_BLOCK_SIZE * sizeof b->floats[0])
              && offset % sizeof b->floats[0] == 0
              && (b != float_block
                  || offset / sizeof b->floats[0] < float_block_index));