Mercurial > hg > xemacs-beta
comparison src/console.c @ 3092:141c2920ea48
[xemacs-hg @ 2005-11-25 01:41:31 by crestani]
Incremental Garbage Collector
author | crestani |
---|---|
date | Fri, 25 Nov 2005 01:42:08 +0000 |
parents | facf3239ba30 |
children | 7c45a748ff54 |
comparison
equal
deleted
inserted
replaced
3091:c22d8984148c | 3092:141c2920ea48 |
---|---|
113 | 113 |
114 | 114 |
115 | 115 |
116 static const struct memory_description console_data_description_1 []= { | 116 static const struct memory_description console_data_description_1 []= { |
117 #ifdef HAVE_TTY | 117 #ifdef HAVE_TTY |
118 #ifdef NEW_GC | |
119 { XD_LISP_OBJECT, tty_console }, | |
120 #else /* not NEW_GC */ | |
118 { XD_BLOCK_PTR, tty_console, 1, { &tty_console_data_description} }, | 121 { XD_BLOCK_PTR, tty_console, 1, { &tty_console_data_description} }, |
122 #endif /* not NEW_GC */ | |
119 #endif | 123 #endif |
124 #ifdef NEW_GC | |
125 { XD_LISP_OBJECT, stream_console }, | |
126 #else /* not NEW_GC */ | |
120 { XD_BLOCK_PTR, stream_console, 1, { &stream_console_data_description} }, | 127 { XD_BLOCK_PTR, stream_console, 1, { &stream_console_data_description} }, |
128 #endif /* not NEW_GC */ | |
121 { XD_END } | 129 { XD_END } |
122 }; | 130 }; |
123 | 131 |
124 static const struct sized_memory_description console_data_description = { | 132 static const struct sized_memory_description console_data_description = { |
125 sizeof (void *), console_data_description_1 | 133 sizeof (void *), console_data_description_1 |
1187 | 1195 |
1188 void | 1196 void |
1189 syms_of_console (void) | 1197 syms_of_console (void) |
1190 { | 1198 { |
1191 INIT_LRECORD_IMPLEMENTATION (console); | 1199 INIT_LRECORD_IMPLEMENTATION (console); |
1200 #ifdef NEW_GC | |
1201 #ifdef HAVE_TTY | |
1202 INIT_LRECORD_IMPLEMENTATION (tty_console); | |
1203 #endif | |
1204 INIT_LRECORD_IMPLEMENTATION (stream_console); | |
1205 #endif /* not NEW_GC */ | |
1192 | 1206 |
1193 DEFSUBR (Fvalid_console_type_p); | 1207 DEFSUBR (Fvalid_console_type_p); |
1194 DEFSUBR (Fconsole_type_list); | 1208 DEFSUBR (Fconsole_type_list); |
1195 DEFSUBR (Fcdfw_console); | 1209 DEFSUBR (Fcdfw_console); |
1196 DEFSUBR (Fselected_console); | 1210 DEFSUBR (Fselected_console); |