Issue #14: binary search

GsDevKit · Mar 23, 2015 · 57ca7b1 · 57ca7b1
1 parent 5a284e3
commit 57ca7b1
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 3 deletions.
diff --git a/monticello/GsUpgrader-Core-dkh.52.mcz b/monticello/GsUpgrader-Core-dkh.52.mcz
diff --git a/...itory/GsUpgrader-Core.package/GsUpgrader.class/instance/patchForGsDevKitIssue60Source2.st b/...itory/GsUpgrader-Core.package/GsUpgrader.class/instance/patchForGsDevKitIssue60Source2.st
@@ -10,6 +10,7 @@ patchForGsDevKitIssue60Source2
      Fails if no marker in first 2000 chars."
 
   | buf response bytesRead tester mm skipped tries |
+  Transcript cr; show: ''getResponseUpTo:ignoring:[0] ''. 
   buf _ ByteArray new: 2000.
   response _ WriteStream on: ByteArray new.
   tester _ 1.
@@ -41,7 +42,7 @@ patchForGsDevKitIssue60Source2
   response position < buf size & (self isActive | self readyForRead)
     & ((tries := tries - 1) >= 0) ]
     whileTrue: [
-      Transcript cr; show: ''getResponseUpTo:ignoring: '', tries printString. 
+      Transcript cr; show: ''getResponseUpTo:ignoring:[1] '', tries printString. 
       (self waitForReadDataUpToMs: 6000)
         ifFalse: [ 
           tries < 0

diff --git a/repository/GsUpgrader-Core.package/GsUpgrader.class/methodProperties.json b/repository/GsUpgrader-Core.package/GsUpgrader.class/methodProperties.json
@@ -41,7 +41,7 @@
 		"packageReportOn:" : "dkh 09/15/2014 13:48",
 		"patchForGsDevKitIssue60" : "dkh 03/23/2015 10:59",
 		"patchForGsDevKitIssue60Source1" : "dkh 03/23/2015 13:40",
-		"patchForGsDevKitIssue60Source2" : "dkh 03/23/2015 13:46",
+		"patchForGsDevKitIssue60Source2" : "dkh 03/23/2015 13:55",
 		"projectReportOn:" : "dkh 09/11/2014 16:38",
 		"projectVersion:" : "dkh 09/15/2014 13:13",
 		"registrationFor:" : "dkh 11/16/2014 20:06",