diff options
Diffstat (limited to 'gcc/ada/g-cgideb.adb')
-rw-r--r-- | gcc/ada/g-cgideb.adb | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/g-cgideb.adb b/gcc/ada/g-cgideb.adb index 6b8020fb4ca..c3a0945c67c 100644 --- a/gcc/ada/g-cgideb.adb +++ b/gcc/ada/g-cgideb.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2006, AdaCore -- +-- Copyright (C) 2000-2007, AdaCore -- -- -- -- 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- -- @@ -131,12 +131,11 @@ package body GNAT.CGI.Debug is Result : Unbounded_String; begin - Result := Result - & Title (Mode, "CGI complete runtime environment"); - - Result := Result - & Header (Mode, "CGI parameters:") - & New_Line (Mode); + Result := + To_Unbounded_String + (Title (Mode, "CGI complete runtime environment") + & Header (Mode, "CGI parameters:") + & New_Line (Mode)); for K in 1 .. Argument_Count loop Result := Result |