From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 3 Feb 1996 02:33:12 +0000 (+0000)
Subject: (VECSIZE): Round up when dividing.
X-Git-Tag: emacs-19.34~1387
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4115d3f71e0c6ae8844ab8c8d502746e4a4c3cfb;p=emacs.git

(VECSIZE): Round up when dividing.
---

diff --git a/src/lisp.h b/src/lisp.h
index 9fe189f36f5..ce48018d1ce 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -550,9 +550,10 @@ struct Lisp_String
   };
 
 /* 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