The Inbox: Kernel-ul.978.mcz

Levente Uzonyi uploaded a new version of Kernel to project The Inbox:
http://source.squeak.org/inbox/Kernel-ul.978.mcz

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

Name: Kernel-ul.978
Author: ul
Time: 10 January 2016, 10:59:22.308768 pm
UUID: 7bfcfeab-67b7-498a-80ef-f1f4db04e8a5
Ancestors: Kernel-ul.977

Cleaned up #flushCache usage as suggested by Eliot.

=============== Diff against Kernel-ul.977 ===============

Item was changed:
  ----- Method: Behavior>>basicAddSelector:withMethod: (in category 'adding/removing methods') -----
  basicAddSelector: selector withMethod: compiledMethod
  "Add the message selector with the corresponding compiled method to the
  receiver's method dictionary.
  Do this without sending system change notifications"
 
- | oldMethodOrNil |
- oldMethodOrNil := self lookupSelector: selector.
  self methodDict at: selector put: compiledMethod.
  compiledMethod methodClass: self.
  compiledMethod selector: selector.
 
+ "Flush the method cache entries for this selector."
- "Now flush Squeak's method cache, either by selector or by method"
- oldMethodOrNil == nil ifFalse: [oldMethodOrNil flushCache].
  selector flushCache.!

Item was changed:
  ----- Method: Behavior>>basicRemoveSelector: (in category 'adding/removing methods') -----
  basicRemoveSelector: selector
  "Assuming that the argument, selector (a Symbol), is a message selector
  in my method dictionary, remove it and its method. Returns the old method
  if found, nil otherwise."
 
  | oldMethod |
  oldMethod := self methodDict at: selector ifAbsent: [^ nil].
  self methodDict removeKey: selector.
 
+ "Flush the method cache entries for this selector."
- "Now flush Squeak's method cache, either by selector or by method"
- oldMethod flushCache.
  selector flushCache.
  ^oldMethod!

Item was changed:
  ----- Method: MethodDictionary>>at:put: (in category 'accessing') -----
  at: key put: value
  "Set the value at key to be value."
 
  | index |
  index := self scanFor: key.
+ (self basicAt: index) ifNotNil: [
+ ^array at: index put: value ].
+ ^self
+ basicAt: index put: key;
+ atNewIndex: index put: value!
- (self basicAt: index)
- ifNil: [
- self
- basicAt: index put: key;
- atNewIndex: index put: value ]
- ifNotNil: [
- (array at: index) flushCache.
- array at: index put: value ].
- ^value!