[Pkg] The Trunk: Tools-ul.359.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jun 7 15:52:07 UTC 2011
Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.359.mcz
==================== Summary ====================
Name: Tools-ul.359
Author: ul
Time: 7 June 2011, 12:06:38.868 pm
UUID: cd2ef60b-0f56-224f-80d9-ec6db504af26
Ancestors: Tools-cmm.358, Tools-ul.357
Merged.
=============== Diff against Tools-cmm.358 ===============
Item was changed:
----- Method: ParagraphEditor>>debug:receiver:in: (in category '*Tools') -----
debug: aCompiledMethod receiver: anObject in: evalContext
+ | guineaPig debugger context |
+ guineaPig := [
+ anObject "Use primitive 188, because primitive 189 escapes the debugger somehow."
+ withArgs: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ])
+ executeMethod: aCompiledMethod ] newProcess.
- | selector guineaPig debugger context |
- selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:].
- anObject class addSelectorSilently: selector withMethod: aCompiledMethod.
- guineaPig := evalContext isNil
- ifTrue: [[anObject DoIt] newProcess]
- ifFalse: [[anObject DoItIn: evalContext] newProcess].
context := guineaPig suspendedContext.
debugger := Debugger new
process: guineaPig
controller: ((Smalltalk isMorphic not and: [ScheduledControllers inActiveControllerProcess])
ifTrue: [ScheduledControllers activeController]
ifFalse: [nil])
context: context.
debugger openFullNoSuspendLabel: 'Debug it'.
[debugger interruptedContext method == aCompiledMethod]
+ whileFalse: [debugger send]!
- whileFalse: [debugger send].
- anObject class basicRemoveSelector: selector!
More information about the Packages
mailing list