Mps br/unfixed-summary: good: bufferdescribe now interprets buffer->mode for you

Copied from Perforce
 Change: 161977
 ServerID: perforce.ravenbrook.com

1 files changed, 9 insertions, 1 deletions

diff --git a/mps/code/buffer.c b/mps/code/buffer.c
index 6e6616fc5b8..b4c210882f5 100644
--- a/mps/code/buffer.c
+++ b/mps/code/buffer.c
@@ -147,10 +147,17 @@ Bool BufferCheck(Buffer buffer)
 Res BufferDescribe(Buffer buffer, mps_lib_FILE *stream)
 {
   Res res;
+  char aczMode[5];
 
   if (!CHECKT(Buffer, buffer)) return ResFAIL;
   if (stream == NULL) return ResFAIL;
 
+  aczMode[0] = (buffer->mode & BufferModeTRANSITION)  ? 't' : '_';
+  aczMode[1] = (buffer->mode & BufferModeLOGGED)      ? 'l' : '_';
+  aczMode[2] = (buffer->mode & BufferModeFLIPPED)     ? 'f' : '_';
+  aczMode[3] = (buffer->mode & BufferModeATTACHED)    ? 'a' : '_';
+  aczMode[4] = '\0';
+
   res = WriteF(stream,
                "Buffer $P ($U) {\n",
                (WriteFP)buffer, (WriteFU)buffer->serial,
@@ -160,7 +167,8 @@ Res BufferDescribe(Buffer buffer, mps_lib_FILE *stream)
                "  Pool $P\n",        (WriteFP)buffer->pool,
                buffer->isMutator ?
                  "  Mutator Buffer\n" : "  Internal Buffer\n",
-               "  Mode $B\n",        (WriteFB)(buffer->mode),
+               "  mode $S (TRANSITION, LOGGED, FLIPPED, ATTACHED)\n",
+                       (WriteFS)aczMode,
                "  fillSize $UKb\n",  (WriteFU)(buffer->fillSize / 1024),
                "  emptySize $UKb\n", (WriteFU)(buffer->emptySize / 1024),
                "  alignment $W\n",   (WriteFW)buffer->alignment,