diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-03 02:33:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-03 02:33:12 +0000 |
| commit | e9ccb8cc7426f4b368795bf24f3b8feb8a099cdf (patch) | |
| tree | a53e0dcc8f5e8e67282e9b8026b1b87860d3e6d8 /src/lisp.h | |
| parent | 2ed37581a5eee6697528e069c1e304af35eb19e3 (diff) | |
| download | emacs-e9ccb8cc7426f4b368795bf24f3b8feb8a099cdf.tar.gz | |
(VECSIZE): Round up when dividing.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 7 |
1 files changed, 4 insertions, 3 deletions
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 |