Mercurial > emacs
view src/s/ptx4.h @ 51683:fb960854a12c
(VECTOR_MARK, VECTOR_UNMARK, VECTOR_MARKED_P): New macros.
(GC_STRING_BYTES): Don't mask markbit (it's only used on `size').
(allocate_buffer): Move.
(string_bytes): Don't mask markbit of `size_byte'.
(mark_maybe_object, mark_maybe_pointer, Fgarbage_collect)
(mark_object, mark_buffer, survives_gc_p, gc_sweep):
Use the `size' field of buffers (rather than the `name' field) for
the mark bit, as is done for all other vectorlike objects.
Use the new macros to access the mark bit of vectorlike objects.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 27 Jun 2003 21:54:20 +0000 |
parents | 566fd2a966aa |
children | 695cf19ef79e |
line wrap: on
line source
/* s/ file for Sequent "ptx 4", which is a modified SVR5.4. */ /* Tell usg5-4.h not to include filio.h. */ #define NO_FILIO_H #include "usg5-4.h" /* Marcus Daniels <marcus@sysc.pdx.edu> says that SIGINFO is defined on ptx4 but it is not a signal. Prevent process.c from doing the wrong thing. */ #define BROKEN_SIGINFO /* pae@dim.com (Phil Ernhardt) says this correction to the definition in usg5-4.h is needed to prevent all asynchronous subprocesses from exiting right away. */ /* James Youngman <jay@gnu.org> found that on "DYNIX/ptx ARNIE 4.0 * V4.4.2 i386", the push of the ttcompat module would fail. It seems * that PTX 4.4.2 doesn't have that module, so if the push fails we * don't kill ourselves. While this version lacks ttcompat, it also * has ptem, but the manual page for ptem indicates that it should * be pushed onto the slave side before the line discipline module. * See also the streampty manual page, if you're curious (and have * a ptx system). */ /* rms: I hope that older versions which do have ttcompat will not get confused by the code to use ptem. */ #undef SETUP_SLAVE_PTY #define SETUP_SLAVE_PTY \ if (ioctl (xforkin, I_PUSH, "ptem") == -1 && errno != EINVAL) \ fatal ("ioctl I_PUSH ptem", errno); \ if (ioctl (xforkin, I_PUSH, "ldterm") == -1) \ fatal ("ioctl I_PUSH ldterm", errno); \ if (ioctl (xforkin, I_PUSH, "ttcompat") == -1 && errno != EINVAL) \ fatal ("ioctl I_PUSH ttcompat", errno);