* font.c (font_make_object): Avoid dangling pointer which may

crash GC (Bug#17771).

diff --git a/src/ChangeLog b/src/ChangeLog
index fb0cc471599a044187beb0c9cbc254910d6915dc..6869116416ac462d9b3d280c6f0941eac0e5de7e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-19  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       * font.c (font_make_object): Avoid dangling pointer which may
+       crash GC (Bug#17771).
+
 2014-06-18  Eli Zaretskii  <eliz@gnu.org>
 
        * image.c [5 < GIFLIB_MAJOR + (1 <= GIFLIB_MINOR)]: Declare the

diff --git a/src/font.c b/src/font.c
index b49664b5f31f6b16c68d7ca3336f42c8252cabc4..afa138003f25571788d2b6ccc006019a3aae4771 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -207,6 +207,9 @@ font_make_object (int size, Lisp_Object entity, int pixelsize)
     = (struct font *) allocate_pseudovector (size, FONT_OBJECT_MAX, PVEC_FONT);
   int i;
 
+  /* GC can happen before the driver is set up,
+     so avoid dangling pointer here (Bug#17771).  */
+  font->driver = NULL;
   XSETFONT (font_object, font);
 
   if (! NILP (entity))