From 6b5352bf1598dd9d7aec850dba8b5c3415dc4378 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 22 Aug 2008 17:45:29 +0200 Subject: [PATCH] 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 --- gcc/ada/s-sopco3.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/s-sopco3.adb b/gcc/ada/s-sopco3.adb index bdd11aa..6637b08 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 -- 2.7.4