#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 01 Nov 2016 12:59:16 +0100
changeset 16994 488f269b2cf0
parent 16993 a8927e2fc4b1
child 16995 3e3eb133d7d6
#REFACTORING by cg class: DebugView changed: #withOptionToIgnoreException:do:
DebugView.st
--- 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