From: Robert Dewar <dewar@adacore.com>
Date: Fri, 22 Aug 2008 15:47:50 +0000 (+0000)
Subject: Minor code fix to avoid warning.
X-Git-Tag: releases/gcc-4.4.0~2924
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c9f1fdfe4cc1e1db47150d6aa145e797569a3109;p=thirdparty%2Fgcc.git

Minor code fix to avoid warning.

From-SVN: r139491
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 44f150fc3705..4a9232ea9b24 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 1d1fd3d90954..917e47855fb7 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;