* image.c (Fimagemagick_types): Initialize ex with GetExceptionInfo

and free it with DestroyExceptionInfo.

Fixes: debbugs:11558

1 files changed, 6 insertions, 1 deletions

diff --git a/src/image.c b/src/image.c
index 88d2f36cda9..6f2afb28cd2 100644
--- a/src/image.c
+++ b/src/image.c
@@ -7968,9 +7968,14 @@ and `imagemagick-types-inhibit'.  */)
   Lisp_Object typelist = Qnil;
   size_t numf = 0;
   ExceptionInfo ex;
-  char **imtypes = GetMagickList ("*", &numf, &ex);
+  char **imtypes;
   size_t i;
   Lisp_Object Qimagemagicktype;
+
+  GetExceptionInfo(&ex);
+  imtypes = GetMagickList ("*", &numf, &ex);
+  DestroyExceptionInfo(&ex);
+
   for (i = 0; i < numf; i++)
     {
       Qimagemagicktype = intern (imtypes[i]);