From a2a9ee993e0fb7607ab1bf4173b7037e3c317c28 Mon Sep 17 00:00:00 2001 From: Jake Farrell Date: Thu, 15 Dec 2011 20:50:31 +0000 Subject: [PATCH] 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 --- lib/delphi/src/Thrift.Protocol.JSON.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/delphi/src/Thrift.Protocol.JSON.pas b/lib/delphi/src/Thrift.Protocol.JSON.pas index 6fd64933..34338d59 100644 --- 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; -- 2.17.1