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/gprep.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/gprep.adb')
| -rw-r--r-- | gcc/ada/gprep.adb | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/gcc/ada/gprep.adb b/gcc/ada/gprep.adb index 44633b9c902..c4cf14ba93c 100644 --- a/gcc/ada/gprep.adb +++ b/gcc/ada/gprep.adb @@ -236,9 +236,9 @@ package body GPrep is Sinput.Main_Source_File := Deffile; if Deffile = No_Source_File then - Fail ("unable to find definition file """, - Get_Name_String (Deffile_Name), - """"); + Fail ("unable to find definition file """ + & Get_Name_String (Deffile_Name) + & """"); end if; Scanner.Initialize_Scanner (Deffile); @@ -251,8 +251,9 @@ package body GPrep is if Total_Errors_Detected > 0 then Errutil.Finalize (Source_Type => "definition"); - Fail ("errors in definition file """, - Get_Name_String (Deffile_Name), """"); + Fail ("errors in definition file """ + & Get_Name_String (Deffile_Name) + & """"); end if; -- If -s switch was specified, print a sorted list of symbol names and @@ -487,8 +488,9 @@ package body GPrep is exception when others => Fail - ("unable to create output file """, - Get_Name_String (Outfile_Name), """"); + ("unable to create output file """ + & Get_Name_String (Outfile_Name) + & """"); end; -- Load the input file @@ -496,8 +498,9 @@ package body GPrep is Infile := Sinput.C.Load_File (Get_Name_String (Infile_Name)); if Infile = No_Source_File then - Fail ("unable to find input file """, - Get_Name_String (Infile_Name), """"); + Fail ("unable to find input file """ + & Get_Name_String (Infile_Name) + & """"); end if; -- Set Main_Source_File to the input file for the benefit of @@ -632,8 +635,9 @@ package body GPrep is exception when Directory_Error => - Fail ("could not create directory """, - Output, """"); + Fail ("could not create directory """ + & Output + & """"); end; end if; |