diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index 20b8981bd66..be55dcf8dfd 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -6505,6 +6505,9 @@ mark_char_table (struct Lisp_Vector *ptr, enum pvec_type pvectype) | |||
| 6505 | static void | 6505 | static void |
| 6506 | mark_overlay (struct Lisp_Overlay *ov) | 6506 | mark_overlay (struct Lisp_Overlay *ov) |
| 6507 | { | 6507 | { |
| 6508 | /* We don't mark the `interval_node` object, because it is managed manually | ||
| 6509 | rather than by the GC. */ | ||
| 6510 | eassert (BASE_EQ (ov->interval->data, make_lisp_ptr (ov, Lisp_Vectorlike))); | ||
| 6508 | set_vectorlike_marked (&ov->header); | 6511 | set_vectorlike_marked (&ov->header); |
| 6509 | mark_object (ov->plist); | 6512 | mark_object (ov->plist); |
| 6510 | } | 6513 | } |