The Trunk: System-eem.942.mcz

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

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

Name: System-eem.942
Author: eem
Time: 30 March 2017, 12:46:19.668474 pm
UUID: fb603eb0-6114-4316-8737-dcd157a44ec9
Ancestors: System-eem.941

Eliminate an explicit reference to ContextPart and make the derivation of the class of a contexts' receiver robust in the presence of forwarders.

=============== Diff against System-eem.941 ===============

Item was changed:
  ----- Method: ImageSegment>>restoreEndianness: (in category 'fileIn') -----
  restoreEndianness: endiannessHasToBeFixed
  "If endiannessHasToBeFixed, then fix endianness (byte order) of any objects not already fixed.  Do this by discovering classes that need a startUp message sent to each instance, and sending it.
  I have just been brought in and converted to live objects.  Find all Sets and Dictionaries in the newly created objects and rehash them.  Segment is near then end of memory, since is was newly brought in (and a new object created for it).
  Also, collect all classes of receivers of blocks which refer to instance variables.  Return them.  Caller will check if they have been reshaped."
 
  | sets receiverClasses noStartUpNeeded startUps cls msg |
  sets := OrderedCollection new.
  "have to collect them, because Dictionary makes a copy, and that winds up at the end of memory and gets rehashed and makes another one."
  receiverClasses := IdentitySet new.
  noStartUpNeeded := IdentitySet new. "classes that don't have a per-instance startUp message"
  startUps := IdentityDictionary new. "class -> MessageSend of a startUp message"
  self allObjectsDo: [:object |
  object isInMemory ifTrue: [
  (object isKindOf: HashedCollection) ifTrue: [sets add: object].
+ (object isContext and: [object hasInstVarRef]) ifTrue: [
+ receiverClasses add: (object objectClass: object receiver) class].
- ((object isKindOf: ContextPart) and: [object hasInstVarRef]) ifTrue: [
- receiverClasses add: object receiver class].
  (noStartUpNeeded includes: object class) ifFalse: [
  cls := object class.
  (msg := startUps at: cls ifAbsent: [nil]) ifNil: [
  msg := cls startUpFrom: endiannessHasToBeFixed. "a Message, if we need to swap bytes this time"
  msg ifNil: [noStartUpNeeded add: cls]
  ifNotNil: [startUps at: cls put: msg]].
  msg ifNotNil: [msg sentTo: object]]]].
  self rehashDictionaries: sets. "our purpose"
+ ^ receiverClasses "our secondary job"!
- ^ receiverClasses "our secondary job"
- !