THRIFT-5625 SysUtils.TGuidHelper collides with ThriftUtils.TGuidHelper
Client: Delphi
Patch: Jens Geyer
diff --git a/lib/delphi/src/Thrift.Protocol.pas b/lib/delphi/src/Thrift.Protocol.pas
index 636f201..c6b1a00 100644
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -889,7 +889,7 @@
begin
ASSERT( SizeOf(result) = 16);
FTrans.ReadAll( @network, SizeOf(network), 0, SizeOf(network));
- result := network.SwapByteOrder;
+ result := GuidUtils.SwapByteOrder(network);
end;
function TBinaryProtocolImpl.ReadBool: Boolean;
@@ -1064,7 +1064,7 @@
var network : TGuid; // in network order (Big Endian)
begin
ASSERT( SizeOf(uuid) = 16);
- network := uuid.SwapByteOrder;
+ network := GuidUtils.SwapByteOrder(uuid);
Transport.Write( @network, 0, SizeOf(network));
end;