# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784963052 0
# Node ID 214a00665c2b93278b2ff3022682b0e24eaf8056
# Parent  76910d506a8009a271058ea91a24ce09caba5ded
Declare allocate_vectorlike.
(VECSIZE): New macro.

diff -r 76910d506a80 -r 214a00665c2b src/lisp.h
--- a/src/lisp.h	Wed Nov 16 05:16:42 1994 +0000
+++ b/src/lisp.h	Wed Nov 16 05:17:32 1994 +0000
@@ -486,6 +486,12 @@
     unsigned char data[1];
   };
 
+/* 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)))	\
+		       / sizeof (Lisp_Object))
+
 struct Lisp_Vector
   {
     EMACS_INT size;
@@ -1259,6 +1265,7 @@
 extern Lisp_Object pure_cons (), make_pure_vector ();
 extern Lisp_Object Fgarbage_collect ();
 extern Lisp_Object Fmake_byte_code ();
+extern struct Lisp_Vector *allocate_vectorlike ();
 extern int gc_in_progress;
 
 /* Defined in print.c */