commit f8f62786e90ecfe5dea8ab8c4ee4698bb35a6cb5
author Jens Geyer <jensg@apache.org> Sat Sep 10 00:55:02 2022 +0200
committer Jens Geyer <jensg@apache.org> Sat Sep 10 00:55:55 2022 +0200
tree dc64c909fd3caca56280212e4be1542a69b1a52d
parent 60970c4e10b0014005bc68f07f4e5c5987b41e3a

THRIFT-5625 SysUtils.TGuidHelper collides with ThriftUtils.TGuidHelper
Client: Delphi
Patch: Jens Geyer

lib/delphi/src/Thrift.Protocol.Compact.pas

diff --git a/lib/delphi/src/Thrift.Protocol.Compact.pas b/lib/delphi/src/Thrift.Protocol.Compact.pas
index 02a19ea..80f1ce5 100644
--- a/lib/delphi/src/Thrift.Protocol.Compact.pas
+++ b/lib/delphi/src/Thrift.Protocol.Compact.pas
@@ -546,7 +546,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;
 
@@ -868,7 +868,7 @@
 begin
   ASSERT( SizeOf(result) = 16);
   FTrans.ReadAll( @network, SizeOf(network), 0, SizeOf(network));
-  result := network.SwapByteOrder;
+  result := GuidUtils.SwapByteOrder(network);
 end;