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
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);
diff --git a/lib/delphi/src/Thrift.Utils.pas b/lib/delphi/src/Thrift.Utils.pas
index 05fb964..15ea36f 100644
--- a/lib/delphi/src/Thrift.Utils.pas
+++ b/lib/delphi/src/Thrift.Utils.pas
@@ -141,6 +141,7 @@
else
ASSERT( FALSE);
+ result := 0; // because invalid call
end;
end;