From c9f1fdfe4cc1e1db47150d6aa145e797569a3109 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 22 Aug 2008 15:47:50 +0000 Subject: [PATCH] Minor code fix to avoid warning. From-SVN: r139491 --- gcc/ada/ChangeLog | 9 +++------ 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 - * 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;