equal
deleted
inserted
replaced
104 eventQueueNotifier wait. |
104 eventQueueNotifier wait. |
105 ] loop. |
105 ] loop. |
106 |
106 |
107 "Created: / 02-06-2014 / 22:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
107 "Created: / 02-06-2014 / 22:51:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
108 "Modified: / 07-09-2014 / 22:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
108 "Modified: / 07-09-2014 / 22:38:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
109 ! |
|
110 |
|
111 eventDispatchProcess |
|
112 ^ eventDispatchProcess |
109 ! |
113 ! |
110 |
114 |
111 eventDispatchSingle: aGDBEvent |
115 eventDispatchSingle: aGDBEvent |
112 TraceEvents ifTrue:[ |
116 TraceEvents ifTrue:[ |
113 Logger log: ('event loop: broadcasting %1 (%2)' bindWith: aGDBEvent class name with: aGDBEvent token) severity: #trace facility: 'GDB' |
117 Logger log: ('event loop: broadcasting %1 (%2)' bindWith: aGDBEvent class name with: aGDBEvent token) severity: #trace facility: 'GDB' |
269 inferiorPTY := GDBPTY new. |
273 inferiorPTY := GDBPTY new. |
270 eventQueue := OrderedCollection new. |
274 eventQueue := OrderedCollection new. |
271 eventQueueLock := RecursionLock new. |
275 eventQueueLock := RecursionLock new. |
272 eventQueueNotifier := Semaphore new. |
276 eventQueueNotifier := Semaphore new. |
273 eventAnnouncer := Announcer new. |
277 eventAnnouncer := Announcer new. |
|
278 eventAnnouncer subscriptionRegistry subscriptionClass: GDBEventSubscription. |
274 eventAnnouncerInternal := Announcer new. |
279 eventAnnouncerInternal := Announcer new. |
275 outstandingCommands := Set new. |
280 outstandingCommands := Set new. |
276 recorder := GDBSessionRecorder new. |
281 recorder := GDBSessionRecorder new. |
277 |
282 |
278 aGDBProcess connection: self. |
283 aGDBProcess connection: self. |
279 |
284 |
280 "Created: / 20-06-2014 / 21:40:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
285 "Created: / 20-06-2014 / 21:40:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
281 "Modified: / 23-06-2014 / 09:22:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
286 "Modified: / 18-09-2014 / 00:11:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
282 ! |
287 ! |
283 |
288 |
284 release |
289 release |
285 | pid | |
290 | pid | |
286 pid := process pid. |
291 pid := process pid. |