From 3679a90e378d5632c7123938ea968b994fc4e6ec Mon Sep 17 00:00:00 2001 From: Bart <9132501-flyingsheep@users.noreply.gitlab.com> Date: Tue, 9 Nov 2021 19:06:49 +0100 Subject: [PATCH] LazUtils: Masks: rename ReverseRange to AddRangeReverse. Note: code contains writeln's, so it will crash if no console is available. --- components/lazutils/masks.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/lazutils/masks.pas b/components/lazutils/masks.pas index c56394915d..51d2f0c78b 100644 --- a/components/lazutils/masks.pas +++ b/components/lazutils/masks.pas @@ -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