The Trunk: Kernel-eem.934.mcz

Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.934.mcz

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

Name: Kernel-eem.934
Author: eem
Time: 4 July 2015, 8:06:46.434 am
UUID: 7ab39047-e820-41a4-989e-f9bfac8b4415
Ancestors: Kernel-eem.933

Make sure that any breakpointed version of a method has been removed from BreakpointManager and that the original unbreakpointed methid is in hand when method source is logged, hence preserving method history even if the programmer mistakenly redefines a breakpointed method (something which this poor author is susceptible to).

=============== Diff against Kernel-eem.933 ===============

Item was changed:
  ----- Method: ClassDescription>>logMethodSource:forMethodWithNode:inCategory:withStamp:notifying: (in category 'private') -----
  logMethodSource: aText forMethodWithNode: aCompiledMethodWithNode inCategory: category withStamp: changeStamp notifying: requestor
  | priorMethodOrNil newText |
  priorMethodOrNil := self compiledMethodAt: aCompiledMethodWithNode selector ifAbsent: [].
+ (priorMethodOrNil notNil and: [priorMethodOrNil hasBreakpoint]) ifTrue:
+ [priorMethodOrNil := priorMethodOrNil getAndForgetUnbreakpointedOriginal].
+ newText := (requestor notNil and: [Preferences confirmFirstUseOfStyle])
+ ifTrue: [aText askIfAddStyle: priorMethodOrNil req: requestor]
+ ifFalse: [aText].
+ aCompiledMethodWithNode method
+ putSource: newText
- newText := (requestor notNil
- and: [Preferences confirmFirstUseOfStyle])
- ifTrue: [aText askIfAddStyle: priorMethodOrNil req: requestor]
- ifFalse: [aText].
- aCompiledMethodWithNode method putSource: newText
  fromParseNode: aCompiledMethodWithNode node
+ class: self
+ category: category
+ withStamp: changeStamp
+ inFile: 2
+ priorMethod: priorMethodOrNil!
- class: self category: category withStamp: changeStamp
- inFile: 2 priorMethod: priorMethodOrNil.!

Item was removed:
- ----- Method: CompiledMethod>>hasBreakpoint (in category 'testing') -----
- hasBreakpoint
- ^false!