# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784962182 0
# Node ID 007d93b04e1f0e38b85f63b6adcd5c70370ac07b
# Parent  943a61c764a5e95693a8af8551e5be02c7da0a66
(make_process): Use allocate_vectorlike and VECSIZE.

diff -r 943a61c764a5 -r 007d93b04e1f src/process.c
--- a/src/process.c	Wed Nov 16 04:48:37 1994 +0000
+++ b/src/process.c	Wed Nov 16 05:03:02 1994 +0000
@@ -467,22 +467,18 @@
 make_process (name)
      Lisp_Object name;
 {
+  struct Lisp_Vector *vec;
   register Lisp_Object val, tem, name1;
   register struct Lisp_Process *p;
   char suffix[10];
   register int i;
 
-  /* size of process structure includes the vector header,
-     so deduct for that.  But struct Lisp_Vector includes the first
-     element, thus deducts too much, so add it back.  */
-  val = Fmake_vector (make_number ((sizeof (struct Lisp_Process)
-				    - sizeof (struct Lisp_Vector)
-				    + sizeof (Lisp_Object))
-				   / sizeof (Lisp_Object)),
-		      Qnil);
-  XSETTYPE (val, Lisp_Process);
-
-  p = XPROCESS (val);
+  vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct Lisp_Process));
+  for (i = 0; i < VECSIZE (struct Lisp_Process); i++)
+    vec->contents[i] = Qnil;
+  vec->size = VECSIZE (struct Lisp_Process);
+  p = (struct Lisp_Process *)vec;
+
   XSETINT (p->infd, -1);
   XSETINT (p->outfd, -1);
   XSETFASTINT (p->pid, 0);
@@ -505,6 +501,7 @@
     }
   name = name1;
   p->name = name;
+  XSETPROCESS (val, p);
   Vprocess_alist = Fcons (Fcons (name, val), Vprocess_alist);
   return val;
 }