diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-22 15:47:50 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-22 17:47:50 +0200 |
| commit | c9f1fdfe4cc1e1db47150d6aa145e797569a3109 (patch) | |
| tree | 847fae0ae82386bc7089f894271cc29e413f3a31 | |
| parent | 5b2da9482870c6e5d1fc8ad90c9801647ad28171 (diff) | |
| download | gcc-c9f1fdfe4cc1e1db47150d6aa145e797569a3109.zip gcc-c9f1fdfe4cc1e1db47150d6aa145e797569a3109.tar.gz gcc-c9f1fdfe4cc1e1db47150d6aa145e797569a3109.tar.bz2 | |
Minor code fix to avoid warning.
From-SVN: r139491
| -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 44f150f..4a9232e 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 1d1fd3d..917e478 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; |