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

synedit: fixed compile

Browse Source 
git-svn-id: trunk@64722 -
This commit is contained in:
mattias 2021-03-02 13:52:59 +00:00
parent 64d6ca58a7
commit 3386007fe0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkuphighall.pp
View File

@ -817,7 +817,7 @@ procedure TSynSearchDictionary.BuildDictionary;
memory consumption, since they have 4 continuation bytes (array size 64) memory consumption, since they have 4 continuation bytes (array size 64)
to bring down the average. to bring down the average.
*) *)
SetLength(Result, Length(ATerm)); SetLength(Result{%H-}, Length(ATerm));
for i := 1 to Length(ATerm) do begin for i := 1 to Length(ATerm) do begin
c := ATerm[i]; c := ATerm[i];
if c < #128 if c < #128
@ -1384,7 +1384,7 @@ begin
Len := length(o.SearchTerm); Len := length(o.SearchTerm);
MatchBegin := MatchEnd - Len - FFindLineTextLower + FFindLineText; MatchBegin := MatchEnd - Len - FFindLineTextLower + FFindLineText;
if o.MatchCase and not StrLComp(MatchBegin, PChar(o.SearchTerm), Len) then begin if o.MatchCase and (StrLComp(MatchBegin, PChar(o.SearchTerm), Len)<>0) then begin
MatchIdx := FTermDict.GetIndexForNextWordOccurrence(MatchIdx); MatchIdx := FTermDict.GetIndexForNextWordOccurrence(MatchIdx);
continue; continue;
end; end;