Natools

Diff
Login

Differences From Artifact [328ba1ead5]:

To Artifact [c2e4810a49]:


61
62
63
64
65
66
67
68


69
70
71
72
73
74
75
               Is_Valid := True;
            end if;
         exception
            when Constraint_Error => null;
         end To_Code;

         if Is_Valid
           and then Dict_Entry (Dict, Code) = Template (Template'First .. Last)


         then
            Length := 1 + Last - Template'First;
            return;
         end if;
      end loop;
   end Find_Entry;








|
>
>







61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
               Is_Valid := True;
            end if;
         exception
            when Constraint_Error => null;
         end To_Code;

         if Is_Valid
           and then Template (Template'First .. Last)
              = Dict.Values (Code_First (Dict.Offsets, Code, Dict.Values'First)
                          .. Code_Last (Dict.Offsets, Code, Dict.Values'Last))
         then
            Length := 1 + Last - Template'First;
            return;
         end if;
      end loop;
   end Find_Entry;