[Lazarus] TMask revisited

[José Mejuto]

El 27/10/2021 a las 13:35, Bart via lazarus escribió:
> On Wed, Oct 27, 2021 at 1:28 PM José Mejuto via lazarus
> <lazarus at lists.lazarus-ide.org> wrote:
> 
>> "]" must be escaped in all cases, with ranges and with sets or it will
>> be interpreted as a premature closing (ranges).
> 
> Actually I did not think of that.
> 
> Could you possibly provide a patch against main and post it on GitLab
> (or attch the diff here)?
> 
> 

Hello,

Line 780, current:

       Add(TMaskParsedCode.OptionalChar);
       Add(fCPLength, at fMask[fMaskInd]);
       fLastOC:=TMaskParsedCode.OptionalChar;

Line 780, new:

       if (mocSet in fMaskOpcodesAllowed) then begin

         Add(TMaskParsedCode.OptionalChar);
         Add(fCPLength, at fMask[fMaskInd]);
         fLastOC:=TMaskParsedCode.OptionalChar;

       end else begin
         Exception_InvalidCharMask(fMask[fMaskInd],fMaskInd);
       end;
	

--