Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.609.mcz
==================== Summary ====================
Name: Kernel-nice.609 Author: nice Time: 20 July 2011, 9:29:30.183 am UUID: 50b9cca2-c2a0-47c3-a367-2eae2ed530de Ancestors: Kernel-eem.608
Use literalEqual: in hasLiteral: and hasLiteralThorough: Remove hasLiteralThorough:from: because it is suspect: - it is not sent - it checks whether aLiteral == aBlock which cannot happen in Squeak implementation - it send hasLiteralThorough: to literals which was weired and is now deprecated
=============== Diff against Kernel-eem.608 ===============
Item was changed: ----- Method: CompiledMethod>>hasLiteral: (in category 'literals') ----- hasLiteral: literal - | litClass lit | "Answer whether the receiver references the argument, literal." - litClass := literal class. 2 to: self numLiterals - 1 do: "exclude superclass + selector/properties" [:index | + ((self objectAt: index) literalEqual: literal) ifTrue: [^true]]. - lit := self objectAt: index. - (litClass == lit class and: [literal = lit]) ifTrue: [^true]]. ^false!
Item was changed: ----- Method: CompiledMethod>>hasLiteralThorough: (in category 'literals') ----- hasLiteralThorough: literal "Answer true if any literal in this method is literal, even if embedded in array structure."
(self penultimateLiteral isMethodProperties and: [self penultimateLiteral hasLiteralThorough: literal]) ifTrue:[^true]. 2 to: self numLiterals - 1 "exclude superclass + selector/properties" do:[:index | | lit | + (((lit := self objectAt: index) literalEqual: literal) - ((lit := self objectAt: index) == literal or: [(lit isVariableBinding and: [lit key == literal]) or: [lit isArray and: [lit hasLiteral: literal]]]) ifTrue: [^ true]]. ^ false !
Item was removed: - ----- Method: CompiledMethod>>hasLiteralThorough:from: (in category 'literals') ----- - hasLiteralThorough: aLiteral from: aBlock - "Answer true if any literal in this method is literal, even if embedded in array structure or within its pragmas." - - | literal | - self pragmas do: [ :pragma | - (pragma hasLiteral: aLiteral) ifTrue: [ ^ true ] ]. - 2 to: self numLiterals + 1 do: [ :index | - literal := self objectAt: index. - literal == aLiteral ifTrue: [ ^ true ]. - literal == aBlock ifFalse:[ (literal hasLiteralThorough: aLiteral) ifTrue: [ ^ true ]] ]. - ^ false.!