summaryrefslogtreecommitdiff
path: root/src/alloc.c
diff options
context:
space:
mode:
authorPip Cet <pipcet@gmail.com>2021-03-07 21:26:29 +0000
committerAndrea Corallo <akrl@sdf.org>2021-03-09 09:25:27 +0100
commit93f92cf1ba37f8b9abaee4b9487705bae464c4e0 (patch)
tree5d1c5111b79b5cedeba1d5098e560946986cd9af /src/alloc.c
parent15aa239ba058ef02544e5dfaf066bd985d9b2f4f (diff)
downloademacs-93f92cf1ba37f8b9abaee4b9487705bae464c4e0.tar.gz
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.c3
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)
{
struct Lisp_Native_Comp_Unit *cu =
PSEUDOVEC_STRUCT (vector, Lisp_Native_Comp_Unit);
- eassert (cu->handle);
- dynlib_close (cu->handle);
+ unload_comp_unit (cu);
}
else if (NATIVE_COMP_FLAG
&& PSEUDOVECTOR_TYPEP (&vector->header, PVEC_SUBR))