diff options
Diffstat (limited to 'gcc/ada/a-convec.adb')
| -rw-r--r-- | gcc/ada/a-convec.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb index 16b6591f6a4..6a3d186a200 100644 --- a/gcc/ada/a-convec.adb +++ b/gcc/ada/a-convec.adb @@ -96,7 +96,7 @@ package body Ada.Containers.Vectors is -- There are two constraints we need to satisfy. The first constraint is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the combined lengths. Note that we cannot - -- simply add the lengths, because of the possibilty of overflow. + -- simply add the lengths, because of the possibility of overflow. if LN > Count_Type'Last - RN then raise Constraint_Error with "new length is out of range"; @@ -1008,7 +1008,7 @@ package body Ada.Containers.Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; @@ -1664,7 +1664,7 @@ package body Ada.Containers.Vectors is -- that a container cannot have more than Count_Type'Last elements, so -- we must check the sum of the current length and the insertion -- count. Note that we cannot simply add these values, because of the - -- possibilty of overflow. + -- possibility of overflow. if Old_Length > Count_Type'Last - Count then raise Constraint_Error with "Count is out of range"; @@ -2414,7 +2414,7 @@ package body Ada.Containers.Vectors is Container.Elements := new Elements_Type'(Container.Last, Src); - -- We have succesfully allocated a new internal array (with a + -- We have successfully allocated a new internal array (with a -- smaller length than the old one, and containing a copy of -- just the active elements in the container), so it is now -- safe to attempt to deallocate the old array. The old array @@ -2549,7 +2549,7 @@ package body Ada.Containers.Vectors is Container.Elements := new Elements_Type'(Container.Last, Src); - -- We have succesfully allocated a new internal array (with a + -- We have successfully allocated a new internal array (with a -- smaller length than the old one, and containing a copy of -- just the active elements in the container), so it is now -- safe to attempt to deallocate the old array. The old array |