paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 19:30:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerLldb: change "open array" params to "const"

Browse Source 
git-svn-id: trunk@59932 -
This commit is contained in:
martin 2018-12-29 00:36:13 +00:00
parent 8524c41d52
commit d3881b11b1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazdebuggers/lazdebuggerlldb/lldbhelper.pas
View File

@ -24,8 +24,8 @@ function LastPos(ASearch, AString: string): Integer;
function StrStartsWith(AString, AStart: string; ACheckStartNotEmpty: Boolean = False): Boolean;
function StrContains(AString, AFind: string): Boolean;
function StrMatches(AString: string; AFind: array of string): Boolean;
function StrMatches(AString: string; AFind: array of string; out AGapsContent: TStringArray): Boolean;
function StrMatches(AString: string; const AFind: array of string): Boolean;
function StrMatches(AString: string; const AFind: array of string; out AGapsContent: TStringArray): Boolean;
function ParseThreadLocation(AnInput: String; out AnId: Integer;
out AnIsCurrent: Boolean; out AName: String; out AnAddr: TDBGPtr;
@ -69,14 +69,14 @@ begin
Result := pos(AFind, AString) > 0;
end;
function StrMatches(AString: string; AFind: array of string): Boolean;
function StrMatches(AString: string; const AFind: array of string): Boolean;
var
Dummy: TStringArray;
begin
Result := StrMatches(AString, AFind, Dummy);
end;
function StrMatches(AString: string; AFind: array of string; out
function StrMatches(AString: string; const AFind: array of string; out
AGapsContent: TStringArray): Boolean;
var
FindIdx, FindLen, j, j2, ResIdx: Integer;