Browse Source

* Fix bug ID #36701

git-svn-id: trunk@44182 -
michael 5 years ago
parent
commit
4fc7958093
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/regexpr/src/regexpr.pas

+ 2 - 1
packages/regexpr/src/regexpr.pas

@@ -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}
@@ -1438,6 +1438,7 @@ begin
   programm := nil;
   fExpression := '';
   fInputString := '';
+  FEmptyInputRaisesError := False;
 
   regexpBegin := nil;
   regexpIsCompiled := False;