'From PharoCore1.1ALPHA of ''19 October 2009'' [Latest update: #11194] on 5 February 2010 at 1:50:49 pm'!

!TPureBehavior methodsFor: 'testing method dictionary' stamp: 'HenrikSperreJohansen 2/5/2010 13:44'!
thoroughHasSelectorReferringTo: literal special: specialFlag byte: specialByte
	"Answer true if any of my methods access the argument as a 
	literal. Dives into the compact literal notation, making it slow but 
	thorough "

	
	self methodsDo: [ :method |
		((method hasLiteralThorough: literal) or: [specialFlag and: [method scanFor: specialByte]])
			ifTrue: [^true]].
	^false! !


!SystemNavigation methodsFor: 'message sends' stamp: 'HenrikSperreJohansen 2/5/2010 13:49'!
isUnsentMessage: selector
	| special byte |
	
	special := Smalltalk 
		hasSpecialSelector: selector
		ifTrueSetByte: [ :b | byte := b ].
	self allBehaviorsDo: 
		[ :behavior | 
		(behavior 
			thoroughHasSelectorReferringTo: selector
			special: special
			byte: byte) ifTrue: [^false] ].
	^true! !