equal
deleted
inserted
replaced
63 enterWithMessage:aString |
63 enterWithMessage:aString |
64 |active| |
64 |active| |
65 |
65 |
66 StepInterruptPending := nil. |
66 StepInterruptPending := nil. |
67 |
67 |
68 aString printCR. |
68 Object errorSignal handle:[:ex | |
69 Processor notNil ifTrue:[ |
69 ex return |
70 active := Processor activeProcess. |
70 ] do:[ |
71 'process: id=' print. active id print. ' name=' print. active name printCR. |
71 thisContext isRecursive ifTrue:[ |
|
72 "/ 'recursive error in debugger ignored' errorPrintCR. |
|
73 ^ self |
|
74 ]. |
|
75 aString printCR. |
|
76 Processor notNil ifTrue:[ |
|
77 active := Processor activeProcess. |
|
78 'process: id=' print. active id print. ' name=' print. active name printCR. |
|
79 ]. |
72 ]. |
80 ]. |
73 self new enter. |
81 self new enter. |
74 ^ nil |
82 ^ nil |
75 |
83 |
76 "Modified: 20.5.1996 / 10:28:31 / cg" |
84 "Modified: 20.5.1996 / 10:28:31 / cg" |
489 ! ! |
497 ! ! |
490 |
498 |
491 !MiniDebugger class methodsFor:'documentation'! |
499 !MiniDebugger class methodsFor:'documentation'! |
492 |
500 |
493 version |
501 version |
494 ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.30 1997-01-10 11:21:02 cg Exp $' |
502 ^ '$Header: /cvs/stx/stx/libbasic/Attic/MiniDebug.st,v 1.31 1997-05-25 13:44:47 cg Exp $' |
495 ! ! |
503 ! ! |