mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: MacCloud: memory leaks in Cloud Driver clone

Browse source
This commit is contained in:
rich2014 2025-05-02 00:12:29 +08:00
commit 30acda2f89
5 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
plugins/wfx/MacCloud/src/drivers/aws/aliyunoss/ualiyunossclient.pas
View file

@ -52,6 +52,7 @@ var
newClient: TAliyunOSSClient;
begin
newClient:= TAliyunOSSClient.Create( _config );
newClient._authSession.Free;
newClient._authSession:= TAWSAuthSession( _authSession.clone(newClient) );
Result:= newClient;
end;

3
plugins/wfx/MacCloud/src/drivers/oauth2/box/uboxclient.pas
View file

@ -532,7 +532,8 @@ var
newClient: TBoxClient;
begin
newClient:= TBoxClient.Create( _config );
newClient._authSession:= TCloudDriverOAuth2Session( self._authSession.clone(newClient) );
newClient._authSession.Free;
newClient._authSession:= TCloudDriverOAuth2Session( _authSession.clone(newClient) );
Result:= newClient;
end;

3
plugins/wfx/MacCloud/src/drivers/oauth2/dropbox/udropboxclient.pas
View file

@ -647,7 +647,8 @@ var
newClient: TDropBoxClient;
begin
newClient:= TDropBoxClient.Create( _config );
newClient._authSession:= TCloudDriverOAuth2Session( self._authSession.clone(newClient) );
newClient._authSession.Free;
newClient._authSession:= TCloudDriverOAuth2Session( _authSession.clone(newClient) );
Result:= newClient;
end;

3
plugins/wfx/MacCloud/src/drivers/oauth2/onedrive/uonedriveclient.pas
View file

@ -548,7 +548,8 @@ var
newClient: TOneDriveClient;
begin
newClient:= TOneDriveClient.Create( _config );
newClient._authSession:= TCloudDriverOAuth2Session( self._authSession.clone(newClient) );
newClient._authSession.Free;
newClient._authSession:= TCloudDriverOAuth2Session( _authSession.clone(newClient) );
Result:= newClient;
end;

3
plugins/wfx/MacCloud/src/drivers/oauth2/yandex/uyandexclient.pas
View file

@ -529,7 +529,8 @@ var
newClient: TYandexClient;
begin
newClient:= TYandexClient.Create( _config );
newClient._authSession:= TCloudDriverOAuth2Session( self._authSession.clone(newClient) );
newClient._authSession.Free;
newClient._authSession:= TCloudDriverOAuth2Session( _authSession.clone(newClient) );
Result:= newClient;
end;