# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 917228278 0
# Node ID 3689490f7f65e47bb1447489392fb586f391ff8f
# Parent  fbd8d10e80bd2b404f3319a3c8e4274938ac81f9
(x_set_frame_parameters): gcpro as needed.

diff -r fbd8d10e80bd -r 3689490f7f65 src/xfns.c
--- a/src/xfns.c	Mon Jan 25 01:34:34 1999 +0000
+++ b/src/xfns.c	Mon Jan 25 01:37:58 1999 +0000
@@ -760,6 +760,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++;
@@ -779,7 +781,15 @@
       values[i] = Fcdr (elt);
       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;
 
@@ -951,6 +961,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.