THRIFT-5839 incorrect cast under Win64

Client: delphi Patch: Jens Geyer
apache · Nov 28, 2024 · f54bdbd · f54bdbd
1 parent 45b1868
commit f54bdbd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/delphi/src/Thrift.Transport.Pipes.pas b/lib/delphi/src/Thrift.Transport.Pipes.pas
@@ -912,7 +912,7 @@ function TAnonymousPipeServerTransportImpl.CreateAnonPipe : Boolean;
     FReadHandle      := hPipe;
     FWriteHandle     := hPipeW;
   finally
-    if sd <> nil then LocalFree( Cardinal(sd));
+    if sd <> nil then LocalFree( NativeUInt(sd));
   end;
 end;
 
@@ -1117,8 +1117,8 @@ function TNamedPipeServerTransportImpl.CreateNamedPipe : THandle;
     else raise TTransportExceptionNotOpen.Create('CreateNamedPipe() failed ' + IntToStr(GetLastError));
 
   finally
-    if sd <> nil then LocalFree( Cardinal( sd));
-    if acl <> nil then LocalFree( Cardinal( acl));
+    if sd <> nil then LocalFree( NativeUInt(sd));
+    if acl <> nil then LocalFree( NativeUInt(acl));
     if everyone_sid <> nil then FreeSid(everyone_sid);
   end;
 end;