diff options
Diffstat (limited to 'gcc/ada/a-stzunb-shared.adb')
| -rw-r--r-- | gcc/ada/a-stzunb-shared.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-stzunb-shared.adb b/gcc/ada/a-stzunb-shared.adb index 75799dad2f2..bed79790a3c 100644 --- a/gcc/ada/a-stzunb-shared.adb +++ b/gcc/ada/a-stzunb-shared.adb @@ -86,7 +86,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is Reference (Empty_Shared_Wide_Wide_String'Access); DR := Empty_Shared_Wide_Wide_String'Access; - -- Left string is empty, return Rigth string. + -- Left string is empty, return Right string. elsif LR.Last = 0 then Reference (RR); @@ -98,7 +98,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is Reference (LR); DR := LR; - -- Overwise, allocate new shared string and fill data. + -- Otherwise, allocate new shared string and fill data. else DR := Allocate (LR.Last + RR.Last); |