Mercurial > emacs
comparison src/alloc.c @ 59657:f3aa25eacdb3
(STRING_MARKED_P, VECTOR_MARKED_P): Return boolean.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 20 Jan 2005 15:37:41 +0000 |
| parents | eeb8b96d077d |
| children | 84ff5b7a4139 3dcba0bc766b 6d92d69fae33 |
comparison
equal
deleted
inserted
replaced
| 59656:856b53bfaed4 | 59657:f3aa25eacdb3 |
|---|---|
| 141 /* Mark, unmark, query mark bit of a Lisp string. S must be a pointer | 141 /* Mark, unmark, query mark bit of a Lisp string. S must be a pointer |
| 142 to a struct Lisp_String. */ | 142 to a struct Lisp_String. */ |
| 143 | 143 |
| 144 #define MARK_STRING(S) ((S)->size |= ARRAY_MARK_FLAG) | 144 #define MARK_STRING(S) ((S)->size |= ARRAY_MARK_FLAG) |
| 145 #define UNMARK_STRING(S) ((S)->size &= ~ARRAY_MARK_FLAG) | 145 #define UNMARK_STRING(S) ((S)->size &= ~ARRAY_MARK_FLAG) |
| 146 #define STRING_MARKED_P(S) ((S)->size & ARRAY_MARK_FLAG) | 146 #define STRING_MARKED_P(S) (((S)->size & ARRAY_MARK_FLAG) != 0) |
| 147 | 147 |
| 148 #define VECTOR_MARK(V) ((V)->size |= ARRAY_MARK_FLAG) | 148 #define VECTOR_MARK(V) ((V)->size |= ARRAY_MARK_FLAG) |
| 149 #define VECTOR_UNMARK(V) ((V)->size &= ~ARRAY_MARK_FLAG) | 149 #define VECTOR_UNMARK(V) ((V)->size &= ~ARRAY_MARK_FLAG) |
| 150 #define VECTOR_MARKED_P(V) ((V)->size & ARRAY_MARK_FLAG) | 150 #define VECTOR_MARKED_P(V) (((V)->size & ARRAY_MARK_FLAG) != 0) |
| 151 | 151 |
| 152 /* Value is the number of bytes/chars of S, a pointer to a struct | 152 /* Value is the number of bytes/chars of S, a pointer to a struct |
| 153 Lisp_String. This must be used instead of STRING_BYTES (S) or | 153 Lisp_String. This must be used instead of STRING_BYTES (S) or |
| 154 S->size during GC, because S->size contains the mark bit for | 154 S->size during GC, because S->size contains the mark bit for |
| 155 strings. */ | 155 strings. */ |