Browse Source

* Fix bug ID #36701

git-svn-id: trunk@44182 -
michael 5 năm trước cách đây
mục cha
commit
4fc7958093
1 tập tin đã thay đổi với 2 bổ sung1 xóa
  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;