Add diagnostics for using private heap on MS-Windows during dumping.

 src/w32heap.c (report_temacs_memory_usage): New function.
 src/unexw32.c (unexec) [ENABLE_CHECKING]: Call report_temacs_memory_usage.
 src/w32heap.h (report_temacs_memory_usage): Add prototype.

1 files changed, 13 insertions, 0 deletions

diff --git a/src/w32heap.c b/src/w32heap.c
index 7cce7c50319..be097901747 100644
--- a/src/w32heap.c
+++ b/src/w32heap.c
@@ -448,6 +448,19 @@ free_before_dump (void *ptr)
     }
 }
 
+#ifdef ENABLE_CHECKING
+void
+report_temacs_memory_usage (void)
+{
+  /* Emulate 'message', which writes to stderr in non-interactive
+     sessions.  */
+  fprintf (stderr,
+           "Dump memory usage: Heap: %" PRIu64 "  Large blocks(%lu): %" PRIu64 "\n",
+           (unsigned long long)committed, blocks_number,
+           (unsigned long long)(dumped_data + DUMPED_HEAP_SIZE - bc_limit));
+}
+#endif
+
 /* Emulate getpagesize. */
 int
 getpagesize (void)