X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fglyphs.c;h=d92508e215825fd7872ff74bea8adadb73836f77;hb=f9fdf5a6cb58286f64f6f8bd0bfd2dab9b9b8816;hp=5acac8d1793de5a36ace3eac026e280ad0af3ed9;hpb=f3ec20f455f3f1212d2c5ee4cadc984330da9c38;p=chise%2Fxemacs-chise.git

diff --git a/src/glyphs.c b/src/glyphs.c
index 5acac8d..d92508e 100644
--- a/src/glyphs.c
+++ b/src/glyphs.c
@@ -917,7 +917,7 @@ static Lisp_Object
 allocate_image_instance (Lisp_Object device)
 {
   struct Lisp_Image_Instance *lp =
-    alloc_lcrecord_type (struct Lisp_Image_Instance, lrecord_image_instance);
+    alloc_lcrecord_type (struct Lisp_Image_Instance, &lrecord_image_instance);
   Lisp_Object val;
 
   zero_lcrecord (lp);
@@ -2940,7 +2940,7 @@ allocate_glyph (enum glyph_type type,
   /* This function can GC */
   Lisp_Object obj = Qnil;
   struct Lisp_Glyph *g =
-    alloc_lcrecord_type (struct Lisp_Glyph, lrecord_glyph);
+    alloc_lcrecord_type (struct Lisp_Glyph, &lrecord_glyph);
 
   g->type = type;
   g->image = Fmake_specifier (Qimage); /* This function can GC */