diff src/alloc.c @ 51779:f01acdb936f9

(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.

--- 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));