From 9d6026d8ec1ac503c1f08c036b0fa8afd3533b21 Mon Sep 17 00:00:00 2001 From: Aurelien Aptel Date: Fri, 30 Sep 2016 14:00:51 +0200 Subject: [PATCH] * src/alloc.c: call only non-null finalizers --- src/alloc.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/alloc.c b/src/alloc.c index 45234474a27..f33d93f83b4 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -6899,7 +6899,8 @@ sweep_misc (void) else if (mblk->markers[i].m.u_any.type == Lisp_Misc_User_Ptr) { struct Lisp_User_Ptr *uptr = &mblk->markers[i].m.u_user_ptr; - uptr->finalizer (uptr->p); + if (uptr->finalizer) + uptr->finalizer (uptr->p); } #endif /* Set the type of the freed object to Lisp_Misc_Free. -- 2.39.5