try to circumvent FPC trunk bug with TSynDictionary.ForEach

synopse · Mar 30, 2021 · 444fdc5 · 444fdc5
1 parent 1173793
commit 444fdc5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/mormot.core.json.pas b/src/core/mormot.core.json.pas
@@ -9342,8 +9342,8 @@ function TSynDictionary.ForEach(const OnMatch: TOnSynDictionary;
   try
     result := 0;
     if not Assigned(OnMatch) or
-       (not Assigned(KeyCompare) and
-        not Assigned(ValueCompare)) then
+       not (Assigned(KeyCompare) or
+            Assigned(ValueCompare)) then
       exit;
     n := fSafe.Padding[DIC_KEYCOUNT].VInteger;
     k := fKeys.Value^;