# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 823314792 0
# Node ID 7c93a4ce40b0d7d5af6ee82b453410645eb01cd8
# Parent  8979515dac09791c3a2dc2fe6208de235712aad0
(VECSIZE): Round up when dividing.

diff -r 8979515dac09 -r 7c93a4ce40b0 src/lisp.h
--- a/src/lisp.h	Sat Feb 03 01:03:27 1996 +0000
+++ b/src/lisp.h	Sat Feb 03 02:33:12 1996 +0000
@@ -550,9 +550,10 @@
   };
 
 /* If a struct is made to look like a vector, this macro returns the length
-   of that vector.  */
-#define VECSIZE(type) ((sizeof (type) - (sizeof (struct Lisp_Vector)	\
-					 - sizeof (Lisp_Object)))	\
+   of the shortest vector that would hold that struct.  */
+#define VECSIZE(type) ((sizeof (type) - (sizeof (struct Lisp_Vector)  \
+                                         - sizeof (Lisp_Object))      \
+                        + sizeof(Lisp_Object) - 1) /* round up */     \
 		       / sizeof (Lisp_Object))
 
 struct Lisp_Vector