Mercurial > hg > xemacs-beta

comparison src/device.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 ecf1ebac70d8
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2550:317f30471f4e 2551:9f70af3ac939
91 extern const struct sized_memory_description msprinter_device_data_description; 91 extern const struct sized_memory_description msprinter_device_data_description;
92 extern const struct sized_memory_description x_device_data_description; 92 extern const struct sized_memory_description x_device_data_description;
93 93
94 static const struct memory_description device_data_description_1 []= { 94 static const struct memory_description device_data_description_1 []= {
95 #ifdef HAVE_GTK 95 #ifdef HAVE_GTK
96 { XD_BLOCK_PTR, gtk_console, 1, &gtk_device_data_description}, 96 { XD_BLOCK_PTR, gtk_console, 1, { &gtk_device_data_description} },
97 #endif 97 #endif
98 #ifdef HAVE_MS_WINDOWS 98 #ifdef HAVE_MS_WINDOWS
99 { XD_BLOCK_PTR, mswindows_console, 1, &mswindows_device_data_description}, 99 { XD_BLOCK_PTR, mswindows_console, 1, { &mswindows_device_data_description} },
100 { XD_BLOCK_PTR, msprinter_console, 1, &msprinter_device_data_description}, 100 { XD_BLOCK_PTR, msprinter_console, 1, { &msprinter_device_data_description} },
101 #endif 101 #endif
102 #ifdef HAVE_X_WINDOWS 102 #ifdef HAVE_X_WINDOWS
103 { XD_BLOCK_PTR, x_console, 1, &x_device_data_description}, 103 { XD_BLOCK_PTR, x_console, 1, { &x_device_data_description} },
104 #endif 104 #endif
105 { XD_END } 105 { XD_END }
106 }; 106 };
107 107
108 static const struct sized_memory_description device_data_description = { 108 static const struct sized_memory_description device_data_description = {
113 { XD_INT, offsetof (struct device, devtype) }, 113 { XD_INT, offsetof (struct device, devtype) },
114 #define MARKED_SLOT(x) { XD_LISP_OBJECT, offsetof (struct device, x) }, 114 #define MARKED_SLOT(x) { XD_LISP_OBJECT, offsetof (struct device, x) },
115 #include "devslots.h" 115 #include "devslots.h"
116 116
117 { XD_BLOCK_PTR, offsetof (struct device, devmeths), 1, 117 { XD_BLOCK_PTR, offsetof (struct device, devmeths), 1,
118 &console_methods_description }, 118 { &console_methods_description } },
119 { XD_UNION, offsetof (struct device, device_data), 119 { XD_UNION, offsetof (struct device, device_data),
120 XD_INDIRECT (0, 0), &device_data_description }, 120 XD_INDIRECT (0, 0), { &device_data_description } },
121 { XD_END } 121 { XD_END }
122 }; 122 };
123 123
124 static Lisp_Object 124 static Lisp_Object
125 mark_device (Lisp_Object obj) 125 mark_device (Lisp_Object obj)