Mercurial > hg > xemacs-beta

comparison src/console-tty.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
73 static void 73 static void
74 allocate_tty_console_struct (struct console *con) 74 allocate_tty_console_struct (struct console *con)
75 { 75 {
76 /* zero out all slots except the lisp ones ... */ 76 /* zero out all slots except the lisp ones ... */
77 #ifdef NEW_GC 77 #ifdef NEW_GC
78 CONSOLE_TTY_DATA (con) = alloc_lrecord_type (struct tty_console, 78 CONSOLE_TTY_DATA (con) = XTTY_CONSOLE (ALLOC_LISP_OBJECT (tty_console));
79 &lrecord_tty_console);
80 #else /* not NEW_GC */ 79 #else /* not NEW_GC */
81 CONSOLE_TTY_DATA (con) = xnew_and_zero (struct tty_console); 80 CONSOLE_TTY_DATA (con) = xnew_and_zero (struct tty_console);
82 #endif /* not NEW_GC */ 81 #endif /* not NEW_GC */
83 CONSOLE_TTY_DATA (con)->terminal_type = Qnil; 82 CONSOLE_TTY_DATA (con)->terminal_type = Qnil;
84 CONSOLE_TTY_DATA (con)->instream = Qnil; 83 CONSOLE_TTY_DATA (con)->instream = Qnil;