fixed TOrmPropInfoList name search

- as reported by https://synopse.info/forum/viewtopic.php?id=6037
synopse · Oct 22, 2021 · 61c6cf8 · 61c6cf8
1 parent 257e556
commit 61c6cf8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/orm/mormot.orm.base.pas b/src/orm/mormot.orm.base.pas
@@ -7124,7 +7124,7 @@ function TOrmPropInfoList.IndexByName(aName: PUtf8Char): PtrInt;
   table: PByteArray;
   {$endif CPUX86NOTPIC}
 label
-  end1;
+  end1, no;
 begin
   if (self <> nil) and
      (aName <> nil) and
@@ -7153,7 +7153,7 @@ function TOrmPropInfoList.IndexByName(aName: PUtf8Char): PtrInt;
         if C1 = 0 then
           goto end1;
       until C1 <> C2;
-      cmp := result + 1; // compile as 2 branchless cmovc/cmovnc on FPC
+no:   cmp := result + 1; // compile as 2 branchless cmovc/cmovnc on FPC
       dec(result);
       if C1 > C2 then
         L := cmp
@@ -7163,7 +7163,7 @@ function TOrmPropInfoList.IndexByName(aName: PUtf8Char): PtrInt;
         break;
       continue;
 end1: if C2 <> 0 then
-        break;
+        goto no;
       result := fOrderedByName[result]; // reached ending #0 on both names
       exit;
     until false;