changeset 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.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 06 Jul 2003 23:12:21 +0000
parents 2d00a74e78bc
children 80cf6737bde5
files src/alloc.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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));