comparison src/lisp.h @ 14473:7c93a4ce40b0

(VECSIZE): Round up when dividing.
author Richard M. Stallman <rms@gnu.org>
date Sat, 03 Feb 1996 02:33:12 +0000
parents b30429f0b599
children 7a50843d260f
comparison
equal deleted inserted replaced
14472:8979515dac09 14473:7c93a4ce40b0
548 DECLARE_INTERVALS /* `data' field must be last. */ 548 DECLARE_INTERVALS /* `data' field must be last. */
549 unsigned char data[1]; 549 unsigned char data[1];
550 }; 550 };
551 551
552 /* If a struct is made to look like a vector, this macro returns the length 552 /* If a struct is made to look like a vector, this macro returns the length
553 of that vector. */ 553 of the shortest vector that would hold that struct. */
554 #define VECSIZE(type) ((sizeof (type) - (sizeof (struct Lisp_Vector) \ 554 #define VECSIZE(type) ((sizeof (type) - (sizeof (struct Lisp_Vector) \
555 - sizeof (Lisp_Object))) \ 555 - sizeof (Lisp_Object)) \
556 + sizeof(Lisp_Object) - 1) /* round up */ \
556 / sizeof (Lisp_Object)) 557 / sizeof (Lisp_Object))
557 558
558 struct Lisp_Vector 559 struct Lisp_Vector
559 { 560 {
560 EMACS_INT size; 561 EMACS_INT size;