# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1057533141 0
# Node ID f01acdb936f9bbf79dce7843a9ca4ed563bb2ad2
# Parent  2d00a74e78bc19610ab8b04e2c1c86e3e73b35a4
(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 -r 2d00a74e78bc -r f01acdb936f9 src/alloc.c
--- a/src/alloc.c	Sun Jul 06 22:01:49 2003 +0000
+++ b/src/alloc.c	Sun Jul 06 23:12:21 2003 +0000
@@ -3468,6 +3468,7 @@
       /* 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));