diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-07 15:01:27 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-07 15:01:27 +0000 |
commit | 38d2fa31f60fb5aaf3dea1214bbf9001ab94f600 (patch) | |
tree | 97de4be619b593f2d66a2fa45de2b0a01f1177c0 /gcc/ada/clean.adb | |
parent | 4076879ffa527f474935dec2d6c49acdaa9d5353 (diff) | |
download | gcc-38d2fa31f60fb5aaf3dea1214bbf9001ab94f600.tar.gz |
2009-04-07 Robert Dewar <dewar@adacore.com>
(Osint.Fail): Change calling sequence to have one string arg
(Make.Make_Failed): Same change
All callers are adjusted to use concatenation
2009-04-07 Robert Dewar <dewar@adacore.com>
* exp_ch4.adb: Fix documentation typo
2009-04-07 Robert Dewar <dewar@adacore.com>
* tbuild.ads: Minor reformatting
2009-04-07 Javier Miranda <miranda@adacore.com>
* exp_disp.adb (Make_DT): Avoid the generation of the OSD_Table
when compiling under ZFP runtime.
2009-04-07 Robert Dewar <dewar@adacore.com>
* g-comlin.adb: Minor reformatting
2009-04-07 Thomas Quinot <quinot@adacore.com>
* socket.c, g-socthi-vms.adb, g-socthi-vms.ads, g-socthi-vxworks.adb,
g-socthi-vxworks.ads, g-socthi-mingw.adb, g-socthi-mingw.ads,
g-socthi.adb, g-socthi.ads, g-socket.adb, g-socket.ads, g-sothco.ads:
Remove dynamic allocation of Fd_Set in Socket_Set_Type objects.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145678 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/clean.adb')
-rw-r--r-- | gcc/ada/clean.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index 30aa9a45c41..5df43cd1a04 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -1625,7 +1625,7 @@ package body Clean is procedure Bad_Argument is begin - Fail ("invalid argument """, Arg, """"); + Fail ("invalid argument """ & Arg & """"); end Bad_Argument; begin @@ -1680,7 +1680,7 @@ package body Clean is Dir : constant String := Arg (3 .. Arg'Last); begin if not Is_Directory (Dir) then - Fail (Dir, " is not a directory"); + Fail (Dir & " is not a directory"); else Add_Lib_Search_Dir (Dir); end if; @@ -1697,7 +1697,7 @@ package body Clean is Dir : constant String := Argument (Index); begin if not Is_Directory (Dir) then - Fail (Dir, " is not a directory"); + Fail (Dir & " is not a directory"); else Add_Lib_Search_Dir (Dir); end if; @@ -1853,8 +1853,9 @@ package body Clean is else Fail - ("illegal external assignment '", - Ext_Asgn, "'"); + ("illegal external assignment '" + & Ext_Asgn + & "'"); end if; end; |