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

9b099ce5 · Paul Eggert · 469e6bc5 · 9b099ce5
Commit 9b099ce5 authored Dec 08, 2018 by Paul Eggert
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

src/alloc.c src/alloc.c +2 -4

No files found.
--- 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);