[Vm-dev] VM Maker: Cog-eem.172.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 24 21:06:24 UTC 2014

Eliot Miranda uploaded a new version of Cog to project VM Maker:

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

Name: Cog-eem.172
Author: eem
Time: 24 July 2014, 11:06:03.817 am
UUID: e79f79a5-2e7a-4c15-996c-1de7d3d3d2be
Ancestors: Cog-eem.171

Fix slip in categorizing uncategorized methods.

=============== Diff against Cog-eem.171 ===============

Item was changed:
  ----- Method: SpurBootstrapMonticelloPackagePatcher>>packagesAndPatches (in category 'private-accessing') -----
  	"SpurBootstrapMonticelloPackagePatcher new packagesAndPatches"
  	packagesAndPatches ifNotNil:
  	packagesAndPatches := Dictionary new.
  	SpurBootstrap new prototypeClassNameMetaSelectorMethodDo:
  		[:className :isMeta :selector :method| | class methodReference source |
  		 class := Smalltalk classNamed: className.
  		 isMeta ifTrue:
  			[class := class class].
  		 methodReference := (class includesSelector: selector) ifTrue:
  								[(class >> selector) methodReference].
+ 		 (methodReference notNil
+ 		  and: [methodReference category = Categorizer default]) ifTrue:
- 		 methodReference category = Categorizer default ifTrue:
  			[methodReference := nil].
  		 source := method getSourceFromFile asString allButFirst: method selector size - selector size.
  		 source first ~= selector first ifTrue:
  			[source replaceFrom: 1 to: selector size with: selector startingAt: 1].
  				at: (methodReference
  						ifNotNil: [PackageOrganizer default packageOfMethod: methodReference]
  						ifNil: [PackageOrganizer default packageOfClass: class])
  				ifAbsentPut: [OrderedCollection new])
  			add: (MCAddition of: (MCMethodDefinition
  									className: className
  									classIsMeta: isMeta
  									selector: selector
  									category: (methodReference
  												ifNotNil: [methodReference category]
  												ifNil: [SpurBootstrap
  														categoryForClass: className
  														meta: isMeta
  														selector: selector])
  									timeStamp: method timeStamp
  									source: source))].

More information about the Vm-dev mailing list