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

* Patch from Alexey Torgashin to switch to const param strings where possible

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-28 10:24:26 +02:00
parent 2d1e14f778
commit 4822daaa4f
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,7 +74,7 @@ Type
function GetPosition: Int64; override;
procedure InvalidSeek; override;
Public
Constructor Create(AKey : UTF8String; Dest: TStream); overload; virtual;
Constructor Create(const AKey : UTF8String; Dest: TStream); overload; virtual;
Constructor Create(AKey : TBytes; Dest: TStream); overload; virtual;
Destructor Destroy; override;
end;
@ -91,7 +91,7 @@ Type
private
FSourcePos0: Int64;
public
Constructor Create(AKey : UTF8String; Dest: TStream); overload; virtual;
Constructor Create(const AKey : UTF8String; Dest: TStream); overload; virtual;
Constructor Create(AKey : TBytes; Dest: TStream); overload; virtual;
function Read(var Buffer; Count: Longint): Longint; override;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
@ -1022,7 +1022,7 @@ begin
raise EBlowFish2Error.Create(SNoSeekAllowed);
end;
constructor TBlowFish2Stream.Create(AKey: UTF8String; Dest: TStream);
constructor TBlowFish2Stream.Create(const AKey: UTF8String; Dest: TStream);
begin
inherited Create(Dest);
@ -1127,7 +1127,7 @@ begin
FSourcePos0 := Source.Position;
end;
Constructor TBlowFish2DeCryptStream.Create(AKey : UTF8String; Dest: TStream); overload;
Constructor TBlowFish2DeCryptStream.Create(const AKey : UTF8String; Dest: TStream); overload;
begin
inherited Create(AKey, Dest);

2
packages/fcl-base/src/csvreadwrite.pp
View File

@ -205,7 +205,7 @@ const
WhitespaceChars = [HTAB, SPACE];
LineEndingChars = [CR, LF];
Procedure AppendStr(Var Dest : RawByteString; Src : RawByteString); inline;
Procedure AppendStr(Var Dest : RawByteString; const Src : RawByteString); inline;
begin
Dest:=Dest+Src;