(x_set_frame_parameters): gcpro as needed.

1 files changed, 13 insertions, 0 deletions

diff --git a/src/w32fns.c b/src/w32fns.c
index 10afcbca40a..4ecc38832dc 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -688,6 +688,8 @@ x_set_frame_parameters (f, alist)
   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 @@ x_set_frame_parameters (f, alist)
       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 @@ x_set_frame_parameters (f, alist)
         && ! (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.