mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-26 01:40:53 -08:00
Code Issues Projects Releases Wiki Activity

Mps br/diag: diag-out text + arenadescribe every vmarenaextend,

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

Copied from Perforce
 Change: 162224
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-04-27 17:23:21 +01:00
parent 637aae736d
commit 5c41921474
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mps/code/arenavm.c
View file

@ -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. */