equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2883 "/ would be interpreted as a recursive invocation (in #enter:select). |
2885 "/ would be interpreted as a recursive invocation (in #enter:select). |
2884 "/ To avoid this, we unwind all contexts and simulate the raise as if it was |
2886 "/ To avoid this, we unwind all contexts and simulate the raise as if it was |
2885 "/ done in the #enter:select method. |
2887 "/ done in the #enter:select method. |
2886 "/ You are not expected to understand this. |
2888 "/ You are not expected to understand this. |
2887 |
2889 |
2888 self exit_unwindThenDo:[ AbortOperationRequest raise ] |
2890 self exit_unwindThenDo:[ AbortOperationRequest raiseRequest ] |
|
2891 |
|
2892 "Modified: / 15-02-2020 / 19:48:10 / Stefan Vogel" |
2889 ! |
2893 ! |
2890 |
2894 |
2891 exit_abortAll |
2895 exit_abortAll |
2892 "/ cannot simply raise an abort here, because if there is an abortHandler somewhere, |
2896 "/ cannot simply raise an abort here, because if there is an abortHandler somewhere, |
2893 "/ that one would run on top of this context. |
2897 "/ that one would run on top of this context. |
9075 aContext receiver isNil ifTrue:[ |
9079 aContext receiver isNil ifTrue:[ |
9076 s := 'doIt' allBold |
9080 s := 'doIt' allBold |
9077 ] |
9081 ] |
9078 ]. |
9082 ]. |
9079 |
9083 |
9080 s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ]. |
9084 s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ]. |
9081 "/ s infoPrintCR. |
9085 "/ s infoPrintCR. |
9082 RememberedCallChain notNil ifTrue:[ |
9086 RememberedCallChain notNil ifTrue:[ |
9083 (RememberedCallChain includesIdentical:aContext) ifTrue:[ |
9087 (RememberedCallChain includesIdentical:aContext) ifTrue:[ |
9084 s := s withColor:#red. |
9088 s := s withColor:#red. |
9085 ]. |
9089 ]. |
10979 |
10983 |
10980 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'! |
10984 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'! |
10981 |
10985 |
10982 printConditionOn:aStream |
10986 printConditionOn:aStream |
10983 ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[ |
10987 ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[ |
10984 aStream nextPutAll:(' if called from %1 » %2' |
10988 aStream nextPutAll:(' if called from %1 » %2' |
10985 bindWith:ignoredSendingClassAndSelectors first first |
10989 bindWith:ignoredSendingClassAndSelectors first first |
10986 with:ignoredSendingClassAndSelectors first second). |
10990 with:ignoredSendingClassAndSelectors first second). |
10987 ^ self. |
10991 ^ self. |
10988 ]. |
10992 ]. |
10989 ignoredProcesses notEmptyOrNil ifTrue:[ |
10993 ignoredProcesses notEmptyOrNil ifTrue:[ |