Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1364.mcz
==================== Summary ====================
Name: System-mt.1364 Author: mt Time: 1 July 2022, 1:13:37.123815 pm UUID: 772fb170-20d5-2840-8f8a-d2b0edc17d23 Ancestors: System-mt.1363
When condensing all changes into a new .sources file, sort classes/traits to ensure compatibility between 32-bit and 64-bit images, where different hash values mean different order of enumeration.
=============== Diff against System-mt.1363 ===============
Item was changed: ----- Method: SmalltalkImage>>condenseSources (in category 'housekeeping') ----- condenseSources "Move all the changes onto a compacted sources file." "Smalltalk condenseSources"
| newSourcesFile defaultDirectory newVersion currentVersion | Utilities fixUpProblemsWithAllCategory. "The above removes any concrete, spurious '-- all --' categories, which mess up the process." defaultDirectory := FileDirectory default. currentVersion := self sourceFileVersionString. newVersion := UIManager default request: 'Please designate the version\for the new source code file...' withCRs initialAnswer: currentVersion. newVersion ifEmpty: [ ^ self ]. newVersion = currentVersion ifTrue: [ ^ self error: 'The new source file must not be the same as the old.' ]. self sourceFileVersionString: newVersion.
"Write all sources with fileIndex 1" newSourcesFile := defaultDirectory newFileNamed: (defaultDirectory localNameFor: self sourcesName). newSourcesFile ifNil: [ ^ self error: 'Couldn''t create source code file in' withCRs, defaultDirectory name]. newSourcesFile header; timeStamp. 'Condensing Sources File...' displayProgressFrom: 0 to: self classNames size + self traitNames size during: [ :bar | | count | count := 0. + (Smalltalk allClassesAndTraits + "We have to sort to allow compatibility between 32-bit and 64-bit images." + sorted: [ :a :b | a name <= b name ]) + do: + [ :classOrTrait | + bar value: (count := count + 1). + classOrTrait + fileOutOn: newSourcesFile + moveSource: #historically + toFile: 1 ] ]. - Smalltalk allClassesAndTraitsDo: - [ :classOrTrait | - bar value: (count := count + 1). - classOrTrait - fileOutOn: newSourcesFile - moveSource: #historically - toFile: 1 ] ]. newSourcesFile trailer; close. "Make a new empty changes file" self closeSourceFiles. defaultDirectory rename: self changesName toBe: self changesName , '.old'. (FileStream newFileNamed: self changesName) header; timeStamp; close. self lastQuitLogPosition: 0. self setMacFileInfoOn: self changesName. self setMacFileInfoOn: newSourcesFile name. self openSourceFiles. self inform: 'Source files have been rewritten to' withCRs, newSourcesFile name, '\Check that all is well,\and then save/quit.' withCRs!
squeak-dev@lists.squeakfoundation.org