From 512668dfd92b20d0d08b91d62b422d8262573281 Mon Sep 17 00:00:00 2001
From: Dirk Lemstra <dirk@lemstra.org>
Date: Wed, 24 Mar 2021 20:37:15 +0100
Subject: [PATCH] Throw exception when no exception was raised but status was
 false (#3432).

---
 coders/dcm.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/coders/dcm.c b/coders/dcm.c
index 7a68ed6e8..ed17c9567 100644
--- a/coders/dcm.c
+++ b/coders/dcm.c
@@ -3989,6 +3989,8 @@ static Image *ReadDCMImage(const ImageInfo *image_info,ExceptionInfo *exception)
         if (redmap != (int *) NULL)
           redmap=(int *) RelinquishMagickMemory(redmap);
         image=DestroyImageList(image);
+        if ((status == MagickFalse) && (exception->severity < ErrorException))
+          ThrowReaderException(CorruptImageError,"CorruptImage");
         return(GetFirstImageInList(images));
       }
     if (info.depth != (1UL*MAGICKCORE_QUANTUM_DEPTH))
-- 
2.31.0

s customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>refs</a><a class='active' href='/guix/log/gnu/packages/haxe.scm'>log</a><a href='/guix/tree/gnu/packages/haxe.scm?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>tree</a><a href='/guix/commit/gnu/packages/haxe.scm?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>commit</a><a href='/guix/diff/gnu/packages/haxe.scm?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/haxe.scm'>
<input type='hidden' name='id' value='34867ac9cf0d5a882b3a70223df51c7317b3737d'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>root</a>/<a href='/guix/log/gnu?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>gnu</a>/<a href='/guix/log/gnu/packages?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>packages</a>/<a href='/guix/log/gnu/packages/haxe.scm?id=34867ac9cf0d5a882b3a70223df51c7317b3737d'>haxe.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/haxe.scm?id=34867ac9cf0d5a882b3a70223df51c7317b3737d&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-10-23 17:03:09 -0700'>2022-10-23</span></td><td><a href='/guix/commit/gnu/packages/haxe.scm?id=d3e982dccbd8ec7e00a2ab3efa04bef8f1c16b9e'>gnu: Fix typos.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/emacs-xyz.scm (emacs-piem)[description]: Fix use of "This
  packages".
* gnu/packages/tex.scm (texlive-hardwrap)[description]: Fix spelling of
  "arbitrary".
* gnu/packages/cran.scm (r-shinymanager)[description]: Fix spelling of
  "authentication".
* gnu/packages/lisp-xyz.scm (sbcl-utils-kt)[description]: Fix spelling of
  "developed".
* gnu/packages/crates-io.scm (rust-fs-utils-1)[description]: Fix spelling of
  "filesystem".
  [synopsis]: Likewise.
* gnu/packages/haxe.scm (neko)[description]: Fix spelling of "functions".
* gnu/packages/animation.scm (swftools)[description]: Fix needless
  pluralization of "information".
* gnu/packages/lisp-xyz.scm (sbcl-slot-extra-options)[description]: Fix
  spelling of "inheritance".
* gnu/packages/emacs-xyz.scm (emacs-js-comint)[description]: Fix spelling of
  "interpreter".
* gnu/packages/coq.scm (coq-mathcomp-finmap)[description]: Fix spelling of
  "library".
* gnu/services/lightdm.scm (lightdm-configuration): Fix spelling of
  "mechanism".
* gnu/packages/emacs-xyz.scm (emacs-citar-org-roam)[synopsis]: Fix spelling of
  "package".
* gnu/packages/games.scm (freerct)[description]: Fix spelling of
  "responsibilities".
* gnu/packages/statistics.scm (r-mixedpower)[description]: Fix spelling of
  "separate".
* gnu/packages/accessibility.scm (espeakup)[description]: Fix spelling of
  "speech".
* gnu/packages/bioinformatics.scm (r-skitools)[synopsis]: Fix spelling of
  "utilities".
* gnu/packages/golang.scm (go-github-com-savsgio-gotils)[synopsis]: Fix
  spelling of "utilities".
  [description]: Likewise.
* gnu/system.scm (boot-file-system-service os): Fix spelling of "utilities".
</span></span></td><td>Vagrant Cascadian</td></tr>
<tr><td><span title='2022-08-03 14:50:46 +0800'>2022-08-03</span></td><td><a href='/guix/commit/gnu/packages/haxe.scm?id=0ff99893bd90b0f38650fe577ebcf44dfabf627f'>gnu: Add hashlink.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/haxe.scm (hashlink): New variable.

Signed-off-by: 宋文武 &lt;iyzsong@member.fsf.org&gt;
</span></span></td><td>John Kehayias</td></tr>
<tr><td><span title='2022-08-03 14:50:01 +0800'>2022-08-03</span></td><td><a href='/guix/commit/gnu/packages/haxe.scm?id=0dba452898dc4fdbe1b3c2e64f6451ee2000a366'>gnu: Add haxe.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/haxe.scm (haxelib-src): New variable.
(haxe): New variable.

Signed-off-by: 宋文武 &lt;iyzsong@member.fsf.org&gt;
</span></span></td><td>John Kehayias</td></tr>
<tr><td><span title='2022-08-03 14:25:52 +0800'>2022-08-03</span></td><td><a href='/guix/commit/gnu/packages/haxe.scm?id=a4c131a749941bf590b108f751fe8e540e475819'>gnu: Add neko.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/haxe.scm: New module.
(neko): New variable.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add new module.

Signed-off-by: 宋文武 &lt;iyzsong@member.fsf.org&gt;
</span></span></td><td>John Kehayias</td></tr>