Mercurial > hg > xemacs-beta

comparison src/console-stream.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children b5df3737028a
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
69 Lisp_Object tty = CONSOLE_CONNECTION (con); 69 Lisp_Object tty = CONSOLE_CONNECTION (con);
70 struct stream_console *stream_con; 70 struct stream_console *stream_con;
71 71
72 #ifdef NEW_GC 72 #ifdef NEW_GC
73 if (CONSOLE_STREAM_DATA (con) == NULL) 73 if (CONSOLE_STREAM_DATA (con) == NULL)
74 CONSOLE_STREAM_DATA (con) = alloc_lrecord_type (struct stream_console, 74 CONSOLE_STREAM_DATA (con) =
75 &lrecord_stream_console); 75 XSTREAM_CONSOLE (ALLOC_LISP_OBJECT (stream_console));
76 #else /* not NEW_GC */ 76 #else /* not NEW_GC */
77 if (CONSOLE_STREAM_DATA (con) == NULL) 77 if (CONSOLE_STREAM_DATA (con) == NULL)
78 CONSOLE_STREAM_DATA (con) = xnew_and_zero (struct stream_console); 78 CONSOLE_STREAM_DATA (con) = xnew_and_zero (struct stream_console);
79 #endif /* not NEW_GC */ 79 #endif /* not NEW_GC */
80 80