6972 'showingContext2: (' print. con print. ') --> ' print. show2 printCR. |
6972 'showingContext2: (' print. con print. ') --> ' print. show2 printCR. |
6973 ]. |
6973 ]. |
6974 |
6974 |
6975 show2 ifTrue:[ |
6975 show2 ifTrue:[ |
6976 (self showingContext3:con nesting:count) ifTrue:[ |
6976 (self showingContext3:con nesting:count) ifTrue:[ |
6977 "/ ignore it, if its in the same |
6977 contextArray add:con. |
6978 "/ method as the previous context |
6978 |
6979 "/ (verboseBacktrace ~~ true |
6979 (MoreDebuggingDetail == true) ifTrue:[ |
6980 "/ and:[count > 0 |
6980 nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString). |
6981 "/ and:[contextArray last method == con method |
6981 ] ifFalse:[ |
6982 "/ and:[(contextArray last isBlockContext not |
6982 nm := self contextListEntryFor:con. |
6983 "/ & con isBlockContext not) not ]]]) ifTrue:[ |
6983 ]. |
6984 "/ "/ skip it, if its in the same method |
6984 text add:nm. |
6985 "/ "/ as the called context. |
6985 count := count + 1. |
6986 "/ ] ifFalse:[ |
6986 ] ifFalse:[ |
6987 contextArray add:con. |
6987 DebuggingDebugger3 == true ifTrue:[ |
6988 |
6988 'showingContext3: (' print. con print. ') --> false' printCR. |
6989 (MoreDebuggingDetail == true) ifTrue:[ |
6989 ]. |
6990 nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString). |
|
6991 ] ifFalse:[ |
|
6992 nm := self contextListEntryFor:con. |
|
6993 ]. |
|
6994 text add:nm. |
|
6995 count := count + 1. |
|
6996 "/ ]. |
|
6997 ] |
6990 ] |
6998 ]. |
6991 ]. |
6999 |
6992 |
7000 "/ with hidden support code, skip over internals of exceptions |
6993 "/ with hidden support code, skip over internals of exceptions |
7001 hideSupportCode == true ifTrue:[ |
6994 hideSupportCode == true ifTrue:[ |
7423 sender senderReceiver senderSelector senderReceiverClass| |
7416 sender senderReceiver senderSelector senderReceiverClass| |
7424 |
7417 |
7425 hideSupportCode ifFalse:[^ true]. |
7418 hideSupportCode ifFalse:[^ true]. |
7426 aContext isNil ifTrue:[^ true]. |
7419 aContext isNil ifTrue:[^ true]. |
7427 |
7420 |
7428 rec := aContext receiver. |
7421 ^ true. |
7429 sel := aContext selector. |
7422 "/ mhmh - what was this useful for? |
7430 mClass := aContext methodClass. |
7423 "/ rec := aContext receiver. |
7431 |
7424 "/ sel := aContext selector. |
7432 sender := aContext sender. |
7425 "/ mClass := aContext methodClass. |
7433 sender notNil ifTrue:[ |
7426 "/ |
7434 senderSelector := sender selector. |
7427 "/ sender := aContext sender. |
7435 senderReceiver := sender receiver. |
7428 "/ sender notNil ifTrue:[ |
7436 senderReceiverClass := senderReceiver class. |
7429 "/ senderSelector := sender selector. |
7437 ]. |
7430 "/ senderReceiver := sender receiver. |
7438 |
7431 "/ senderReceiverClass := senderReceiver class. |
7439 (sel == #perform: |
7432 "/ ]. |
7440 or:[sel == #perform:with: |
7433 "/ |
7441 or:[sel == #perform:with:with: |
7434 "/ (sel == #perform: |
7442 or:[sel == #perform:with:with:with: |
7435 "/ or:[sel == #perform:with: |
7443 or:[sel == #perform:with:with:with:with: |
7436 "/ or:[sel == #perform:with:with: |
7444 or:[sel == #perform:withArguments: |
7437 "/ or:[sel == #perform:with:with:with: |
7445 or:[sel == #perform:with:ifNotUnderstood: |
7438 "/ or:[sel == #perform:with:with:with:with: |
7446 or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]]) |
7439 "/ or:[sel == #perform:withArguments: |
7447 ifTrue:[ |
7440 "/ or:[sel == #perform:with:ifNotUnderstood: |
7448 mClass == Object ifTrue:[^ false] |
7441 "/ or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]]) |
7449 ]. |
7442 "/ ifTrue:[ |
7450 |
7443 "/ mClass == Object ifTrue:[^ false] |
7451 ^ true. |
7444 "/ ]. |
|
7445 "/ |
|
7446 "/ ^ true. |
7452 |
7447 |
7453 "Created: / 17-11-2001 / 19:34:20 / cg" |
7448 "Created: / 17-11-2001 / 19:34:20 / cg" |
7454 "Modified: / 27-07-2012 / 17:26:54 / cg" |
7449 "Modified: / 27-07-2012 / 17:26:54 / cg" |
7455 ! ! |
7450 ! ! |
7456 |
7451 |
8892 ! ! |
8887 ! ! |
8893 |
8888 |
8894 !DebugView class methodsFor:'documentation'! |
8889 !DebugView class methodsFor:'documentation'! |
8895 |
8890 |
8896 version |
8891 version |
8897 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.628 2013-09-01 12:02:40 cg Exp $' |
8892 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.629 2013-09-02 15:19:27 cg Exp $' |
8898 ! |
8893 ! |
8899 |
8894 |
8900 version_CVS |
8895 version_CVS |
8901 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.628 2013-09-01 12:02:40 cg Exp $' |
8896 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.629 2013-09-02 15:19:27 cg Exp $' |
8902 ! |
8897 ! |
8903 |
8898 |
8904 version_SVN |
8899 version_SVN |
8905 ^ '$Id: DebugView.st,v 1.628 2013-09-01 12:02:40 cg Exp $' |
8900 ^ '$Id: DebugView.st,v 1.629 2013-09-02 15:19:27 cg Exp $' |
8906 ! ! |
8901 ! ! |
8907 |
8902 |
8908 |
8903 |
8909 DebugView initialize! |
8904 DebugView initialize! |