# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1372366461 -7200
# Node ID 8542618fd970f58e7561927670b2f683d275b0c7
# Parent  2b8c4310424fb0daa1b16e162b7ec645444d151a
class: DebugView
changed: #isHaltToBeIgnored
removed some transcript messages

diff -r 2b8c4310424f -r 8542618fd970 DebugView.st
--- a/DebugView.st	Thu Jun 27 22:53:36 2013 +0200
+++ b/DebugView.st	Thu Jun 27 22:54:21 2013 +0200
@@ -6385,12 +6385,13 @@
 isHaltToBeIgnored
     "see if the current halt (if any) is in the ignore-list"
 
-    |c cReceiver sender haltingMethod lineNrInHaltingMethod breakpointParameter|
+    |c cReceiver sender haltingMethod lineNrInHaltingMethod breakpointParameter
+     sReceiver|
 
     "/ should a halt be ignored ?
     IgnoredHalts isNil ifTrue:[^ false].
 
-    "/ look for a breakpoint-wrapper's context
+    "/ look for a method breakpoint-wrapper's context
     c := thisContext findNextContextWithSelector:#doRaise or:nil or:nil.
     c notNil ifTrue:[
         ((cReceiver := c receiver) isKindOf:NoHandlerError) ifTrue:[
@@ -6402,8 +6403,8 @@
         ] ifTrue:[
             [ 
                 sender := c sender.
-                (sender receiver isKindOf:BreakPointInterrupt)
-                or:[ sender receiver == BreakPointInterrupt ]
+                ((sReceiver := sender receiver) isKindOf:BreakPointInterrupt)
+                or:[ sReceiver == BreakPointInterrupt ]
             ] whileTrue:[
                 c := sender
             ].
@@ -8456,10 +8457,11 @@
 isHaltIgnoredInMethod:aMethod line:line context:context
     "/ Transcript show:'?same as ign '; show:(weakMethodHolder at:1); show:' at '; showCR:lineNumber.
 
-Transcript showCR:'-----------------------------'.
-Transcript showCR:aMethod.
-Transcript showCR:line.
-Transcript showCR:context.
+"/    Transcript showCR:'-----------------------------'.
+"/    Transcript showCR:aMethod.
+"/    Transcript showCR:line.
+"/    Transcript showCR:context.
+
     (self isForMethod:aMethod line:line) ifFalse:[^ false].
     "/ Transcript show:'is same; ignored: '; showCR:self isHaltIgnored.
 
@@ -8468,8 +8470,9 @@
             ^ ignoredReceiverClasses includes:(context receiver class)
         ].
     ].
-Transcript showCR:ignoredProcesses.
-Transcript showCR:Processor activeProcess.
+
+"/    Transcript showCR:ignoredProcesses.
+"/    Transcript showCR:Processor activeProcess.
     ignoredProcesses notNil ifTrue:[
         ^ ignoredProcesses includes:(Processor activeProcess)
     ].
@@ -8513,15 +8516,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.597 2013-06-23 08:32:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.598 2013-06-27 20:54:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.597 2013-06-23 08:32:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.598 2013-06-27 20:54:21 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.597 2013-06-23 08:32:07 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.598 2013-06-27 20:54:21 cg Exp $'
 ! !