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

Ensure that code of the form if (condition) statement; is split over two lines, so that it is possible to set a breakpoint on the statement in a debugger.

Browse source 
This change was agreed in 1997 (see <https://info.ravenbrook.com/project/mps/mail/1997/08/19/13-44/0.txt>), so it's about time it was implemented.

Copied from Perforce
 Change: 187071
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2014-09-27 22:57:02 +01:00
parent 1499ab72af
commit c968255f1e
45 changed files with 542 additions and 280 deletions
Download patch file Download diff file Expand all files Collapse all files

30
mps/code/root.c
View file

@ -584,8 +584,10 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
{
Res res;
if (!TESTT(Root, root)) return ResFAIL;
if (stream == NULL) return ResFAIL;
if (!TESTT(Root, root))
return ResFAIL;
if (stream == NULL)
return ResFAIL;
res = WriteF(stream, depth,
"Root $P ($U) {\n", (WriteFP)root, (WriteFU)root->serial,
@ -608,7 +610,8 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
root->pm & AccessREAD ? " READ" : "",
root->pm & AccessWRITE ? " WRITE" : "",
NULL);
if (res != ResOK) return res;
if (res != ResOK)
return res;
switch(root->var) {
case RootTABLE:
@ -617,7 +620,8 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
(WriteFA)root->the.table.base,
(WriteFA)root->the.table.limit,
NULL);
if (res != ResOK) return res;
if (res != ResOK)
return res;
break;
case RootTABLE_MASKED:
@ -627,7 +631,8 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
(WriteFA)root->the.tableMasked.limit,
(WriteFB)root->the.tableMasked.mask,
NULL);
if (res != ResOK) return res;
if (res != ResOK)
return res;
break;
case RootFUN:
@ -636,7 +641,8 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
"environment p $P s $W\n",
(WriteFP)root->the.fun.p, (WriteFW)root->the.fun.s,
NULL);
if (res != ResOK) return res;
if (res != ResOK)
return res;
break;
case RootREG:
@ -644,7 +650,8 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
"thread $P\n", (WriteFP)root->the.reg.thread,
"environment p $P", (WriteFP)root->the.reg.p,
NULL);
if (res != ResOK) return res;
if (res != ResOK)
return res;
break;
case RootFMT:
@ -653,7 +660,8 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
"format base $A limit $A\n",
(WriteFA)root->the.fmt.base, (WriteFA)root->the.fmt.limit,
NULL);
if (res != ResOK) return res;
if (res != ResOK)
return res;
break;
default:
@ -663,7 +671,8 @@ Res RootDescribe(Root root, mps_lib_FILE *stream, Count depth)
res = WriteF(stream, depth,
"} Root $P ($U)\n", (WriteFP)root, (WriteFU)root->serial,
NULL);
if (res != ResOK) return res;
if (res != ResOK)
return res;
return ResOK;
}
@ -679,7 +688,8 @@ Res RootsDescribe(Globals arenaGlobals, mps_lib_FILE *stream, Count depth)
RING_FOR(node, &arenaGlobals->rootRing, next) {
Root root = RING_ELT(Root, arenaRing, node);
res = RootDescribe(root, stream, depth);
if (res != ResOK) return res;
if (res != ResOK)
return res;
}
return res;
}