mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 14:31:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Extend range type in search primitives of formal vectors

Browse Source 
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
This commit is contained in:
Claire Dross 2019-08-13 08:06:12 +00:00 committed by Pierre-Marie de Rodat
parent b9fb922ad7
commit dfa6d55af7
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2019-08-13 Claire Dross <dross@adacore.com>
* 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.
2019-08-12 Dmitriy Anisimkov <anisimko@adacore.com>
* libgnat/g-socket.adb (Is_IPv6_Address): Check that no less

4
gcc/ada/libgnat/a-cfinve.adb
View File

@ -457,7 +457,7 @@ is
Item : Element_Type;
Index : Index_Type := Index_Type'First) return Extended_Index
is
K : Capacity_Range;
K : Count_Type;
Last : constant Index_Type := Last_Index (Container);
begin
@ -1277,7 +1277,7 @@ is
Index : Index_Type := Index_Type'Last) return Extended_Index
is
Last : Index_Type'Base;
K : Capacity_Range;
K : Count_Type'Base;
begin
if Index > Last_Index (Container) then

4
gcc/ada/libgnat/a-cofove.adb
View File

@ -378,7 +378,7 @@ is
Item : Element_Type;
Index : Index_Type := Index_Type'First) return Extended_Index
is
K : Capacity_Range;
K : Count_Type;
Last : constant Index_Type := Last_Index (Container);
begin
@ -1147,7 +1147,7 @@ is
Index : Index_Type := Index_Type'Last) return Extended_Index
is
Last : Index_Type'Base;
K : Capacity_Range;
K : Count_Type'Base;
begin
if Index > Last_Index (Container) then