From 21c36f07a504c753ae689a6b8e7ae09c9936da94 Mon Sep 17 00:00:00 2001
From: Richard Frith-MacDonald <rfm@gnu.org>
Date: Wed, 4 Sep 2013 08:39:24 +0000
Subject: [PATCH] report unleaked memory

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/ec/trunk@37039 72102866-910b-0410-8b05-ffd578937521
---
 EcProcess.m | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/EcProcess.m b/EcProcess.m
index 969d703..2d54f47 100644
--- a/EcProcess.m
+++ b/EcProcess.m
@@ -2090,8 +2090,17 @@ NSLog(@"Ignored attempt to set timer interval to %g ... using 10.0", interval);
 	   */
 	  if (average > (memAllowed * 1024 * 1024))
 	    {
-	      [self cmdError: @"Average memory usage grown to %"PRIuPTR"KB",
-		average / 1024];
+              if (notLeaked > 1024)
+                {
+                  [self cmdError: @"Average heap usage grown to %"PRIuPTR
+                    "KB (plus %"PRIuPTR"KB not leaked)",
+                    average / 1024, notLeaked / 1024];
+                }
+              else
+                {
+                  [self cmdError: @"Average heap usage grown to %"PRIuPTR"KB",
+                    average / 1024];
+                }
 	    }
 
 	  /* Set the peak memory from the last set of readings.