http://code.google.com/p/pharo/issues/detail?id=1090


>> Andreas Raab uploaded a new version of Kernel to project The Trunk:
>> http://source.squeak.org/trunk/Kernel-ar.229.mcz
>>
>> ==================== Summary ====================
>>
>> Name: Kernel-ar.229
>> Author: ar
>> Time: 26 August 2009, 8:42:37 am
>> UUID: fad5617c-3a41-4c4e-80af-d8b2234cca10
>> Ancestors: Kernel-dtl.226, Kernel-djr.228
>>
>> Merging Kernel-djr.228:
>>
>> CompiledMethod>>= seems to be broken. Attempt to fix it.
>>
>> MethodProperties>>analogousCodeTo: calls Pragma>>analogousCodeTo:
>> which does not exist.
>>
>> Further assume when both properties are nil and both pragmas are
>> empty, its equal.
>>
>> =============== Diff against Kernel-dtl.226 ===============
>>
>> Item was changed:
>> ----- Method: MethodProperties>>analogousCodeTo: (in category
>> 'testing') -----
>> analogousCodeTo: aMethodProperties
>>      pragmas
>>              ifNil: [aMethodProperties pragmas notEmpty ifTrue: [^false]]
>>              ifNotNil:
>> +                    [pragmas size ~= aMethodProperties pragmas size ifTrue:
>> -                    [aMethodProperties pragmas isEmpty ifTrue: [^false].
>> -                     pragmas size ~= aMethodProperties pragmas size ifTrue:
>>                              [^false].
>>                       pragmas with: aMethodProperties pragmas do:
>>                              [:mine :others|
>>                              (mine analogousCodeTo: others) ifFalse: 
>> [^false]]].
>> +    (self propertiesIsNil and: [aMethodProperties propertiesIsNil])
>> ifTrue: [^true].
>>      ^(self hasAtLeastTheSamePropertiesAs: aMethodProperties)
>>        and: [aMethodProperties hasAtLeastTheSamePropertiesAs: self]!
>>
>> Item was added:
>> + ----- Method: MethodProperties>>propertiesIsNil (in category
>> 'testing') -----
>> + propertiesIsNil
>> +    ^ properties isNil!
>>
>> Item was added:
>> + ----- Method: MethodProperties>>keysAndValuesDo: (in category
>> 'accessing') -----
>> + keysAndValuesDo: aBlock
>> +    properties keysAndValuesDo: aBlock!
>>
>> Item was added:
>> + ----- Method: Pragma>>analogousCodeTo: (in category 'testing')  
>> -----
>> + analogousCodeTo: aPragma
>> +    ^ (self arguments = aPragma arguments) &
>> +            (self keyword = aPragma keyword)!
>>
>>
>
>
> _______________________________________________
> Pharo-project mailing list
> [email protected]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Reply via email to