paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix issue #38442

Browse Source 
git-svn-id: trunk@49047 -
This commit is contained in:
michael 2021-03-24 17:05:26 +00:00
parent 7a0c6ab591
commit a1c392e0af
1 changed files with 34 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
packages/regexpr/src/regexpr.pas
View File

@ -1615,40 +1615,65 @@ end; { of function TRegExpr.GetModifierStr
procedure TRegExpr.SetModifierG(AValue: boolean);
begin
fModifiers.G := AValue;
if fModifiers.G <> AValue then
begin
fModifiers.G := AValue;
InvalidateProgramm;
end;
end;
procedure TRegExpr.SetModifierI(AValue: boolean);
begin
fModifiers.I := AValue;
if fModifiers.I <> AValue then
begin
fModifiers.I := AValue;
InvalidateProgramm;
end;
end;
procedure TRegExpr.SetModifierM(AValue: boolean);
begin
fModifiers.M := AValue;
if fModifiers.M <> AValue then
begin
fModifiers.M := AValue;
InvalidateProgramm;
end;
end;
procedure TRegExpr.SetModifierR(AValue: boolean);
begin
fModifiers.R := AValue;
if fModifiers.R <> AValue then
begin
fModifiers.R := AValue;
InvalidateProgramm;
end;
end;
procedure TRegExpr.SetModifierS(AValue: boolean);
begin
fModifiers.S := AValue;
if fModifiers.S <> AValue then
begin
fModifiers.S := AValue;
InvalidateProgramm;
end;
end;
procedure TRegExpr.SetModifierX(AValue: boolean);
begin
fModifiers.X := AValue;
if fModifiers.X <> AValue then
begin
fModifiers.X := AValue;
InvalidateProgramm;
end;
end;
procedure TRegExpr.SetModifierStr(const AStr: RegExprString);
begin
if not ParseModifiers(PRegExprChar(AStr), Length(AStr), fModifiers) then
if ParseModifiers(PRegExprChar(AStr), Length(AStr), fModifiers) then
InvalidateProgramm
else
Error(reeModifierUnsupported);
end; { of procedure TRegExpr.SetModifierStr
-------------------------------------------------------------- }
end;
{ ============================================================= }
{ ==================== Compiler section ======================= }