# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 917496104 0
# Node ID 9ecc7b85168263a0d2fc423b60d38fc5cf6add40
# Parent  4dc06f8c8c33274605b4517c4a2dd77623b96a95
(x_set_frame_parameters): gcpro as needed.

diff -r 4dc06f8c8c33 -r 9ecc7b851682 src/w32fns.c
--- a/src/w32fns.c	Thu Jan 28 03:49:39 1999 +0000
+++ b/src/w32fns.c	Thu Jan 28 04:01:44 1999 +0000
@@ -688,6 +688,8 @@
   int left_no_change = 0, top_no_change = 0;
   int icon_left_no_change = 0, icon_top_no_change = 0;
 
+  struct gcpro gcpro1, gcpro2;
+
   i = 0;
   for (tail = alist; CONSP (tail); tail = Fcdr (tail))
     i++;
@@ -708,6 +710,15 @@
       i++;
     }
 
+  /* TAIL and ALIST are not used again below here.  */
+  alist = tail = Qnil;
+
+  GCPRO2 (*parms, *values);
+  gcpro1.nvars = i;
+  gcpro2.nvars = i;
+
+  /* There is no need to gcpro LEFT, TOP, ICON_LEFT, or ICON_TOP,
+     because their values appear in VALUES and strings are not valid.  */
   top = left = Qunbound;
   icon_left = icon_top = Qunbound;
 
@@ -871,6 +882,8 @@
 	&& ! (icon_left_no_change && icon_top_no_change))
       x_wm_set_icon_position (f, XINT (icon_left), XINT (icon_top));
   }
+
+  UNGCPRO;
 }
 
 /* Store the screen positions of frame F into XPTR and YPTR.