paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r44181,r44182 from trunk:

Browse Source 
------------------------------------------------------------------------
    r44181 | michael | 2020-02-15 15:18:42 +0100 (Sat, 15 Feb 2020) | 1 line
    
    * Correct typo
    ------------------------------------------------------------------------
    r44182 | michael | 2020-02-15 16:47:39 +0100 (Sat, 15 Feb 2020) | 1 line
    
    * Fix bug ID #36701
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46578 -
This commit is contained in:
michael 2020-08-23 09:11:02 +00:00
parent fe716c890b
commit d5c1c95d9b
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,7 +50,7 @@ interface
{$MODE DELPHI} // Delphi-compatible mode in FreePascal
// Disabling for now, seems to cause bug in Lazarus (bug ID 36603)
{ $INLINE ON}
{$INLINE ON}
// ======== Define base compiler options
{$BOOLEVAL OFF}
@ -280,7 +280,7 @@ type
{$IFDEF UnicodeWordDetection}
FUseUnicodeWordDetection: boolean;
{$ENDIF}
FEmptyImputRaisesError : Boolean;
FEmptyInputRaisesError : Boolean;
CharCheckers: TRegExprCharCheckerArray;
CharCheckerInfos: TRegExprCharCheckerInfos;
@ -621,7 +621,7 @@ type
property SlowChecksSizeMax: integer read fSlowChecksSizeMax write fSlowChecksSizeMax;
// Raise error when input string is empty
Property EmptyImputRaisesError : Boolean Read FEmptyImputRaisesError Write FEmptyImputRaisesError;
Property EmptyInputRaisesError : Boolean Read FEmptyInputRaisesError Write FEmptyInputRaisesError;
end;
type
@ -1440,6 +1440,7 @@ begin
programm := nil;
fExpression := '';
fInputString := '';
FEmptyInputRaisesError := False;
regexpBegin := nil;
regexpIsCompiled := False;
@ -4217,7 +4218,7 @@ begin
// Check InputString presence
if fInputString = '' then
begin
if EmptyImputRaisesError then
if EmptyInputRaisesError then
Error(reeNoInputStringSpecified);
Exit;
end;
@ -4450,7 +4451,7 @@ begin
Exit;
if fInputString = '' then
begin
if EmptyImputRaisesError then
if EmptyInputRaisesError then
Error(reeNoInputStringSpecified);
Exit;
end;