diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-22 15:47:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-22 15:47:50 +0000 |
| commit | 75890282a0dff1e7bec432b68637babcb22fc37d (patch) | |
| tree | 847fae0ae82386bc7089f894271cc29e413f3a31 | |
| parent | bf130475cad1c15512b50df7461bd6b2f3736019 (diff) | |
| download | gcc-75890282a0dff1e7bec432b68637babcb22fc37d.tar.gz | |
Minor code fix to avoid warning.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139491 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/ada/g-trasym.adb | 2 |
2 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 44f150fc370..4a9232ea9b2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -4,13 +4,10 @@ 2008-08-22 Robert Dewar <dewar@adacore.com> - * s-sopco3.adb: Minor code fix to avoid warning + * s-sopco3.adb, s-sopco4.adb, s-sopco5.adb, s-strops.adb: Minor code fix + to avoid warning. - * s-sopco4.adb: Minor code fix to avoid warning - - * s-sopco5.adb: Minor code fix to avoid warning - - * s-strops.adb: Minor code fix to avoid warning + * g-trasym.adb: Ditto * s-utf_32.adb (Get_Category): Fix obvious typo diff --git a/gcc/ada/g-trasym.adb b/gcc/ada/g-trasym.adb index 1d1fd3d9095..917e47855fb 100644 --- a/gcc/ada/g-trasym.adb +++ b/gcc/ada/g-trasym.adb @@ -102,7 +102,7 @@ package body GNAT.Traceback.Symbolic is -- The symbolic translation of an empty set of addresses is the -- the empty string. - if Traceback'Length <= 0 then + if Traceback'Length = 0 then return ""; end if; |