Mercurial > hg > xemacs-beta

diff src/console-stream-impl.h @ 3092:141c2920ea48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 e22b0213b713
children e0db3c197671
line wrap: on
line diff
--- a/src/console-stream-impl.h	Thu Nov 24 22:51:25 2005 +0000
+++ b/src/console-stream-impl.h	Fri Nov 25 01:42:08 2005 +0000
@@ -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_LRECORD (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_ */