mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 19:10:37 -08:00
Code Issues Projects Releases Wiki Activity

Mps br/vmarenagrow: arena.c: arenadescribe() now reports total arena

Browse source 
reserved and committed (only the two most important things to know!).
Transgression: This entails calling the ArenaReserved function.

Copied from Perforce
 Change: 163663
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-12-20 17:16:43 +00:00
parent 92a4109067
commit 62faafe4fd
1 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

17
mps/code/arena.c
View file

@ -314,6 +314,7 @@ void ControlFinish(Arena arena)
Res ArenaDescribe(Arena arena, mps_lib_FILE *stream)
{
Res res;
Size reserved;
if (!CHECKT(Arena, arena)) return ResFAIL;
if (stream == NULL) return ResFAIL;
@ -331,9 +332,21 @@ Res ArenaDescribe(Arena arena, mps_lib_FILE *stream)
if (res != ResOK) return res;
}
/* Note: this Describe clause calls a function */
reserved = ArenaReserved(arena);
res = WriteF(stream,
" commitLimit $W\n", (WriteFW)arena->commitLimit,
" spareCommitted $W\n", (WriteFW)arena->spareCommitted,
" reserved $W <-- "
"total size of address-space reserved\n",
(WriteFW)reserved,
NULL);
if (res != ResOK) return res;
res = WriteF(stream,
" committed $W <-- "
"total bytes currently stored (in RAM or swap)\n",
(WriteFW)arena->committed,
" commitLimit $W\n", (WriteFW)arena->commitLimit,
" spareCommitted $W\n", (WriteFW)arena->spareCommitted,
" spareCommitLimit $W\n", (WriteFW)arena->spareCommitLimit,
" zoneShift $U\n", (WriteFU)arena->zoneShift,
" alignment $W\n", (WriteFW)arena->alignment,