* src/alloc.c: call only non-null finalizers
This commit is contained in:
parent
6133d656d0
commit
d9ce9c8f4f
1 changed files with 2 additions and 1 deletions
|
@ -6907,7 +6907,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.
|
||||
|
|
Loading…
Add table
Reference in a new issue