GDBDebugger.st
changeset 148 9fb679577cac
parent 144 342b6dfe3a6f
child 153 dd55019f1d86
--- 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'!