From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 16 Nov 1994 05:17:32 +0000 (+0000)
Subject: Declare allocate_vectorlike.
X-Git-Tag: emacs-19.34~5884
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=942252420810bb19aebc420485696723aa9408e3;p=emacs.git

Declare allocate_vectorlike.
(VECSIZE): New macro.
---

diff --git a/src/lisp.h b/src/lisp.h
index c7f829671ca..236d51563dc 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -486,6 +486,12 @@ struct Lisp_String
     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 Fpurecopy (), make_pure_string ();
 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 */