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]!
Locked
