Skip to content

R
riscv-gcc-1
Commit d43d5ef7 by Matthew Heaney Committed by Arnaud Charlet
Options

a-convec.ads, [...]: Declaration of subtype Extended_Index was changed. 

2005-07-04  Matthew Heaney  <heaney@adacore.com>

	* a-convec.ads, a-coinve.ads: Declaration of subtype Extended_Index
	was changed.
	* a-coinve.adb: Perform constraint checks explicitly.

From-SVN: r101597
parent c8effb4f
Showing with 2 additions and 4 deletions
gcc/ada/a-coinve.ads
...@@ -48,8 +48,7 @@ pragma Preelaborate (Indefinite_Vectors); ...@@ -48,8 +48,7 @@ pragma Preelaborate (Indefinite_Vectors);
subtype Extended_Index is Index_Type'Base subtype Extended_Index is Index_Type'Base
range Index_Type'First - 1 .. range Index_Type'First - 1 ..
Index_Type'Last + Index_Type'Min (Index_Type'Base'Last - 1, Index_Type'Last) + 1;
Boolean'Pos (Index_Type'Base'Last > Index_Type'Last);
No_Index : constant Extended_Index := Extended_Index'First; No_Index : constant Extended_Index := Extended_Index'First;
......
gcc/ada/a-convec.ads
...@@ -46,8 +46,7 @@ pragma Preelaborate (Vectors); ...@@ -46,8 +46,7 @@ pragma Preelaborate (Vectors);
subtype Extended_Index is Index_Type'Base subtype Extended_Index is Index_Type'Base
range Index_Type'First - 1 .. range Index_Type'First - 1 ..
Index_Type'Last + Index_Type'Min (Index_Type'Base'Last - 1, Index_Type'Last) + 1;
Boolean'Pos (Index_Type'Base'Last > Index_Type'Last);
No_Index : constant Extended_Index := Extended_Index'First; No_Index : constant Extended_Index := Extended_Index'First;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment