From: David Reiss <dreiss@apache.org>
Date: Tue, 7 Apr 2009 23:38:39 +0000 (+0000)
Subject: smalltalk: Fix TBinaryProtocol readString for empty strings
X-Git-Tag: 0.2.0~145
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=c6adf050dfd5fd4b656300cdb49af791a6a19d88;p=common%2Fthrift.git

smalltalk: Fix TBinaryProtocol readString for empty strings


git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@763037 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/lib/st/thrift.st b/lib/st/thrift.st
index 251202fe..6883539f 100644
--- a/lib/st/thrift.st
+++ b/lib/st/thrift.st
@@ -288,9 +288,12 @@ readSetBegin
 		elemType: self readByte;
 		size: self readI32! !
 
-!TBinaryProtocol methodsFor: 'reading' stamp: 'pc 10/26/2007 04:48'!
+!TBinaryProtocol methodsFor: 'reading' stamp: 'pc 02/07/2009 19:00'!
 readString
-	^ (transport read: self readI32) asString! !
+readString
+	| sz |
+	sz := self readI32.
+	^ sz > 0 ifTrue: [(transport read: sz) asString] ifFalse: ['']! !
 
 !TBinaryProtocol methodsFor: 'reading' stamp: 'pc 11/1/2007 04:22'!
 unsignedInt: val size: size