Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1313.mcz
==================== Summary ====================
Name: Kernel-nice.1313 Author: nice Time: 8 March 2020, 11:24:45.756056 pm UUID: a4264eea-df45-437e-a9bf-6e7a19c0abd2 Ancestors: Kernel-spfa.1312
Fix instructionPrinter for full closure: indent might be un-initialized, so use the message send.
Sacralize EncoderForSistaV1 as the SecondaryBytecodeSetEncoderClass, in order to mitigate the consequences if ever someone had the idea to re-initialize CompiledCode (or subclasses).
=============== Diff against Kernel-spfa.1312 ===============
Item was changed: ----- Method: CompiledCode class>>initialize (in category 'class initialization') ----- initialize "CompiledMethod initialize" "Initialize class variables specifying the size of the temporary frame needed to run instances of me."
SmallFrame := 16. "Context range for temps+stack" LargeFrame := 56. PrimaryBytecodeSetEncoderClass ifNil: [PrimaryBytecodeSetEncoderClass := EncoderForV3PlusClosures]. SecondaryBytecodeSetEncoderClass ifNil: + [SecondaryBytecodeSetEncoderClass := EncoderForSistaV1]! - [SecondaryBytecodeSetEncoderClass := EncoderForV3PlusClosures]!
Item was changed: ----- Method: InstructionPrinter>>pushFullClosure:numCopied: (in category 'printing') ----- pushFullClosure: aCompiledBlock numCopied: numCopied | literalIndex | literalIndex := method literals identityIndexOf: aCompiledBlock. literalIndex = 0 ifTrue: [self print: 'closureNumCopied: ', numCopied printString , ' numArgs: ', aCompiledBlock numArgs printString] ifFalse: [self print: 'pushFullClosure: (self literalAt: ', literalIndex printString, ') numCopied: ', numCopied printString, ' "numArgs: ', aCompiledBlock numArgs printString, '"']. fullBlockRecursionSelector ifNotNil: [(self class on: aCompiledBlock) + indent: self indent + 1; - indent: indent + 1; perform: fullBlockRecursionSelector with: stream]!
packages@lists.squeakfoundation.org