THRIFT-5839 incorrect cast under Win64
Client: delphi
Patch: Jens Geyer
diff --git a/lib/delphi/src/Thrift.Transport.Pipes.pas b/lib/delphi/src/Thrift.Transport.Pipes.pas
index 44dfef7..10f4dec 100644
--- a/lib/delphi/src/Thrift.Transport.Pipes.pas
+++ b/lib/delphi/src/Thrift.Transport.Pipes.pas
@@ -912,7 +912,7 @@
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 @@
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;