comparison src/fns.c @ 456:e7ef97881643 r21-2-43

Import from CVS: tag r21-2-43
author cvs
date Mon, 13 Aug 2007 11:41:24 +0200
parents d7a9135ec789
children 183866b06e0b
comparison
equal deleted inserted replaced
455:5b97c1cd6ed0 456:e7ef97881643
111 111
112 static size_t 112 static size_t
113 size_bit_vector (const void *lheader) 113 size_bit_vector (const void *lheader)
114 { 114 {
115 Lisp_Bit_Vector *v = (Lisp_Bit_Vector *) lheader; 115 Lisp_Bit_Vector *v = (Lisp_Bit_Vector *) lheader;
116 return FLEXIBLE_ARRAY_STRUCT_SIZEOF (Lisp_Bit_Vector, bits, 116 return FLEXIBLE_ARRAY_STRUCT_SIZEOF (Lisp_Bit_Vector, unsigned long, bits,
117 BIT_VECTOR_LONG_STORAGE (bit_vector_length (v))); 117 BIT_VECTOR_LONG_STORAGE (bit_vector_length (v)));
118 } 118 }
119 119
120 static const struct lrecord_description bit_vector_description[] = { 120 static const struct lrecord_description bit_vector_description[] = {
121 { XD_LISP_OBJECT, offsetof (Lisp_Bit_Vector, next) }, 121 { XD_LISP_OBJECT, offsetof (Lisp_Bit_Vector, next) },