[squeak-dev] The Trunk: System-cmm.644.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Dec 14 22:59:39 UTC 2013


Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.644.mcz

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

Name: System-cmm.644
Author: cmm
Time: 14 December 2013, 4:58:17.223 pm
UUID: 133e7a1c-346e-4ed3-b08b-dae20c0bd4c6
Ancestors: System-dtl.643

Update comment script used to help identify ObsoleteClasses.

=============== Diff against System-dtl.643 ===============

Item was changed:
  ----- Method: SystemNavigation>>obsoleteClasses (in category 'query') -----
  obsoleteClasses   
  
  	"SystemNavigation default obsoleteClasses inspect"
  	"NOTE:  Also try inspecting comments below"
  	| obs |
  	obs := OrderedCollection new.  Smalltalk garbageCollect.
  	Metaclass allInstancesDo:
  		[:m | | c |
  		c := m soleInstance.
  		(c ~~ nil and: ['AnOb*' match: c name asString])
  			ifTrue: [obs add: c]].
  	^ obs asArray
  
  "Likely in a ClassDict or Pool...
  (Association allInstances select: [:a | (a value isKindOf: Class) and: ['AnOb*' match: a value name]]) asArray
  "
  "Obsolete class refs or super pointer in last lit of a method...
  | n l found |
+ SystemNavigation default browseAllSelect:
- Smalltalk browseAllSelect:
  	[:m | found := false.
  	1 to: m numLiterals do:
  		[:i | (((l := m literalAt: i) isMemberOf: Association)
  				and: [(l value isKindOf: Behavior)
  				and: ['AnOb*' match: l value name]])
  			ifTrue: [found := true]].
  	found]
  "!



More information about the Squeak-dev mailing list