Minor code fix to avoid warning.

From-SVN: r139491

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 44f150fc37051fdf7d054558023a67811397f799..4a9232ea9b2476f2ab3ac99a43fb4bc2c8641a62 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 1d1fd3d909549f4352217390821a7889b1e7f064..917e47855fb742af8adeb9ce19a5e5f31d3c6050 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;