| commit | a61e50540ef8cb9346ddd1d26aeebf857066fe6e | [log] [tgz] |
|---|---|---|
| author | Jens Geyer <jensg@apache.org> | Tue Feb 23 16:32:55 2016 +0100 |
| committer | Jens Geyer <jensg@apache.org> | Tue Feb 23 16:33:38 2016 +0100 |
| tree | 1ad3c249f89068500519ae35afeb79c1a3d37fbf | |
| parent | 3b4a93bba114cc7d460cd9be7f679783f9be000f [diff] |
THRIFT-3668 range check error in compact protocol Client: Delphi Patch: Jens Geyer
diff --git a/lib/delphi/src/Thrift.Protocol.Compact.pas b/lib/delphi/src/Thrift.Protocol.Compact.pas index 61af44d..0355c4e 100644 --- a/lib/delphi/src/Thrift.Protocol.Compact.pas +++ b/lib/delphi/src/Thrift.Protocol.Compact.pas
@@ -801,7 +801,7 @@ begin SetLength( data, 1); Transport.ReadAll( data, 0, 1); - result := data[0]; + result := ShortInt(data[0]); end;