(make_process): Use allocate_process.

98423852 · Gerd Moellmann · e9c96c62 · 98423852
Commit 98423852 authored Feb 28, 2001 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 7 deletions

src/process.c src/process.c +2 -7

No files found.
--- a/src/process.c
+++ b/src/process.c
 /* Asynchronous subprocess control for GNU Emacs.
-   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 98, 1999
+   Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 98, 1999, 2001
      Free Software Foundation, Inc.

 This file is part of GNU Emacs.
@@ -434,17 +434,12 @@ Lisp_Object
 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;

-  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;
+  p = allocate_process ();

  XSETINT (p->infd, -1);
  XSETINT (p->outfd, -1);