The file names in the upstream patch below were modified to apply to GNU
ghostscript.

From 0c0b0859ae1aba64861599f0e7f74f143f305932 Mon Sep 17 00:00:00 2001
From: Chris Liddell <chris.liddell@artifex.com>
Date: Tue, 7 Jul 2015 16:57:41 +0100
Subject: [PATCH] Bug 696041: sanity check for memory allocation.

In gs_heap_alloc_bytes(), add a sanity check to ensure we don't overflow the
variable holding the actual number of bytes we allocate.

No cluster differences
---
 gs/base/gsmalloc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base/gsmalloc.c b/base/gsmalloc.c
index 624552d..cad79c2 100644
--- a/base/gsmalloc.c
+++ b/base/gsmalloc.c
@@ -178,7 +178,7 @@ gs_heap_alloc_bytes(gs_memory_t * mem, uint size, client_name_t cname)
     } else {
         uint added = size + sizeof(gs_malloc_block_t);
 
-        if (mmem->limit - added < mmem->used)
+        if (added <= size || mmem->limit - added < mmem->used)
             set_msg("exceeded limit");
         else if ((ptr = (byte *) Memento_label(malloc(added), cname)) == 0)
             set_msg("failed");
-- 
2.4.6

d5c068fb7c4fa69d4673174254742eb410'>refs</a><a class='active' href='/guix/log/tests/services.scm'>log</a><a href='/guix/tree/tests/services.scm?id=241772d5c068fb7c4fa69d4673174254742eb410'>tree</a><a href='/guix/commit/tests/services.scm?id=241772d5c068fb7c4fa69d4673174254742eb410'>commit</a><a href='/guix/diff/tests/services.scm?id=241772d5c068fb7c4fa69d4673174254742eb410'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/services.scm'>
<input type='hidden' name='id' value='241772d5c068fb7c4fa69d4673174254742eb410'/><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=241772d5c068fb7c4fa69d4673174254742eb410'>root</a>/<a href='/guix/log/tests?id=241772d5c068fb7c4fa69d4673174254742eb410'>tests</a>/<a href='/guix/log/tests/services.scm?id=241772d5c068fb7c4fa69d4673174254742eb410'>services.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/tests/services.scm?id=241772d5c068fb7c4fa69d4673174254742eb410&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-05-18 22:29:54 +0200'>2022-05-18</span></td><td><a href='/guix/commit/tests/services.scm?id=3948ac25b1dccc40c7fdf56377f94a0775a835ee'>services: Make &lt;service-type&gt; 'description' field mandatory.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/services.scm (&lt;service-type&gt;)[description]: Remove default value.
* tests/services.scm: Add 'description' field to each 'service-type' form.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-04-10 01:24:30 +0200'>2022-04-10</span></td><td><a href='/guix/commit/tests/services.scm?id=ec6a585ee2fd91c857276479411eedd0756e0093'>services: Test 'shepherd-service-upgrade' with transient services.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to eeb8ac43c8c0b0cc69422766070dbefc55f5c5c1.

* tests/services.scm ("shepherd-service-upgrade: transient service"):
New test.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-04-10 01:15:13 +0200'>2022-04-10</span></td><td><a href='/guix/commit/tests/services.scm?id=e25eca35ff04e4234d0376fbb9a8e146869772c8'>services: herd: Adjust to &lt;live-service&gt; changes.</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to a2c759c8304c461d096ab763568e7f71546ff4e8.

* guix/scripts/system/reconfigure.scm (running-services): Fill in the
'transient?' field of &lt;live-service&gt;.
* tests/services.scm ("shepherd-service-upgrade: one unchanged, one upgraded, one new")
("shepherd-service-upgrade: service depended on is not unloaded")
("shepherd-service-upgrade: obsolete services that depend on each
other"): Adjust calls to 'live-service'.
</span></span></td><td>Ludovic Courtès</td></tr>