Copied from Fedora.

http://pkgs.fedoraproject.org/cgit/libwmf.git/tree/libwmf-0.2.8.4-CVE-2007-3477.patch

--- libwmf-0.2.8.4/src/extra/gd/gd.c
+++ libwmf-0.2.8.4/src/extra/gd/gd.c
@@ -1335,10 +1335,31 @@
   int w2, h2;
   w2 = w / 2;
   h2 = h / 2;
-  while (e < s)
-    {
-      e += 360;
-    }
+
+  if ((s % 360)  == (e % 360)) {
+         s = 0; e = 360;
+  } else {
+         if (s > 360) {
+                 s = s % 360;
+         }
+
+         if (e > 360) {
+                 e = e % 360;
+         }
+
+         while (s < 0) {
+                 s += 360;
+         }
+
+         while (e < s) {
+                 e += 360;
+         }
+
+         if (s == e) {
+                 s = 0; e = 360;
+         }
+  }
+
   for (i = s; (i <= e); i++)
     {
       int x, y;
zko</option>
<option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek'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=af943b8104357e38e5e3dcfd09bc884764b28deb'>refs</a><a class='active' href='/guix/log/gnu/packages/pascal.scm'>log</a><a href='/guix/tree/gnu/packages/pascal.scm?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>tree</a><a href='/guix/commit/gnu/packages/pascal.scm?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>commit</a><a href='/guix/diff/gnu/packages/pascal.scm?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/pascal.scm'>
<input type='hidden' name='id' value='af943b8104357e38e5e3dcfd09bc884764b28deb'/><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=af943b8104357e38e5e3dcfd09bc884764b28deb'>root</a>/<a href='/guix/log/gnu?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>gnu</a>/<a href='/guix/log/gnu/packages?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>packages</a>/<a href='/guix/log/gnu/packages/pascal.scm?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>pascal.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/pascal.scm?id=af943b8104357e38e5e3dcfd09bc884764b28deb&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-05-01 17:19:38 +0200'>2023-05-01</span></td><td><a href='/guix/commit/gnu/packages/pascal.scm?id=df504d84ca1881854f09f11ae7e72a02adad9b69'>gnu: Add lazarus.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pascal.scm (lazarus): Add variable.
</span></span></td><td>Danny Milosavljevic</td></tr>
<tr><td><span title='2022-12-20 12:09:34 +0100'>2022-12-20</span></td><td><a href='/guix/commit/gnu/packages/pascal.scm?id=4651d380b4737e66ae328a44c15f3ae1c70c29cb'>gnu: p2c: Update to 2.02.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/pascal.scm (p2c): Update to 2.02.
[arguments]: Use gexp.
[native-inputs]: Add unzip.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2022-11-07 22:50:03 +0100'>2022-11-07</span></td><td><a href='/guix/commit/gnu/packages/pascal.scm?id=b3039a0a304f1694280e8a40b604d002764c1d0b'>gnu: fpc: Remove dependency on 'ld-wrapper' from commencement.scm.</a><span class='msg-avail'>...<span class='msg-tooltip'>(gnu packages commencement) should not be used explicitly.

* gnu/packages/pascal.scm (fpc)[inputs]: Remove LD-WRAPPER.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-11-01 22:08:43 -0700'>2022-11-01</span></td><td><a href='/guix/commit/gnu/packages/pascal.scm?id=faa03d1ace931714210b937cefdf8c629b638529'>gnu: Shorten package synopsis.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/crates-io.scm (rust-inflections-1): Shorten
  synopsis.
  (rust-clap-conf-0.1): Likewise.
* gnu/packages/gtk.scm (volctl): Likewise.
* gnu/packages/haskell-xyz.scm (ghc-unliftio): Likewise.
* gnu/packages/kde-pim.scm (korganizer): Likewise.
* gnu/packages/kde.scm (kuserfeedback): Likewise.
* gnu/packages/pascal.scm (p2c): Likewise.
* gnu/packages/python-xyz.scm (python-ttystatus): Likewise.
* gnu/packages/qt.scm (qtwebplugin): Likewise.
</span></span></td><td>Vagrant Cascadian</td></tr>