diff options
author | Aurelien Aptel <aaptel@suse.com> | 2016-09-30 14:00:51 +0200 |
---|---|---|
committer | Aurelien Aptel <aaptel@suse.com> | 2016-10-05 10:01:36 +0200 |
commit | 9d6026d8ec1ac503c1f08c036b0fa8afd3533b21 (patch) | |
tree | 6b46d8eda3d104a058197bb01c1af5a46a9e0d52 /src | |
parent | 4b347fe5368aedc161e172bd110e05e2f7f37463 (diff) | |
download | emacs-9d6026d8ec1ac503c1f08c036b0fa8afd3533b21.tar.gz |
* src/alloc.c: call only non-null finalizers
Diffstat (limited to 'src')
-rw-r--r-- | src/alloc.c | 3 |
1 files changed, 2 insertions, 1 deletions
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. |