[Pkg] The Trunk: Kernel-eem.934.mcz

[commits at source.squeak.org]

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!