diff options
| -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; |