OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Matthew Heaney 2005-07-04 15:31:24 +02:00 committed by Arnaud Charlet
parent c8effb4f39
commit d43d5ef7b5
3 changed files with 635 additions and 512 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1141
gcc/ada/a-coinve.adb
View File

File diff suppressed because it is too large Load Diff

3
gcc/ada/a-coinve.ads
View File

@ -48,8 +48,7 @@ pragma Preelaborate (Indefinite_Vectors);
subtype Extended_Index is Index_Type'Base
range Index_Type'First - 1 ..
Index_Type'Last +
Boolean'Pos (Index_Type'Base'Last > Index_Type'Last);
Index_Type'Min (Index_Type'Base'Last - 1, Index_Type'Last) + 1;
No_Index : constant Extended_Index := Extended_Index'First;

3
gcc/ada/a-convec.ads
View File

@ -46,8 +46,7 @@ pragma Preelaborate (Vectors);
subtype Extended_Index is Index_Type'Base
range Index_Type'First - 1 ..
Index_Type'Last +
Boolean'Pos (Index_Type'Base'Last > Index_Type'Last);
Index_Type'Min (Index_Type'Base'Last - 1, Index_Type'Last) + 1;
No_Index : constant Extended_Index := Extended_Index'First;