commit 9f9535c5fbe0973ae803112075bff65b83bd7636
author Jens Geyer <jensg@apache.org> Sun Dec 14 04:16:05 2014 +0100
committer Jens Geyer <jensg@apache.org> Sun Dec 14 15:00:34 2014 +0100
tree b1e69b8423c1c99db5d5c4d564becfb7de39415b
parent 15fe1cb5f434a5b4dcba49e3547365d705ac8f84

THRIFT-2890 binary data may lose bytes with JSON transport under specific circumstances
Client: Delphi
Patch: Jens Geyer

minor fix regarding two warnings introduced with this patch

lib/delphi/src/Thrift.Protocol.JSON.pas

diff --git a/lib/delphi/src/Thrift.Protocol.JSON.pas b/lib/delphi/src/Thrift.Protocol.JSON.pas
index 9ec3871..f491f53 100644
--- a/lib/delphi/src/Thrift.Protocol.JSON.pas
+++ b/lib/delphi/src/Thrift.Protocol.JSON.pas
@@ -965,7 +965,7 @@
 
 function TJSONProtocolImpl.ReadJSONBase64 : TBytes;
 var b : TBytes;
-    len, off, size, cnt : Integer;
+    len, off, size : Integer;
 begin
   b := ReadJSONString(false);