The Trunk: System-ul.940.mcz

Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.940.mcz

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

Name: System-ul.940
Author: ul
Time: 21 March 2017, 6:55:02.32896 pm
UUID: bb942b8d-8893-42f6-b10f-ba058fbda68c
Ancestors: System-ul.939

- SmalltalkImage >> #specialSelectors returns the raw array used by the VM
- introduced SmalltalkImage >> #specialSelectorNames, which returns just the names of the special selectors without their argument count

=============== Diff against System-ul.939 ===============

Item was added:
+ ----- Method: SmalltalkImage>>specialSelectorNames (in category 'special objects') -----
+ specialSelectorNames
+ "Return a collection with the names of the special selectors."
+
+ | arrayOfPairs |
+ arrayOfPairs := self specialSelectors.
+ ^Array new: arrayOfPairs size // 2 streamContents: [ :stream |
+ arrayOfPairs pairsDo: [ :selector :numArgs |
+ stream nextPut: selector ] ]
+ !

Item was changed:
  ----- Method: SmalltalkImage>>specialSelectors (in category 'special objects') -----
  specialSelectors
+ "Return an array with flattened special selector - argument count pairs. VMMaker relies on this."
 
+ ^self specialObjectsArray at: 24!
- | arrayOfPairs |
- arrayOfPairs := self specialObjectsArray at: 24.
- ^Array new: arrayOfPairs size // 2 streamContents: [ :stream |
- arrayOfPairs pairsDo: [ :selector :numArgs |
- stream nextPut: selector ] ]
- !

Item was changed:
  ----- Method: SystemNavigation>>allSentMessagesWithout: (in category 'query') -----
  allSentMessagesWithout: classesAndMessagesPair
  "Answer the set of selectors which are sent somewhere in the system,  
  computed in the absence of the supplied classes and messages."
  | sent absentClasses absentSelectors |
  sent := IdentitySet new: CompiledMethod instanceCount.
  absentClasses := classesAndMessagesPair first.
  absentSelectors := classesAndMessagesPair second.
  "sd 29/04/03"
  Cursor execute showWhile: [
  self environment allClassesAndTraitsDo: [:cls |
  ((absentClasses includes: cls name)
  ifTrue: [{}]
  ifFalse: [{cls. cls classSide}])
  do: [:each | (absentSelectors isEmpty
  ifTrue: [each selectors]
  ifFalse: [each selectors copyWithoutAll: absentSelectors])
  do: [:sel | "Include all sels, but not if sent by self"
  (each compiledMethodAt: sel) literalsDo: [:m |
  (m isSymbol)
  ifTrue: ["might be sent"
  m == sel
  ifFalse: [sent add: m]].
  (m isMemberOf: Array)
  ifTrue: ["might be performed"
  m
  do: [:x | (x isSymbol)
  ifTrue: [x == sel
  ifFalse: [sent add: x]]]]]]]]].
  "The following may be sent without being in any literal frame"
+ Smalltalk specialSelectorNames do: [:sel | sent add: sel].
- Smalltalk specialSelectors do: [:sel | sent add: sel].
  Smalltalk presumedSentMessages do: [:sel | sent add: sel].
  ^ sent.!