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

LazUtils: fix not adding '[' as a literal to the internal mask if ranges and sets are disabled:

Browse Source 
MatchesMask('a[b]c','a[b]c',False,MaskOpCodesDisableRange) now correctly evaluates to True.
This commit is contained in:
Bart 2021-11-02 23:08:52 +01:00
parent 3c7586c0f8
commit a22cac6853
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/masks.pas
View File

@ -932,7 +932,6 @@ begin
then
CompileRange
else begin
if (fMask[fMaskInd]=FMaskEscapeChar) and (mocEscapeChar in FMaskOpcodesAllowed) then begin
// next is Literal
inc(fMaskInd,fCPLength);
@ -941,15 +940,16 @@ begin
end else begin
Exception_IncompleteMask();
end;
AddLiteral;
end;
AddLiteral;
end;
end;
end;
end
else
begin
AddLiteral;
end;
inc(fMaskInd,fCPLength);
end;
end;