--- 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 $'
! !