* lisp.h (XVECTORLIKE_HEADER_SIZE): Remove. The only use is now expanded.

2 files changed, 4 insertions, 6 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 05d5c77e625..1adc153e953 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -3,6 +3,7 @@
         * lisp.h: (XVECTOR_SIZE): Remove.  All uses replaced with ASIZE.
         (ASIZE): Now contains previous implementation of XVECTOR_SIZE
         instead of invoking XVECTOR_SIZE.
+        (XVECTORLIKE_HEADER_SIZE): Remove.  The only use is now expanded.
 
         * lisp.h: Say "vectorlike header" rather than "vector header.
         (struct vectorlike_header): Rename from struct vector_header.
diff --git a/src/lisp.h b/src/lisp.h
index 9733dde33c0..4af12fb2f51 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -554,11 +554,6 @@ extern Lisp_Object make_number (EMACS_INT);
 #define XSYMBOL(a) (eassert (SYMBOLP(a)),(struct Lisp_Symbol *) XPNTR(a))
 #define XFLOAT(a) (eassert (FLOATP(a)),(struct Lisp_Float *) XPNTR(a))
 
-/* Extract the size field of a vector-like object.  */
-
-#define XVECTORLIKE_HEADER_SIZE(a) \
-  (((struct vectorlike_header *) XPNTR (a))->size + 0)
-
 /* Misc types.  */
 
 #define XMISC(a)   ((union Lisp_Misc *) XPNTR(a))
@@ -612,7 +607,9 @@ extern Lisp_Object make_number (EMACS_INT);
 #define XSETPVECTYPESIZE(v, code, sizeval) \
   ((v)->header.size = PSEUDOVECTOR_FLAG | (code) | (sizeval))
 #define XSETPSEUDOVECTOR(a, b, code) \
-  XSETTYPED_PSEUDOVECTOR(a, b, XVECTORLIKE_HEADER_SIZE (a), code)
+  XSETTYPED_PSEUDOVECTOR(a, b,       \
+                         ((struct vectorlike_header *) XPNTR (a))->size, \
+                         code)
 #define XSETTYPED_PSEUDOVECTOR(a, b, size, code)                        \
   (XSETVECTOR (a, b),                                                   \
    eassert ((size & (PSEUDOVECTOR_FLAG | PVEC_TYPE_MASK))               \