diff options
| author | Matthew Heaney <heaney@adacore.com> | 2005-07-04 15:31:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-07-04 15:31:24 +0200 |
| commit | d43d5ef7b552483264f6af5a831bdef1d1cd55cb (patch) | |
| tree | 44bfd5c7d3bbfa64205b95de570d167845fe6f12 /gcc/ada/a-coinve.ads | |
| parent | c8effb4f399d8f1d59c2a2aafdfbfeaf1313de73 (diff) | |
| download | gcc-d43d5ef7b552483264f6af5a831bdef1d1cd55cb.tar.gz | |
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
Diffstat (limited to 'gcc/ada/a-coinve.ads')
| -rw-r--r-- | gcc/ada/a-coinve.ads | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/a-coinve.ads b/gcc/ada/a-coinve.ads index f33e8308439..e2a4de9539c 100644 --- a/gcc/ada/a-coinve.ads +++ b/gcc/ada/a-coinve.ads @@ -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; |