#REFACTORING cvs_MAIN
authorClaus Gittinger <cg@exept.de>
Sun, 14 Feb 2016 00:16:03 +0100
branchcvs_MAIN
changeset 603 1ae82470a666
parent 597 f8a771d2581b
child 606 f7e6c9b41bba
#REFACTORING class: HGCommandServer changed: #runcommand: (send #nextPutInt32Net: instead of #nextPutLongNet:) #update (send #nextUnsignedInt32MSB instead of #nextUnsignedLongNet) removed remaining references to obsolete inhomogenous writers and readers.
mercurial/HGCommandServer.st
--- a/mercurial/HGCommandServer.st	Mon Jan 11 12:06:05 2016 +0100
+++ b/mercurial/HGCommandServer.st	Sun Feb 14 00:16:03 2016 +0100
@@ -361,7 +361,7 @@
 
     output 
         nextPutLine:'runcommand';
-        nextPutLongNet: argslen;
+        nextPutInt32Net: argslen;
         nextPutAll: args
 
     "Created: / 03-03-2013 / 16:38:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -426,7 +426,7 @@
     (channel == channel_I or:[channel == channel_L]) ifTrue:[
         self shouldImplement.
     ].
-    len := input nextUnsignedLongNet.
+    len := input nextUnsignedInt32MSB.
     data := input next: len.
     channel update: data encoder: encoder.
     command notNil ifTrue:[