equal
deleted
inserted
replaced
84 ] on: Error do:[:ex | |
84 ] on: Error do:[:ex | |
85 "/ Pass |
85 "/ Pass |
86 ]. |
86 ]. |
87 ]. |
87 ]. |
88 ]. |
88 ]. |
89 process pid isNil ifTrue:[ ^ self ]. "/ gdb process terninated |
89 process pid isNil ifTrue:[ |
|
90 "/ gdb process terninated |
|
91 (process debuggerOutput isNil or:[ process debuggerOutput atEnd ]) ifTrue:[ |
|
92 "/ No unprocessed output in stream... |
|
93 ^ self |
|
94 ] |
|
95 ]. |
90 eventQueueNotifier wait. |
96 eventQueueNotifier wait. |
91 ] loop. |
97 ] loop. |
92 |
98 |
93 "Created: / 02-06-2014 / 22:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
99 "Created: / 02-06-2014 / 22:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
94 "Modified: / 20-06-2014 / 21:38:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
100 "Modified: / 07-09-2014 / 22:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
95 ! |
101 ! |
96 |
102 |
97 eventDispatchSingle: aGDBEvent |
103 eventDispatchSingle: aGDBEvent |
98 TraceEvents ifTrue:[ |
104 TraceEvents ifTrue:[ |
99 Logger log: ('event loop: broadcasting %1 (%2)' bindWith: aGDBEvent class name with: aGDBEvent token) severity: #trace facility: 'GDB' |
105 Logger log: ('event loop: broadcasting %1 (%2)' bindWith: aGDBEvent class name with: aGDBEvent token) severity: #trace facility: 'GDB' |