* src/alloc.c (allocate_vectorlike): Simplify.

diff --git a/src/alloc.c b/src/alloc.c
index 0e48b33882cb02297bdb69e33fab2e5c606fad85..596de3af85e27e4f559bb910e84a23df742cd6b4 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3358,10 +3358,8 @@ allocate_vectorlike (ptrdiff_t len)
        p = allocate_vector_from_block (vroundup (nbytes));
       else
        {
-         struct large_vector *lv
-           = lisp_malloc ((large_vector_offset + header_size
-                           + len * word_size),
-                          MEM_TYPE_VECTORLIKE);
+         struct large_vector *lv = lisp_malloc (large_vector_offset + nbytes,
+                                                MEM_TYPE_VECTORLIKE);
          lv->next = large_vectors;
          large_vectors = lv;
          p = large_vector_vec (lv);