diff options
| author | Pip Cet | 2021-03-07 21:26:29 +0000 |
|---|---|---|
| committer | Andrea Corallo | 2021-03-09 09:25:27 +0100 |
| commit | 93f92cf1ba37f8b9abaee4b9487705bae464c4e0 (patch) | |
| tree | 5d1c5111b79b5cedeba1d5098e560946986cd9af /src/alloc.c | |
| parent | 15aa239ba058ef02544e5dfaf066bd985d9b2f4f (diff) | |
| download | emacs-93f92cf1ba37f8b9abaee4b9487705bae464c4e0.tar.gz emacs-93f92cf1ba37f8b9abaee4b9487705bae464c4e0.zip | |
Zero stale pointer when unloading comp units (bug#46256)
* src/alloc.c (cleanup_vector): Call unload_comp_unit.
* src/comp.c (unload_comp_unit): New function.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index af083361770..fee8cc08aa4 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -3157,8 +3157,7 @@ cleanup_vector (struct Lisp_Vector *vector) | |||
| 3157 | { | 3157 | { |
| 3158 | struct Lisp_Native_Comp_Unit *cu = | 3158 | struct Lisp_Native_Comp_Unit *cu = |
| 3159 | PSEUDOVEC_STRUCT (vector, Lisp_Native_Comp_Unit); | 3159 | PSEUDOVEC_STRUCT (vector, Lisp_Native_Comp_Unit); |
| 3160 | eassert (cu->handle); | 3160 | unload_comp_unit (cu); |
| 3161 | dynlib_close (cu->handle); | ||
| 3162 | } | 3161 | } |
| 3163 | else if (NATIVE_COMP_FLAG | 3162 | else if (NATIVE_COMP_FLAG |
| 3164 | && PSEUDOVECTOR_TYPEP (&vector->header, PVEC_SUBR)) | 3163 | && PSEUDOVECTOR_TYPEP (&vector->header, PVEC_SUBR)) |