GDBConnection.st
changeset 25 58e042a191a9
parent 24 98ff50f8a25d
child 29 6f19bc300b1f
--- a/GDBConnection.st	Mon Jun 23 09:45:16 2014 +0100
+++ b/GDBConnection.st	Tue Jun 24 00:55:57 2014 +0100
@@ -45,18 +45,18 @@
 send: command
     | commandString |
 
-    command token notNil ifTrue:[ 
-        process debuggerInput nextPutAll: command token printString.
-    ].
+    commandString := command token notNil 
+                        ifTrue:[ command token printString , command asString ]
+                        ifFalse:[ commandString := command asString ].
+
     outstandingCommands add: command.
-    commandString := command asString.
     recorder notNil ifTrue:[ 
-            recorder recordCommand: commandString
+        recorder recordCommand: commandString
     ].  
     process debuggerInput nextPutLine: commandString.
 
     "Created: / 20-06-2014 / 22:09:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 23-06-2014 / 09:36:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-06-2014 / 23:31:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !GDBConnection methodsFor:'event dispatching'!