Fix matching empty string in ansi-char mode. Condition was wrongly IF…

…DEFED Issue andgineer#343
User4martin · Nov 16, 2023 · e4fcc06 · e4fcc06
1 parent 49d71c0
commit e4fcc06
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/regexpr.pas b/src/regexpr.pas
@@ -6451,9 +6451,9 @@ function TRegExpr.ExecPrimProtected(AOffset: Integer; ASlowChecks,
       raEOL: Ptr := fInputEnd;
     end;
     {$IFDEF UseFirstCharSet}
-    {$IFDEF UnicodeRE}
-    if (Ptr < fInputEnd) and (Ord(Ptr^) <= $FF) then
-    {$ENDIF}
+    if (Ptr < fInputEnd)
+    {$IFDEF UnicodeRE} and (Ord(Ptr^) <= $FF)  {$ENDIF}
+    then
       if not FirstCharArray[Byte(Ptr^)] then
         Exit;
     {$ENDIF}