Mercurial > emacs
changeset 6211:80569adf45e4
(ARRAY_MARK_FLAG): Definition moved to lisp.h.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Mar 1994 20:39:07 +0000 |
| parents | dcc7759634d8 |
| children | 7a86fbeb5c88 |
| files | src/alloc.c |
| diffstat | 1 files changed, 0 insertions(+), 22 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Sat Mar 05 20:38:30 1994 +0000 +++ b/src/alloc.c Sat Mar 05 20:39:07 1994 +0000 @@ -1190,28 +1190,6 @@ /* if nargs is UNEVALLED, args points to slot holding list of unevalled args */ char evalargs; }; - -/* Two flags that are set during GC in the `size' component - of a string or vector. On some machines, these flags - are defined by the m- file to be different bits. */ - -/* On vector, means it has been marked. - On string size field or a reference to a string, - means not the last reference in the chain. */ - -#ifndef ARRAY_MARK_FLAG -#define ARRAY_MARK_FLAG ((MARKBIT >> 1) & ~MARKBIT) -#endif /* no ARRAY_MARK_FLAG */ - -/* Any slot that is a Lisp_Object can point to a string - and thus can be put on a string's reference-chain - and thus may need to have its ARRAY_MARK_FLAG set. - This includes the slots whose markbits are used to mark - the containing objects. */ - -#if ARRAY_MARK_FLAG == MARKBIT -you lose -#endif /* Garbage collection! */