<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Hi all!<div><br></div><div>Can I push this to Trunk to have a better image report for 5.3? Especially that bytecode-set encoder stuff... :-)</div><div><br></div><div><img id="c6aaa233-769d-479f-9371-4661747eec5f" src="cid:64157608-397a-4b79-bff6-d40ad1bf9fb3" width="auto"></img><br></div><div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 10.12.2019 15:59:41 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of SystemReporter was added to project The Inbox:<br>http://source.squeak.org/inbox/SystemReporter-mt.41.mcz<br><br>==================== Summary ====================<br><br>Name: SystemReporter-mt.41<br>Author: mt<br>Time: 10 December 2019, 3:59:34.438553 pm<br>UUID: 14618004-0dd4-2343-9469-2dd5aaddd38f<br>Ancestors: SystemReporter-eem.40<br><br>Updates image report.<br><br>=============== Diff against SystemReporter-eem.40 ===============<br><br>Item was added:<br>+ ----- Method: SystemReporter>>countUsesOfBytecodeSetEncoders (in category 'private') -----<br>+ countUsesOfBytecodeSetEncoders<br>+ <br>+ | bag |<br>+ bag := Bag new.<br>+ CompiledMethod allInstancesDo: [:method | <br>+ bag add: method encoderClass].<br>+ ^ BytecodeEncoder allSubclasses collect: [:cls |<br>+ cls -> (bag occurrencesOf: cls)]!<br><br>Item was changed:<br> ----- Method: SystemReporter>>reportImage: (in category 'reporting') -----<br> reportImage: aStream<br>+ <br>+ | padding |<br>+ padding := 25.<br> self header: 'Image' on: aStream.<br> aStream <br>+ nextPutAll: ('Image name:' padded: #right to: padding with: Character space); nextPutAll: Smalltalk image imageName; cr;<br>+ nextPutAll: ('Image version:'padded: #right to: padding with: Character space); nextPutAll: SystemVersion current version; cr;<br>+ nextPutAll: ('Latest update:' padded: #right to: padding with: Character space); print: SystemVersion current highestUpdate; cr;<br>+ nextPutAll: ('Current change set:' padded: #right to: padding with: Character space); nextPutAll: ChangeSet current name; cr.<br>- nextPutAll: Smalltalk image imageName; cr;<br>- nextPutAll: SystemVersion current version; cr;<br>- nextPutAll: Smalltalk image lastUpdateString; cr;<br>- nextPutAll: Smalltalk image currentChangeSetString; cr.<br> [ | imageFormat bitsPerWord |<br> imageFormat := Smalltalk image imageFormatVersion.<br> bitsPerWord := Smalltalk image wordSize * 8.<br>+ aStream nextPutAll: ('Image format:' padded: #right to: padding with: Character space);<br>- aStream nextPutAll: 'Image format ';<br> nextPutAll: imageFormat asString;<br> nextPutAll: ' (';<br> nextPutAll: bitsPerWord asString;<br> nextPutAll: ' bit)'; cr]<br> on: Warning<br> do: ["primitive not present in VM"].<br>+ aStream nextPutAll: ('Preferred bytecode set:' padded: #right to: padding with: Character space);<br>+ print: CompiledCode preferredBytecodeSetEncoderClass;<br>+ cr.<br>+ self countUsesOfBytecodeSetEncoders do: [:encoderToCount |<br>+ aStream nextPutAll: ' Uses of ', (encoderToCount key name padded: #right to: padding with: Character space); space; print: encoderToCount value; cr].!<br>- !<br><br><br></div></blockquote></div>