diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-20 21:46:40 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-12-20 21:46:40 +0000 |
| commit | b08e05713256fbd8a2a414b56c82d1651aadb985 (patch) | |
| tree | 31bad5c89150cded27efde181d7eee13ce078edb /gcc/ada/a-stzunb-shared.adb | |
| parent | 79bd8aab8f7dedd773f23cbf2c109d9f77cd47d7 (diff) | |
| download | gcc-b08e05713256fbd8a2a414b56c82d1651aadb985.tar.gz | |
2010-12-20 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 168094
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@168096 138bc75d-0d04-0410-961f-82ee72b054a4
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); |