From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 16 Nov 1994 05:50:06 +0000 (+0000)
Subject: (make_frame): Use allocate_vectorlike and VECSIZE.
X-Git-Tag: emacs-19.34~5883
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36af7d69d4467ad79b18c7de5c12b0ed8cc03e8a;p=emacs.git

(make_frame): Use allocate_vectorlike and VECSIZE.
---

diff --git a/src/frame.c b/src/frame.c
index 6630fa18808..39e9a92bcdc 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -141,13 +141,15 @@ make_frame (mini_p)
   register struct frame *f;
   register Lisp_Object root_window;
   register Lisp_Object mini_window;
-
-  frame = Fmake_vector (((sizeof (struct frame) - (sizeof (Lisp_Vector)
-						     - sizeof (Lisp_Object)))
-			  / sizeof (Lisp_Object)),
-			 make_number (0));
-  XSETTYPE (frame, Lisp_Frame);
-  f = XFRAME (frame);
+  register struct Lisp_Vector *vec;
+  int i;
+
+  vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct frame));
+  for (i = 0; i < VECSIZE (struct frame); i++)
+    XSETFASTINT (vec->contents[i], 0);
+  vec->size = VECSIZE (struct frame);
+  f = (struct frame *)vec;
+  XSETFRAME (frame, f);
 
   f->cursor_x = 0;
   f->cursor_y = 0;