Mercurial > hg > xemacs-beta

diff src/console-stream-impl.h @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents 141c2920ea48
children d1247f3cc363
line wrap: on
line diff
--- a/src/console-stream-impl.h	Sat Dec 26 00:20:27 2009 -0600
+++ b/src/console-stream-impl.h	Sat Dec 26 21:18:49 2009 -0600
@@ -34,6 +34,9 @@
 
 struct stream_console
 {
+#ifdef NEW_GC
+  struct lrecord_header header;
+#endif /* NEW_GC */
   FILE *in;
   FILE *out;
   FILE *err;
@@ -41,6 +44,17 @@
   Lisp_Object instream;
 };
 
+#ifdef NEW_GC
+typedef struct stream_console Lisp_Stream_Console;
+
+DECLARE_LISP_OBJECT (stream_console, Lisp_Stream_Console);
+
+#define XSTREAM_CONSOLE(x) \
+  XRECORD (x, stream_console, Lisp_Stream_Console)
+#define wrap_stream_console(p) wrap_record (p, stream_console)
+#define STREAM_CONSOLE_P(x) RECORDP (x, stream_console)
+#endif /* NEW_GC */
+
 #define CONSOLE_STREAM_DATA(con) CONSOLE_TYPE_DATA (con, stream)
 
 #endif /* INCLUDED_console_stream_impl_h_ */