Mercurial > hg > xemacs-beta

comparison src/objects.c @ 2551:9f70af3ac939

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-03 16:14:02 by james] Commit Olivier Galibert's dumper updates for bignums and use them. See xemacs-patches message with ID <ps8y685c6p.fsf@diannao.ittc.ku.edu>.
author james
date Thu, 03 Feb 2005 16:14:08 +0000
parents 491f8cf78a9c
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2550:317f30471f4e 2551:9f70af3ac939
61 61
62 Lisp_Object Qcolor_instancep; 62 Lisp_Object Qcolor_instancep;
63 63
64 static const struct memory_description color_instance_data_description_1 []= { 64 static const struct memory_description color_instance_data_description_1 []= {
65 #ifdef HAVE_TTY 65 #ifdef HAVE_TTY
66 { XD_BLOCK_PTR, tty_console, 1, &tty_color_instance_data_description}, 66 { XD_BLOCK_PTR, tty_console, 1, { &tty_color_instance_data_description } },
67 #endif 67 #endif
68 { XD_END } 68 { XD_END }
69 }; 69 };
70 70
71 static const struct sized_memory_description color_instance_data_description = { 71 static const struct sized_memory_description color_instance_data_description = {
75 static const struct memory_description color_instance_description[] = { 75 static const struct memory_description color_instance_description[] = {
76 { XD_INT, offsetof (Lisp_Color_Instance, color_instance_type) }, 76 { XD_INT, offsetof (Lisp_Color_Instance, color_instance_type) },
77 { XD_LISP_OBJECT, offsetof (Lisp_Color_Instance, name)}, 77 { XD_LISP_OBJECT, offsetof (Lisp_Color_Instance, name)},
78 { XD_LISP_OBJECT, offsetof (Lisp_Color_Instance, device)}, 78 { XD_LISP_OBJECT, offsetof (Lisp_Color_Instance, device)},
79 { XD_UNION, offsetof (Lisp_Color_Instance, data), 79 { XD_UNION, offsetof (Lisp_Color_Instance, data),
80 XD_INDIRECT (0, 0), &color_instance_data_description }, 80 XD_INDIRECT (0, 0), { &color_instance_data_description } },
81 {XD_END} 81 {XD_END}
82 }; 82 };
83 83
84 static Lisp_Object 84 static Lisp_Object
85 mark_color_instance (Lisp_Object obj) 85 mark_color_instance (Lisp_Object obj)
270 static Lisp_Object font_instance_truename_internal (Lisp_Object xfont, 270 static Lisp_Object font_instance_truename_internal (Lisp_Object xfont,
271 Error_Behavior errb); 271 Error_Behavior errb);
272 272
273 static const struct memory_description font_instance_data_description_1 []= { 273 static const struct memory_description font_instance_data_description_1 []= {
274 #ifdef HAVE_TTY 274 #ifdef HAVE_TTY
275 { XD_BLOCK_PTR, tty_console, 1, &tty_font_instance_data_description}, 275 { XD_BLOCK_PTR, tty_console, 1, { &tty_font_instance_data_description} },
276 #endif 276 #endif
277 { XD_END } 277 { XD_END }
278 }; 278 };
279 279
280 static const struct sized_memory_description font_instance_data_description = { 280 static const struct sized_memory_description font_instance_data_description = {
285 { XD_INT, offsetof (Lisp_Font_Instance, font_instance_type) }, 285 { XD_INT, offsetof (Lisp_Font_Instance, font_instance_type) },
286 { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, name)}, 286 { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, name)},
287 { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, truename)}, 287 { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, truename)},
288 { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, device)}, 288 { XD_LISP_OBJECT, offsetof (Lisp_Font_Instance, device)},
289 { XD_UNION, offsetof (Lisp_Font_Instance, data), 289 { XD_UNION, offsetof (Lisp_Font_Instance, data),
290 XD_INDIRECT (0, 0), &font_instance_data_description }, 290 XD_INDIRECT (0, 0), { &font_instance_data_description } },
291 { XD_END } 291 { XD_END }
292 }; 292 };
293 293
294 294
295 static Lisp_Object 295 static Lisp_Object