--- a/ReadEvalPrintLoop.st Sat Nov 05 12:55:54 2016 +0100
+++ b/ReadEvalPrintLoop.st Sat Nov 05 12:56:52 2016 +0100
@@ -339,11 +339,11 @@
].
].
(showAll or:[ what startsWith:'proc' ]) ifTrue:[
- showAll ifTrue:[ errStream nextPutLine:'Threads:'; nextPutLine:'--------' ].
+ showAll ifTrue:[ errStream cr; nextPutLine:'Threads:'; nextPutLine:'--------' ].
MiniDebugger basicNew showProcesses.
].
(showAll or:[ what startsWith:'mod' ]) ifTrue:[
- showAll ifTrue:[ errStream nextPutLine:'Modules:'; nextPutLine:'--------' ].
+ showAll ifTrue:[ errStream cr; nextPutLine:'Modules:'; nextPutLine:'--------' ].
printModule :=
[:mod |
errStream
@@ -366,7 +366,7 @@
(showAll or:[ what startsWith:'mem' ]) ifTrue:[
|allMem|
- showAll ifTrue:[ errStream nextPutLine:'Memory:'; nextPutLine:'-------' ].
+ showAll ifTrue:[ errStream cr; nextPutLine:'Memory:'; nextPutLine:'-------' ].
allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed
+ ObjectMemory newSpaceUsed.
errStream
@@ -377,7 +377,7 @@
nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString).
].
(showAll or:[ what startsWith:'flag' ]) ifTrue:[
- showAll ifTrue:[ errStream nextPutLine:'Flags:'; nextPutLine:'------' ].
+ showAll ifTrue:[ errStream cr; nextPutLine:'Flags:'; nextPutLine:'------' ].
errStream
nextPutLine:('trace : ',traceFlag printString);
nextPutLine:('timing: ',timingFlag printString);