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

Mps master: poolams.c amsdescribe: fix buggy diag output intoduced

Browse source 
in 1998 (change 19787).

Copied from Perforce
 Change: 163155
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-08-20 17:08:59 +01:00
parent c31f20a6de
commit ff8ab008ca
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
mps/code/poolams.c
View file

@ -1597,6 +1597,8 @@ static Res AMSDescribe(Pool pool, mps_lib_FILE *stream)
if (stream == NULL) return ResFAIL;
res = WriteF(stream,
"AMS $P {\n", (WriteFP)ams,
" pool $P ($U)\n",
(WriteFP)pool, (WriteFU)pool->serial,
" size $W\n",
(WriteFW)ams->size,
@ -1619,6 +1621,11 @@ static Res AMSDescribe(Pool pool, mps_lib_FILE *stream)
res = SegDescribe(AMSSeg2Seg(amsseg), stream);
if (res != ResOK) return res;
}
res = WriteF(stream, "} AMS $P\n",(WriteFP)ams, NULL);
if (res != ResOK)
return res;
return ResOK;
}