Minor code fix to avoid warning.
From-SVN: r139491
This commit is contained in:
parent
5b2da94828
commit
c9f1fdfe4c
@ -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
|
||||
|
||||
|
@ -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;
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user