GDBConnection.st
changeset 105 1d4ca4370d05
parent 95 f417138e9c48
child 113 c4f07d0e7b7a
--- a/GDBConnection.st	Sat Feb 03 22:37:17 2018 +0000
+++ b/GDBConnection.st	Sun Feb 04 21:18:15 2018 +0000
@@ -319,6 +319,7 @@
     ].
 
     "Created: / 02-06-2014 / 22:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-02-2018 / 10:28:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 pushEventSet: aGDBEventSet
@@ -330,7 +331,7 @@
     ].
 
     "Created: / 02-06-2014 / 22:42:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 18-09-2014 / 22:50:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-02-2018 / 10:28:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBConnection methodsFor:'initialize & release'!
@@ -369,9 +370,12 @@
 !
 
 released: status
-    self pushEvent: GDBExitEvent new.  
+    self pushEvent: (GDBExitEvent new setStatus: status; yourself).  
+    status success ifFalse:[ 
+        Logger log: ('gdb process: exited with status %1 code %2' bindWith: status status with: status code)  severity: #error facility: 'GDB'.
+    ].
     TraceProcesses ifTrue:[ 
-        Logger log: ('gdb process: exited with status %1' bindWith: status code)  severity: #trace facility: 'GDB'.
+        Logger log: ('gdb process: exited') severity: #trace facility: 'GDB'.
         Logger log: 'gdb process: waiting for event pump to finish' severity: #trace facility: 'GDB'.
     ].
     self eventPumpStop.
@@ -380,7 +384,7 @@
     inferiorPTY release.
 
     "Created: / 26-05-2014 / 21:31:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 01-06-2017 / 22:24:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-02-2018 / 20:29:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBConnection class methodsFor:'documentation'!