diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index 70701d75d47..7f0443dc2ea 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -3270,14 +3270,12 @@ cleanup_vector (struct Lisp_Vector *vector) | |||
| 3270 | /* sweep_buffer should already have unchained this from its buffer. */ | 3270 | /* sweep_buffer should already have unchained this from its buffer. */ |
| 3271 | eassert (! PSEUDOVEC_STRUCT (vector, Lisp_Marker)->buffer); | 3271 | eassert (! PSEUDOVEC_STRUCT (vector, Lisp_Marker)->buffer); |
| 3272 | } | 3272 | } |
| 3273 | #ifdef HAVE_MODULES | ||
| 3274 | else if (PSEUDOVECTOR_TYPEP (&vector->header, PVEC_USER_PTR)) | 3273 | else if (PSEUDOVECTOR_TYPEP (&vector->header, PVEC_USER_PTR)) |
| 3275 | { | 3274 | { |
| 3276 | struct Lisp_User_Ptr *uptr = PSEUDOVEC_STRUCT (vector, Lisp_User_Ptr); | 3275 | struct Lisp_User_Ptr *uptr = PSEUDOVEC_STRUCT (vector, Lisp_User_Ptr); |
| 3277 | if (uptr->finalizer) | 3276 | if (uptr->finalizer) |
| 3278 | uptr->finalizer (uptr->p); | 3277 | uptr->finalizer (uptr->p); |
| 3279 | } | 3278 | } |
| 3280 | #endif | ||
| 3281 | } | 3279 | } |
| 3282 | 3280 | ||
| 3283 | /* Reclaim space used by unmarked vectors. */ | 3281 | /* Reclaim space used by unmarked vectors. */ |