--- a/DebugView.st Mon Oct 31 14:25:58 2016 +0100
+++ b/DebugView.st Tue Nov 01 12:59:16 2016 +0100
@@ -1811,17 +1811,21 @@
ignoreForEverHolder := false asValue.
(ControlInterrupt accepts:ex creator) ifTrue:[
+ |suspendedContext sender|
+
"/ also deal with ignored breakpoints here;
"/ otherwise, it is almost impossible to place a breakpoint into
"/ RB-code, and ignoring it...
-
- ex suspendedContext selector == #break ifTrue:[
- lineNrOfHalt := ex suspendedContext sender lineNumber.
- haltingMethod := ex suspendedContext sender method.
- ] ifFalse:[
- lineNrOfHalt := ex suspendedContext sender lineNumber.
- haltingMethod := ex suspendedContext sender method.
- ].
+ suspendedContext := ex suspendedContext.
+ sender := suspendedContext sender.
+ "/ suspendedContext selector == #break ifTrue:[
+ "/ lineNrOfHalt := sender lineNumber.
+ "/ haltingMethod := sender method.
+ "/ ] ifFalse:[
+ lineNrOfHalt := sender lineNumber.
+ haltingMethod := sender method.
+ "/ ].
+ suspendedContext := sender := nil.
"/ Transcript showCR:haltingMethod.
"/ Transcript showCR:lineNrOfHalt.
(self