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

Consistent order stream, depth.

Browse source 
Copied from Perforce
 Change: 186001
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2014-05-11 18:30:23 +01:00
parent 2493f121dc
commit c77c91056d
34 changed files with 144 additions and 150 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/code/cbs.c
View file

@ -660,7 +660,7 @@ static Res cbsBlockDescribe(CBSBlock block, mps_lib_FILE *stream)
if (stream == NULL)
return ResFAIL;
res = WriteF(0, stream,
res = WriteF(stream, 0,
"[$P,$P) {$U, $B}",
(WriteFP)block->base,
(WriteFP)block->limit,
@ -1064,7 +1064,7 @@ Res CBSDescribe(CBS cbs, mps_lib_FILE *stream, Count depth)
if (stream == NULL)
return ResFAIL;
res = WriteF(depth, stream,
res = WriteF(stream, depth,
"CBS $P {\n", (WriteFP)cbs,
" alignment: $U\n", (WriteFU)cbs->alignment,
" blockPool: $P\n", (WriteFP)cbsBlockPool(cbs),
@ -1080,7 +1080,7 @@ Res CBSDescribe(CBS cbs, mps_lib_FILE *stream, Count depth)
&cbsSplayNodeDescribe);
if (res != ResOK) return res;
res = WriteF(depth, stream, "} CBS $P\n", (WriteFP)cbs, NULL);
res = WriteF(stream, depth, "} CBS $P\n", (WriteFP)cbs, NULL);
return res;
}