paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 06:38:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-base: blowfish2: Remove unnecessary destructor from TBlowFish2Stream

Browse Source
This commit is contained in:
Oleg Latov 2025-03-16 12:01:56 +02:00 committed by Michael Van Canneyt
parent 2256593e92
commit 3874fb7725
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-base/src/blowfish2.pp
View File

@ -76,7 +76,6 @@ Type
Public Public
Constructor Create(const AKey : UTF8String; Dest: TStream); overload; virtual; Constructor Create(const AKey : UTF8String; Dest: TStream); overload; virtual;
Constructor Create(AKey : TBytes; Dest: TStream); overload; virtual; Constructor Create(AKey : TBytes; Dest: TStream); overload; virtual;
Destructor Destroy; override;
end; end;
TBlowFish2EncryptStream = Class(TBlowFish2Stream) TBlowFish2EncryptStream = Class(TBlowFish2Stream)
@ -1044,12 +1043,6 @@ begin
FPos:=0; FPos:=0;
end; end;
destructor TBlowFish2Stream.Destroy;
begin
FreeAndNil(FBF);
Inherited;
end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
TBlowFish2EncryptStream TBlowFish2EncryptStream