[Ada] Extend range type in search primitives of formal vectors
authorClaire Dross <dross@adacore.com>
Tue, 13 Aug 2019 08:06:12 +0000 (08:06 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Tue, 13 Aug 2019 08:06:12 +0000 (08:06 +0000)
commitdfa6d55af715a2b902d6ed30f2c0276b1709dd5b
tree52f90b6e3841efddfc1e46959a7544fba543237b
parentb9fb922ad7439b38119aaca7a38b839d62fcaf23
[Ada] Extend range type in search primitives of formal vectors

2019-08-13  Claire Dross  <dross@adacore.com>

gcc/ada/

* libgnat/a-cfinve.adb, libgnat/a-cofove.adb (Find_Index,
Reverse_Find_Index): Use bigger type to avoid range check
failure at the last loop iteration.

From-SVN: r274331
gcc/ada/ChangeLog
gcc/ada/libgnat/a-cfinve.adb
gcc/ada/libgnat/a-cofove.adb