From b1ab5ec2dcbe615c3750ea61e26796c2ea030e40 Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Sat, 25 Oct 2014 19:45:48 +0100
Subject: [PATCH] Add poolcount to formatdescribe.

Copied from Perforce
 Change: 187396
 ServerID: perforce.ravenbrook.com
---
 mps/code/format.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/mps/code/format.c b/mps/code/format.c
index 69e7ff1ddbe..da6c33d19a8 100644
--- a/mps/code/format.c
+++ b/mps/code/format.c
@@ -203,6 +203,7 @@ Res FormatDescribe(Format format, mps_lib_FILE *stream, Count depth)
                "Format $P ($U) {\n", (WriteFP)format, (WriteFU)format->serial,
                "  arena $P ($U)\n",
                (WriteFP)format->arena, (WriteFU)format->arena->serial,
+               "  poolCount $U\n", (WriteFU)format->poolCount,
                "  alignment $W\n", (WriteFW)format->alignment,
                "  scan $F\n", (WriteFF)format->scan,
                "  skip $F\n", (WriteFF)format->skip,