diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-01 06:35:08 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-09-01 06:35:08 +0000 |
| commit | a30fe044170c44da9e441535e2167ca8e885b3cb (patch) | |
| tree | 2ebaaed9567b6d2c562b45ef1d92bcb5cb136795 /gcc/ada/s-sopco4.adb | |
| parent | ddda25955ee583217ccbd7ad5c33c6bb9f304649 (diff) | |
| download | gcc-a30fe044170c44da9e441535e2167ca8e885b3cb.tar.gz | |
2008-09-01 Basile Starynkevitch <basile@starynkevitch.net>
MERGED WITH TRUNK rev139820
* gcc/melt/warmelt-first.bysl: added location argument to inform.
* gcc/warmelt-first-0.c: regenerated.
* gcc/warmelt-macro-0.c: regenerated.
* gcc/warmelt-normal-0.c: regenerated.
* gcc/warmelt-genobj-0.c: regenerated.
* gcc/warmelt-outobj-0.c: regenerated.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@139849 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-sopco4.adb')
| -rw-r--r-- | gcc/ada/s-sopco4.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-sopco4.adb b/gcc/ada/s-sopco4.adb index 8770a67034e..f7751aaae5a 100644 --- a/gcc/ada/s-sopco4.adb +++ b/gcc/ada/s-sopco4.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_4 is function Str_Concat_4 (S1, S2, S3, S4 : String) return String is begin - if S1'Length <= 0 then + if S1'Length = 0 then return S2 & S3 & S4; else |