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

LazUtils: Masks: replace some lines of code with a single AddLiteral.

Browse Source
This commit is contained in:
Bart 2021-11-06 13:32:30 +01:00
parent 3b2e56528b
commit 5dff088116
1 changed files with 1 additions and 6 deletions

7
components/lazutils/masks.pas
View File

@ -916,12 +916,7 @@ begin
inc(fMaskInd,fCPLength);
if fMaskInd<=fMaskLimit then begin
fCPLength:=UTF8CodepointSizeFast(@fMask[fMaskInd]);
Add(TMaskParsedCode.Literal);
Add(fCPLength,@fMask[fMaskInd]);
inc(fMatchMinimumLiteralBytes,fCPLength);
if fMatchMaximumLiteralBytes<High(fMatchMaximumLiteralBytes) then
inc(fMatchMaximumLiteralBytes,fCPLength);
fLastOC:=TMaskParsedCode.Literal;
AddLiteral;
inc(fMaskInd,fCPLength);
end
else