From 60d8403bcdf71ddcec2effe499c27a72805e4f44 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Fri, 27 Sep 2024 09:58:20 +0200
Subject: [PATCH] * Make argument aPositions const in TFileSearchMatch.create

---
 components/filebrowser/ctrlfilebrowser.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/filebrowser/ctrlfilebrowser.pas b/components/filebrowser/ctrlfilebrowser.pas
index c8508307a0..e98f999b8e 100644
--- a/components/filebrowser/ctrlfilebrowser.pas
+++ b/components/filebrowser/ctrlfilebrowser.pas
@@ -28,7 +28,7 @@ Type
       FFileName: string;
       FMatchPositions : TMatchPositionArray;
     Public
-      Constructor create(const aFileName : string; aEntry : TFileEntry; aPositions : TMatchPositionArray);
+      Constructor create(const aFileName : string; aEntry : TFileEntry; const aPositions : TMatchPositionArray);
       Property FileName : string Read FFileName;
       Property Entry : TFileEntry Read FEntry;
       Property MatchPositions : TMatchPositionArray Read FMatchPositions;
@@ -125,7 +125,7 @@ uses Controls, StrUtils, IDEMsgIntf, IDEExternToolIntf, LazConfigStorage;
 { TFileSearchMatch }
 
 constructor TFileSearchMatch.create(const aFileName: string;
-  aEntry: TFileEntry; aPositions: TMatchPositionArray);
+  aEntry: TFileEntry; const aPositions: TMatchPositionArray);
 begin
   FFileName:=aFileName;
   FEntry:=aEntry;