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

LazUtils: Masks: rename ReverseRange to AddRangeReverse.

Browse Source 
Note: code contains writeln's, so it will crash if no console is available.
This commit is contained in:
Bart 2021-11-09 19:06:49 +01:00
parent ef974cb238
commit 3679a90e37
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

@ -219,11 +219,11 @@ type
procedure AddAnyChar;
procedure AddLiteral;
procedure AddRange(lFirstRange, lSecondRange: Integer);
procedure AddRangeReverse(lFirstRange, lSecondRange: Integer);
procedure CompileRange;
procedure CompileEscapeCharPlusLiteral;
procedure CompileSpecialChar;
function GetMask: String; virtual;
procedure ReverseRange(lFirstRange, lSecondRange: Integer);
procedure SetMask(AValue: String); virtual;
protected
fOriginalMask: String;
@ -745,7 +745,7 @@ begin
fMaskInd:=lSecondRange;
end;
procedure TMaskUTF8.ReverseRange(lFirstRange, lSecondRange: Integer);
procedure TMaskUTF8.AddRangeReverse(lFirstRange, lSecondRange: Integer);
begin
fCPLength:=UTF8CodepointSizeFast(@fMask[lSecondRange]);
Add(fCPLength,@fMask[lSecondRange]);
@ -865,7 +865,7 @@ begin
or (CompareUTF8Sequences(@fMask[lFirstRange],@fMask[lSecondRange])<0) then
AddRange(lFirstRange, lSecondRange)
else
ReverseRange(lFirstRange, lSecondRange);
AddRangeReverse(lFirstRange, lSecondRange);
fLastOC:=TMaskParsedCode.Range;
end //is a range