--- a/DebugView.st Tue Aug 10 20:03:18 1999 +0200
+++ b/DebugView.st Tue Aug 10 20:42:38 1999 +0200
@@ -442,6 +442,11 @@
^ 3
].
+ "/ show the bad method; not where the Signal was raised...
+ (sel == #noByteCode) ifTrue:[
+ ^ 2
+ ].
+
"/ show the place of the halt; not where the HaltSignal
"/ was raised...
(sel == #halt) ifTrue:[
@@ -2911,7 +2916,8 @@
verboseBacktrace ~~ true ifTrue:[
(con selector == #noByteCode
- and:[con receiver isMethod]) ifTrue:[
+ and:[con receiver isMethod
+ and:[con receiver isLazyMethod]]) ifTrue:[
contextArray removeLast.
text removeLast.
con := con sender.
@@ -3961,6 +3967,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.237 1999-08-10 11:55:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.238 1999-08-10 18:42:38 cg Exp $'
! !
DebugView initialize!