--- a/DebugView.st Tue May 27 18:57:08 2008 +0200
+++ b/DebugView.st Tue May 27 22:59:47 2008 +0200
@@ -735,7 +735,7 @@
actually occured.
Just for your convenience :-)"
- |con con2 found offset sel sel2 prev ex rcvr nMax idx|
+ |con found offset sel prev ex rcvr nMax idx|
"/ Transcript showCR:aContextArray.
@@ -880,27 +880,24 @@
].
^ idx
].
-
- "/ the above is all too hard-coded;
- "/ ask the method, if it thinks it should be skipped in the walkback.
- "/ as more methods get flagged, remove code from above.
offset := 1.
+ ].
+
+ "/ the above is all too hard-coded;
+ "/ ask the method, if it thinks it should be skipped in the walkback.
+ "/ as more methods get flagged, remove code from above.
+ con := aContextArray at:offset ifAbsent:nil.
+
+ [
+ con notNil
+ and:[ con methodHome notNil
+ and:[ con methodHome method notNil
+ and:[ con methodHome method shouldBeSkippedInDebuggersWalkBack ]]]
+ ] whileTrue:[
+"/ Transcript showCR:con methodHome method.
+ offset := offset + 1.
con := aContextArray at:offset ifAbsent:nil.
-
- [
- con notNil
- and:[ con methodHome notNil
- and:[ con methodHome method notNil
- and:[ con methodHome method shouldBeSkippedInDebuggersWalkBack ]]]
- ] whileTrue:[
-Transcript showCR:con methodHome method.
- offset := offset + 1.
- con := aContextArray at:offset ifAbsent:nil.
- ].
- ^ offset
- ].
-
- con := found.
+ ].
"
got it; move up, skipping all intermediate Signal and
@@ -4873,8 +4870,8 @@
|con|
+ con := aContext.
verboseBacktrace ifFalse:[
- con := aContext.
(con notNil and:[con selector == #threadSwitch:]) ifTrue:[
con := con sender.
(con notNil and:[con selector == #timerInterrupt]) ifTrue:[
@@ -6087,7 +6084,7 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.431 2008-05-27 10:24:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.432 2008-05-27 20:59:47 cg Exp $'
! !
DebugView initialize!