The Trunk: Kernel-eem.1348.mcz

Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1348.mcz

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

Name: Kernel-eem.1348
Author: eem
Time: 9 October 2020, 7:18:24.987162 pm
UUID: 006721f7-6f3b-44fa-86f3-8c661d950fa4
Ancestors: Kernel-eem.1347

Fix the wrong outer code bug (see CompilerTest>>testValidFullBlockMethod) and recompile all offending methods.

=============== Diff against Kernel-eem.1347 ===============

Item was added:
+ ----- Method: CompiledBlock>>copyWithOuterCode: (in category 'private-copying') -----
+ copyWithOuterCode: aCompiledCode
+ "Private; answer a shallow copy of the receiver updated with deep copies of
+ embedded block methods and a reference to aCompiledCode as the outer code."
+ | numLiterals copy |
+ copy := self shallowCopy.
+ 1 to: (numLiterals := self numLiterals) - 1 do:
+ [:i| | lit |
+ (lit := copy literalAt: i) isCompiledCode ifTrue:
+ [copy literalAt: i put: (lit copyWithOuterCode: copy)]].
+ copy literalAt: numLiterals put: aCompiledCode.
+ ^copy!

Item was removed:
- ----- Method: CompiledCode>>copyWithTrailerBytes: (in category 'copying') -----
- copyWithTrailerBytes: trailer
- "Testing:
- (CompiledMethod compiledMethodAt: #copyWithTrailerBytes:)
- tempNamesPut: 'copy end '
- "
- | copy end start |
- start := self initialPC.
- end := self endPC.
- copy := trailer createMethod: end - start + 1 class: self class header: self header.
- 1 to: self numLiterals do: [:i | copy literalAt: i put: (self literalAt: i)].
- start to: end do: [:i | copy at: i put: (self at: i)].
- copy postCopy.
- ^copy!

Item was added:
+ ----- Method: CompiledMethod>>copyWithTrailerBytes: (in category 'copying') -----
+ copyWithTrailerBytes: trailer
+ "Testing:
+ CompiledMethod >> #copyWithTrailerBytes:
+ copyWithTempsFromMethodNode: (CompiledMethod >> #copyWithTrailerBytes:) methodNode"
+ | copy end start |
+ start := self initialPC.
+ end := self endPC.
+ copy := trailer createMethod: end - start + 1 class: self class header: self header.
+ 1 to: self numLiterals do:
+ [:i | | lit |
+ lit := self literalAt: i.
+ copy literalAt: i put: ((lit isCompiledCode and: [lit isCompiledBlock])
+ ifTrue: [lit copyWithOuterCode: copy]
+ ifFalse: [lit])].
+ start to: end do: [:i | copy at: i put: (self at: i)].
+ copy postCopy.
+ ^copy!

Item was changed:
+ (PackageInfo named: 'Kernel') postscript: '"recompile all methods containing blocks with the wrong outerCode"
+ (self systemNavigation allMethodsSelect: [:m| m literals anySatisfy: [:l| l isCompiledCode and: [l isCompiledBlock and: [l outerCode ~~ m]]]]) do:
+ [:mr| mr actualClass recompile: mr selector]'!
- (PackageInfo named: 'Kernel') postscript: 'EventSensor default installInterruptWatcher.'!