mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 16:21:07 -08:00
Code Issues Projects Releases Wiki Activity

Mps br/diag: make vmarenadescribe show zones.

Browse source 
arena.c: turn off call from ArenaDescribe to GlobalsDescribe, 
 because it outputs too much stuff (perhaps this change should be 
 reverted later).

Copied from Perforce
 Change: 162212
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-04-27 15:02:45 +01:00
parent 8e3e85cce0
commit 2be43e7a67
2 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
mps/code/arena.c
View file

@ -343,8 +343,13 @@ Res ArenaDescribe(Arena arena, mps_lib_FILE *stream)
res = (*arena->class->describe)(arena, stream);
if (res != ResOK) return res;
/* Do not call GlobalsDescribe: it makes too much output, thanks.
* RHSK 2007-04-27
*
res = GlobalsDescribe(ArenaGlobals(arena), stream);
if (res != ResOK) return res;
*
*/
res = WriteF(stream,
"} Arena $P ($U)\n", (WriteFP)arena,

14
mps/code/arenavm.c
View file

@ -214,10 +214,19 @@ static Res VMArenaDescribe(Arena arena, mps_lib_FILE *stream)
*
*/
res = WriteF(stream, "@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\n", NULL);
AVER(3 < VMArenaGenCount);
res = WriteF(stream,
" blacklist: $B\n", (WriteFB)vmArena->blacklist,
" genZoneSet[0]: $B\n", (WriteFB)vmArena->genZoneSet[0],
" genZoneSet[1]: $B\n", (WriteFB)vmArena->genZoneSet[1],
" genZoneSet[2]: $B\n", (WriteFB)vmArena->genZoneSet[2],
" genZoneSet[3]: $B\n", (WriteFB)vmArena->genZoneSet[3],
" freeSet: $B\n", (WriteFB)vmArena->freeSet,
NULL
);
if (res != ResOK) return res;
/* @@@@ INCOMPLETE @@@@ */
/* (incomplete: some fields are not Described) */
return ResOK;
}
@ -294,7 +303,6 @@ static Res VMChunkCreate(Chunk *chunkReturn, VMArena vmArena, Size size)
AVER(size > 0);
DIAG_WRITEF(( DIAG_STREAM, "\n** VMChunkCreate $U\n", size, NULL ));
DIAG( ArenaDescribe(VMArena2Arena(vmArena), DIAG_STREAM); );
res = VMCreate(&vm, size);