Thrift-1467:Possible AV with empty strings when using JSON protocol

Client:delphi
Patch: Jens Geyer

Fixes exception raised on empty json strings.

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

diff --git a/lib/delphi/src/Thrift.Protocol.JSON.pas b/lib/delphi/src/Thrift.Protocol.JSON.pas
index 6fd6493..34338d5 100644 (file)
--- a/lib/delphi/src/Thrift.Protocol.JSON.pas
+++ b/lib/delphi/src/Thrift.Protocol.JSON.pas
@@ -842,7 +842,7 @@ begin
     end;
 
     SetLength( result, buffer.Size);
-    Move( buffer.Memory^, result[0], Length(result));
+    if buffer.Size > 0 then Move( buffer.Memory^, result[0], Length(result));
 
   finally
     buffer.Free;