Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.132.mcz
==================== Summary ====================
Name: Cog-eem.132 Author: eem Time: 5 February 2014, 7:42:40.367 pm UUID: 77121e2f-26ba-4ec5-9fa0-25883794b032 Ancestors: Cog-eem.131
Fix package rewriting of Spur bootstrap method prototypes for the binary selector hack.
=============== Diff against Cog-eem.131 ===============
Item was changed: ----- Method: SpurBootstrapMonticelloPackagePatcher>>packagesAndPatches (in category 'private-accessing') ----- packagesAndPatches "SpurBootstrapMonticelloPackagePatcher new packagesAndPatches" | packagesAndPatches | packagesAndPatches := Dictionary new. SpurBootstrap new prototypeClassNameMetaSelectorMethodDo: + [:className :isMeta :selector :method| | class methodReference source | - [:className :isMeta :selector :method| | class methodReference | class := Smalltalk classNamed: className. isMeta ifTrue: [class := class class]. methodReference := (class includesSelector: selector) ifTrue: [(class >> selector) methodReference]. + 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]. (packagesAndPatches 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: [Categorizer default]) timeStamp: method timeStamp + source: source))]. - source: (method getSourceFromFile asString allButFirst: method selector size - selector size)))]. ^packagesAndPatches!
vm-dev@lists.squeakfoundation.org