Fix memory leak in imagemagick-types

* src/image.c (Fimagemagick_types): Use AcquireExceptionInfo to
avoid memory leak.

diff --git a/src/image.c b/src/image.c
index b07c1815eaca6f4b102322ff835067ddc643cc83..a85d5149e7ee0bdbfa241889dfa0f126c251b2fe 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -8885,13 +8885,13 @@ and `imagemagick-types-inhibit'.  */)
 {
   Lisp_Object typelist = Qnil;
   size_t numf = 0;
-  ExceptionInfo ex;
+  ExceptionInfo *ex;
   char **imtypes;
   size_t i;
 
-  GetExceptionInfo(&ex);
-  imtypes = GetMagickList ("*", &numf, &ex);
-  DestroyExceptionInfo(&ex);
+  ex = AcquireExceptionInfo ();
+  imtypes = GetMagickList ("*", &numf, ex);
+  DestroyExceptionInfo (ex);
 
   for (i = 0; i < numf; i++)
     {