[Vm-dev] VM Maker: VMMakerUI-eem.46.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker:
http://source.squeak.org/VMMaker/VMMakerUI-eem.46.mcz

==================== Summary ====================

Name: VMMakerUI-eem.46
Author: eem
Time: 28 September 2021, 10:50:26.633698 am
UUID: 8dd1e2dd-f86e-4a9a-9c9f-d4594f9e8fd1
Ancestors: VMMakerUI-eem.45

Changes to accompany VMMaker.oscog-eem.3075

=============== Diff against VMMakerUI-eem.45 ===============

Item was changed:
  ----- Method: CogVMSimulator>>evaluatePrinter:on: (in category '*VMMakerUI-user interface') -----
  evaluatePrinter: aBlock on: aStream
  	"Hack to redirect printing to aStream, here to avoid reimplementing all the printing machinery."
+ 	| savedTranscript |
- 	| savedTraceOn savedTranscript |
- 	savedTraceOn := traceOn.
  	savedTranscript := transcript.
- 	traceOn := true.
  	transcript := aStream.
  	^aBlock ensure:
+ 		[transcript := savedTranscript]!
- 		[traceOn := savedTraceOn. transcript := savedTranscript]!

Item was removed:
- ----- Method: NewObjectMemory>>printHeaderTypeOf:on: (in category '*VMMakerUI-debug printing') -----
- printHeaderTypeOf: obj on: aStream
- 	<doNotGenerate>
- 	aStream nextPutAll:
- 		((self headerType: obj) caseOf: {
- 			[HeaderTypeFree]			-> [' HeaderTypeFree (4 bytes)'].
- 			[HeaderTypeShort]			-> [' HeaderTypeShort (4 bytes)'].
- 			[HeaderTypeClass]			-> [' HeaderTypeClass (8 bytes)'].
- 			[HeaderTypeSizeAndClass]	-> [' HeaderTypeSizeAndClass (12 bytes)'] })!

Item was removed:
- ----- Method: SpurMemoryManager>>printHeaderTypeOf:on: (in category '*VMMakerUI-debug printing') -----
- printHeaderTypeOf: objOop on: aStream
- 	<doNotGenerate>
- 	aStream
- 		nextPutAll: ((self numSlotsOfAny: objOop) >= self numSlotsMask
- 					ifTrue: [' hdr16 ']
- 					ifFalse: [' hdr8 ']);
- 		nextPut: ((self isImmutable: objOop) ifTrue: [$i] ifFalse: [$.]);
- 		nextPut: ((self isRemembered: objOop) ifTrue: [$r] ifFalse: [$.]);
- 		nextPut: ((self isPinned: objOop) ifTrue: [$p] ifFalse: [$.]);
- 		nextPut: ((self isMarked: objOop) ifTrue: [$m] ifFalse: [$.]);
- 		nextPut: ((self isGrey: objOop) ifTrue: [$g] ifFalse: [$.])!

Item was changed:
  ----- Method: StackInterpreterSimulator>>evaluatePrinter:on: (in category '*VMMakerUI-user interface') -----
  evaluatePrinter: aBlock on: aStream
  	"Hack to redirect printing to aStream, here to avoid reimplementing all the printing machinery."
+ 	| savedTranscript |
- 	| savedTraceOn savedTranscript |
- 	savedTraceOn := traceOn.
  	savedTranscript := transcript.
- 	traceOn := true.
  	transcript := aStream.
  	^aBlock ensure:
+ 		[transcript := savedTranscript]!
- 		[traceOn := savedTraceOn. transcript := savedTranscript]!