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

* Use const for string argument

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-05-04 19:03:33 +02:00
parent 12866e2e61
commit beb97b8110
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-base/src/basenenc.pp
View File

@ -97,7 +97,7 @@ Function Base64 : TAlphabetEncoder;
Function Base64URL : TAlphabetEncoder; Function Base64URL : TAlphabetEncoder;
Function GetStandardEncoder(aEncoder : TStandardEncoder): TAlphabetEncoder; Function GetStandardEncoder(aEncoder : TStandardEncoder): TAlphabetEncoder;
Function GetRawStringBytes(S : String) : TBytes; Function GetRawStringBytes(const S : String) : TBytes;
Function GetRawStringFromBytes(B : TBytes) : RawByteString; Function GetRawStringFromBytes(B : TBytes) : RawByteString;
implementation implementation
@ -114,7 +114,7 @@ begin
Move(B[0],Result[1],L); Move(B[0],Result[1],L);
end; end;
Function GetRawStringBytes(S : String) : TBytes; Function GetRawStringBytes(Const S : String) : TBytes;
Var Var
L : Integer; L : Integer;