Minor code fix to avoid warning.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139491 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 44f150f..4a9232e 100644 (file)
--- 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 1d1fd3d..917e478 100644 (file)
--- 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;