diff options
Diffstat (limited to 'gcc/ada/a-convec.ads')
| -rw-r--r-- | gcc/ada/a-convec.ads | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/a-convec.ads b/gcc/ada/a-convec.ads index c8e6e99f760..9c4e76a02b3 100644 --- a/gcc/ada/a-convec.ads +++ b/gcc/ada/a-convec.ads @@ -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; |