From: Robert Dewar Date: Fri, 22 Aug 2008 15:45:29 +0000 (+0200) Subject: s-sopco3.adb: Minor code fix to avoid warning X-Git-Tag: releases/gcc-4.4.0~2929 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6b5352bf1598dd9d7aec850dba8b5c3415dc4378;p=thirdparty%2Fgcc.git s-sopco3.adb: Minor code fix to avoid warning 2008-08-22 Robert Dewar * s-sopco3.adb: Minor code fix to avoid warning From-SVN: r139486 --- diff --git a/gcc/ada/s-sopco3.adb b/gcc/ada/s-sopco3.adb index bdd11aa7b0dd..6637b082de1a 100644 --- a/gcc/ada/s-sopco3.adb +++ b/gcc/ada/s-sopco3.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2008, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -43,7 +43,7 @@ package body System.String_Ops_Concat_3 is function Str_Concat_3 (S1, S2, S3 : String) return String is begin - if S1'Length <= 0 then + if S1'Length = 0 then return S2 & S3; else