diff options
| author | Richard M. Stallman <[email protected]> | 1994-03-05 20:39:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-03-05 20:39:07 +0000 |
| commit | 3f872b675a1c21775d763c0359fed2cb13756daa (patch) | |
| tree | 89e8e616a795a657d8f76ae7de0ac941ed3bf062 /src/alloc.c | |
| parent | 829d872be9d2b6da73a0facea5f3b33beede4b7c (diff) | |
(ARRAY_MARK_FLAG): Definition moved to lisp.h.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/src/alloc.c b/src/alloc.c index 2ced2717cd..402bc9486e 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1190,28 +1190,6 @@ struct backtrace /* 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! */ |