Minor code fix to avoid warning.

From-SVN: r139491
This commit is contained in:
Robert Dewar 2008-08-22 15:47:50 +00:00 committed by Arnaud Charlet
parent 5b2da94828
commit c9f1fdfe4c
2 changed files with 4 additions and 7 deletions

View File

@ -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

View File

@ -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;