--- a/GDBDebugger.st Tue Oct 02 14:09:00 2018 +0100
+++ b/GDBDebugger.st Wed Oct 03 13:00:25 2018 +0100
@@ -276,6 +276,9 @@
self assert: self isConnected.
^ wait ifTrue:[
+ self
+ assert:Processor activeProcess ~~ connection eventDispatchProcess
+ message:'Cannot send commands from within event dispatching process. Would deadlock'.
blocker := Semaphore new.
self send: command andWithResultDo: [ :r |
result := r.
@@ -300,8 +303,8 @@
]
"Created: / 02-06-2014 / 23:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-02-2018 / 00:21:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 26-03-2018 / 21:19:59 / jv"
+ "Modified: / 03-10-2018 / 11:59:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
send:command andWaitFor:eventHandlers
@@ -674,8 +677,9 @@
^ nil
].
"/ Synchronous send...
- self assert:Processor activeProcess ~~ connection eventDispatchProcess
- message:'Cannot send commands from within event dispatching process. Would deadlock'.
+ self
+ assert:Processor activeProcess ~~ connection eventDispatchProcess
+ message:'Cannot send commands from within event dispatching process. Would deadlock'.
eventHandlers isCollection
ifTrue:[ handlersArray := eventHandlers ]
ifFalse:[ handlersArray := Array with:eventHandlers ].
@@ -721,6 +725,7 @@
^ eventHandlers isCollection ifTrue:[ eventsArray ] ifFalse:[ eventsArray first ]
"Created: / 08-03-2015 / 07:28:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 03-10-2018 / 12:58:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!GDBDebugger methodsFor:'event handling'!