--- a/ReadEvalPrintLoop.st Sat Nov 05 13:25:07 2016 +0100
+++ b/ReadEvalPrintLoop.st Sat Nov 05 13:25:16 2016 +0100
@@ -337,11 +337,15 @@
errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:holder value printString.
].
].
+ ok := true.
].
+
(showAll or:[ what startsWith:'proc' ]) ifTrue:[
showAll ifTrue:[ errStream cr; nextPutLine:'Threads:'; nextPutLine:'--------' ].
MiniDebugger basicNew showProcesses.
+ ok := true.
].
+
(showAll or:[ what startsWith:'mod' ]) ifTrue:[
showAll ifTrue:[ errStream cr; nextPutLine:'Modules:'; nextPutLine:'--------' ].
printModule :=
@@ -362,26 +366,31 @@
select:[:m | m dynamic])
asSortedCollection:[:a :b | a name < b name]) do:printModule.
+ ok := true.
].
+
(showAll or:[ what startsWith:'mem' ]) ifTrue:[
|allMem|
showAll ifTrue:[ errStream cr; nextPutLine:'Memory:'; nextPutLine:'-------' ].
allMem := ObjectMemory oldSpaceUsed + ObjectMemory symSpaceUsed
- + ObjectMemory newSpaceUsed.
+ + ObjectMemory newSpaceUsed.
errStream
nextPutLine:('overall: ',(allMem // 1024) printString,' Kb');
nextPutLine:('in use : ',(ObjectMemory bytesUsed // 1024) printString,' Kb');
nextPutLine:('free : ',(ObjectMemory freeSpace // 1024) printString,' Kb');
nextPutLine:('minorGC: ',(ObjectMemory scavengeCount) printString);
nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString).
+ ok := true.
].
+
(showAll or:[ what startsWith:'flag' ]) ifTrue:[
showAll ifTrue:[ errStream cr; nextPutLine:'Flags:'; nextPutLine:'------' ].
errStream
nextPutLine:('trace : ',traceFlag printString);
nextPutLine:('timing: ',timingFlag printString);
nextPutLine:('chunkFormat: ',doChunkFormat printString).
+ ok := true.
].
].