From 5c419214746c3a2f010a8bd4530b6b93e50aaef5 Mon Sep 17 00:00:00 2001
From: Richard Kistruck <rhsk@ravenbrook.com>
Date: Fri, 27 Apr 2007 17:23:21 +0100
Subject: [PATCH] Mps br/diag: diag-out text + arenadescribe every
 vmarenaextend,

(instead of every VMChunkCreate, which includes when making initial arena)

Copied from Perforce
 Change: 162224
 ServerID: perforce.ravenbrook.com
---
 mps/code/arenavm.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mps/code/arenavm.c b/mps/code/arenavm.c
index b50c0513846..b9a84026246 100644
--- a/mps/code/arenavm.c
+++ b/mps/code/arenavm.c
@@ -301,9 +301,6 @@ static Res VMChunkCreate(Chunk *chunkReturn, VMArena vmArena, Size size)
   AVERT(VMArena, vmArena);
   AVER(size > 0);
 
-  DIAG_WRITEF(( DIAG_STREAM, "\n** VMChunkCreate $U\n", size, NULL ));
-  DIAG( ArenaDescribe(VMArena2Arena(vmArena), DIAG_STREAM); );
-
   res = VMCreate(&vm, size);
   if (res != ResOK)
     goto failVMCreate;
@@ -1054,6 +1051,10 @@ static Res vmArenaExtend(VMArena vmArena, Size size)
   /* more than vmArena->extendBy (because there will be fewer than */
   /* size bytes free in the new chunk).  Fix this. */
   chunkSize = vmArena->extendBy + size;
+
+  DIAG_WRITEF(( DIAG_STREAM, "\n** vmArenaExtend $U\n", chunkSize, NULL ));
+  DIAG( ArenaDescribe(VMArena2Arena(vmArena), DIAG_STREAM); );
+
   res = VMChunkCreate(&newChunk, vmArena, chunkSize);
   /* .improve.chunk-create.fail: If we fail we could try again */
   /* (with a smaller size, say).  We don't do this. */