[Pkg] The Trunk: Morphic-mt.1115.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Apr 17 17:54:12 UTC 2016
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1115.mcz
==================== Summary ====================
Name: Morphic-mt.1115
Author: mt
Time: 17 April 2016, 7:53:29.399544 pm
UUID: c54f2046-be47-6c41-8280-6760e845852d
Ancestors: Morphic-mt.1114
Use tool set to "debug it".
=============== Diff against Morphic-mt.1114 ===============
Item was added:
+ ----- Method: MorphicProject>>debugMethod:forReceiver:inContext: (in category 'debugging') -----
+ debugMethod: aCompiledMethod forReceiver: anObject inContext: aContextOrNil
+
+ | guineaPig debugger debuggerWindow context |
+ guineaPig :=
+ [aCompiledMethod
+ valueWithReceiver: anObject
+ arguments: (aContextOrNil ifNil: [ #() ] ifNotNil: [ { aContextOrNil } ]).
+ guineaPig := nil "spot the return from aCompiledMethod"] newProcess.
+ context := guineaPig suspendedContext.
+ debugger := Debugger new
+ process: guineaPig
+ controller: nil
+ context: context.
+ debuggerWindow := debugger openFullNoSuspendLabel: 'Debug it'.
+ "Now step into the expression. But if it is quick (is implemented as a primtiive, e.g. `0')
+ it will return immediately back to the block that is sent newProcess above. Guard
+ against that with the check for home being thisContext."
+ [debugger interruptedContext method == aCompiledMethod]
+ whileFalse:
+ [(guineaPig isNil
+ and: [debugger interruptedContext home == thisContext]) ifTrue:
+ [debuggerWindow delete.
+ UIManager default inform: 'Nothing to debug; expression is optimized'.
+ ^self].
+ debugger send]!
Item was removed:
- ----- Method: TextEditor>>debug:receiver:in: (in category 'do-its') -----
- debug: aCompiledMethod receiver: anObject in: evalContext
-
- | guineaPig debugger debuggerWindow context |
- guineaPig :=
- [aCompiledMethod
- valueWithReceiver: anObject
- arguments: (evalContext ifNil: [ #() ] ifNotNil: [ { evalContext } ]).
- guineaPig := nil "spot the return from aCompiledMethod"] newProcess.
- context := guineaPig suspendedContext.
- debugger := Debugger new
- process: guineaPig
- controller: nil
- context: context.
- debuggerWindow := debugger openFullNoSuspendLabel: 'Debug it'.
- "Now step into the expression. But if it is quick (is implemented as a primtiive, e.g. `0')
- it will return immediately back to the block that is sent newProcess above. Guard
- against that with the check for home being thisContext."
- [debugger interruptedContext method == aCompiledMethod]
- whileFalse:
- [(guineaPig isNil
- and: [debugger interruptedContext home == thisContext]) ifTrue:
- [debuggerWindow delete.
- UIManager default inform: 'Nothing to debug; expression is optimized'.
- ^self].
- debugger send]!
Item was changed:
----- Method: TextEditor>>debugIt (in category 'do-its') -----
debugIt
| receiver context |
self lineSelectAndEmptyCheck: [^self].
(model respondsTo: #debugExpression:)
ifTrue: [^ model perform: #debugExpression: with: self selection].
receiver := (model respondsTo: #doItReceiver)
ifTrue: [model doItReceiver]
ifFalse: [nil].
context := (model respondsTo: #doItContext)
ifTrue: [model doItContext]
ifFalse: [nil].
(self compileSelectionFor: receiver in: context) ifNotNil: [:method |
+ ToolSet debugMethod: method forReceiver: receiver inContext: context].!
- self debug: method receiver: receiver in: context].!
More information about the Packages
mailing list