paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 07:19:17 +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); procedure TRegExpr.SetModifierG(AValue: boolean);
begin begin
fModifiers.G := AValue; if fModifiers.G <> AValue then
begin
fModifiers.G := AValue;
InvalidateProgramm;
end;
end; end;
procedure TRegExpr.SetModifierI(AValue: boolean); procedure TRegExpr.SetModifierI(AValue: boolean);
begin begin
fModifiers.I := AValue; if fModifiers.I <> AValue then
begin
fModifiers.I := AValue;
InvalidateProgramm;
end;
end; end;
procedure TRegExpr.SetModifierM(AValue: boolean); procedure TRegExpr.SetModifierM(AValue: boolean);
begin begin
fModifiers.M := AValue; if fModifiers.M <> AValue then
begin
fModifiers.M := AValue;
InvalidateProgramm;
end;
end; end;
procedure TRegExpr.SetModifierR(AValue: boolean); procedure TRegExpr.SetModifierR(AValue: boolean);
begin begin
fModifiers.R := AValue; if fModifiers.R <> AValue then
begin
fModifiers.R := AValue;
InvalidateProgramm;
end;
end; end;
procedure TRegExpr.SetModifierS(AValue: boolean); procedure TRegExpr.SetModifierS(AValue: boolean);
begin begin
fModifiers.S := AValue; if fModifiers.S <> AValue then
begin
fModifiers.S := AValue;
InvalidateProgramm;
end;
end; end;
procedure TRegExpr.SetModifierX(AValue: boolean); procedure TRegExpr.SetModifierX(AValue: boolean);
begin begin
fModifiers.X := AValue; if fModifiers.X <> AValue then
begin
fModifiers.X := AValue;
InvalidateProgramm;
end;
end; end;
procedure TRegExpr.SetModifierStr(const AStr: RegExprString); procedure TRegExpr.SetModifierStr(const AStr: RegExprString);
begin begin
if not ParseModifiers(PRegExprChar(AStr), Length(AStr), fModifiers) then if ParseModifiers(PRegExprChar(AStr), Length(AStr), fModifiers) then
InvalidateProgramm
else
Error(reeModifierUnsupported); Error(reeModifierUnsupported);
end; { of procedure TRegExpr.SetModifierStr end;
-------------------------------------------------------------- }
{ ============================================================= } { ============================================================= }
{ ==================== Compiler section ======================= } { ==================== Compiler section ======================= }