checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 10 Aug 1999 20:42:38 +0200
changeset 2325 69c9742d1f61
parent 2324 638f31ec298e
child 2326 8cea69558420
checkin from browser
DebugView.st
--- 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!