diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index f59f8cbde9a..29ccb38e7b7 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -3027,12 +3027,14 @@ cleanup_vector (struct Lisp_Vector *vector) | |||
| 3027 | if (uptr->finalizer) | 3027 | if (uptr->finalizer) |
| 3028 | uptr->finalizer (uptr->p); | 3028 | uptr->finalizer (uptr->p); |
| 3029 | } | 3029 | } |
| 3030 | #ifdef HAVE_MODULES | ||
| 3030 | else if (PSEUDOVECTOR_TYPEP (&vector->header, PVEC_MODULE_FUNCTION)) | 3031 | else if (PSEUDOVECTOR_TYPEP (&vector->header, PVEC_MODULE_FUNCTION)) |
| 3031 | { | 3032 | { |
| 3032 | ATTRIBUTE_MAY_ALIAS struct Lisp_Module_Function *function | 3033 | ATTRIBUTE_MAY_ALIAS struct Lisp_Module_Function *function |
| 3033 | = (struct Lisp_Module_Function *) vector; | 3034 | = (struct Lisp_Module_Function *) vector; |
| 3034 | module_finalize_function (function); | 3035 | module_finalize_function (function); |
| 3035 | } | 3036 | } |
| 3037 | #endif | ||
| 3036 | } | 3038 | } |
| 3037 | 3039 | ||
| 3038 | /* Reclaim space used by unmarked vectors. */ | 3040 | /* Reclaim space used by unmarked vectors. */ |