From beb97b8110db0b60e55e3a0fa6169c16d58198ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 4 May 2022 19:03:33 +0200
Subject: [PATCH] * Use const for string argument

---
 packages/fcl-base/src/basenenc.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-base/src/basenenc.pp b/packages/fcl-base/src/basenenc.pp
index d3e17f4e2a..73a4777cdf 100644
--- a/packages/fcl-base/src/basenenc.pp
+++ b/packages/fcl-base/src/basenenc.pp
@@ -97,7 +97,7 @@ Function Base64 : TAlphabetEncoder;
 Function Base64URL : TAlphabetEncoder;
 Function GetStandardEncoder(aEncoder : TStandardEncoder): TAlphabetEncoder;
 
-Function GetRawStringBytes(S : String) : TBytes;
+Function GetRawStringBytes(const S : String) : TBytes;
 Function GetRawStringFromBytes(B : TBytes) : RawByteString;
 
 implementation
@@ -114,7 +114,7 @@ begin
     Move(B[0],Result[1],L);
 end;
 
-Function GetRawStringBytes(S : String) : TBytes;
+Function GetRawStringBytes(Const S : String) : TBytes;
 
 Var
   L : Integer;