Mercurial > hg > xemacs-beta
diff src/console-tty-impl.h @ 5133:444a448b2f53
Merge branch ben-lisp-object into default branch
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Sun, 07 Mar 2010 06:47:37 -0600 |
| parents | a9c41067dd88 |
| children | 5256fedd50e6 308d34e9f07d |
line wrap: on
line diff
--- a/src/console-tty-impl.h Sun Mar 07 06:43:19 2010 -0600 +++ b/src/console-tty-impl.h Sun Mar 07 06:47:37 2010 -0600 @@ -40,7 +40,7 @@ struct tty_console { #ifdef NEW_GC - struct lrecord_header header; + NORMAL_LISP_OBJECT_HEADER header; #endif /* NEW_GC */ int infd, outfd; Lisp_Object instream, outstream; @@ -207,7 +207,7 @@ #ifdef NEW_GC typedef struct tty_console Lisp_Tty_Console; -DECLARE_LRECORD (tty_console, Lisp_Tty_Console); +DECLARE_LISP_OBJECT (tty_console, Lisp_Tty_Console); #define XTTY_CONSOLE(x) \ XRECORD (x, tty_console, Lisp_Tty_Console) @@ -256,7 +256,7 @@ struct tty_device { #ifdef NEW_GC - struct lrecord_header header; + NORMAL_LISP_OBJECT_HEADER header; #endif /* NEW_GC */ #ifdef HAVE_TERMIOS speed_t ospeed; /* Output speed (from sg_ospeed) */ @@ -268,7 +268,7 @@ #ifdef NEW_GC typedef struct tty_device Lisp_Tty_Device; -DECLARE_LRECORD (tty_device, Lisp_Tty_Device); +DECLARE_LISP_OBJECT (tty_device, Lisp_Tty_Device); #define XTTY_DEVICE(x) \ XRECORD (x, tty_device, Lisp_Tty_Device)