From 38d2fa31f60fb5aaf3dea1214bbf9001ab94f600 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 7 Apr 2009 15:01:27 +0000 Subject: 2009-04-07 Robert Dewar (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 * exp_ch4.adb: Fix documentation typo 2009-04-07 Robert Dewar * tbuild.ads: Minor reformatting 2009-04-07 Javier Miranda * exp_disp.adb (Make_DT): Avoid the generation of the OSD_Table when compiling under ZFP runtime. 2009-04-07 Robert Dewar * g-comlin.adb: Minor reformatting 2009-04-07 Thomas Quinot * 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 --- gcc/ada/mlib-tgt-specific-vms-alpha.adb | 27 ++++++++++++++++----------- 1 file changed, 16 insertions(+), 11 deletions(-) (limited to 'gcc/ada/mlib-tgt-specific-vms-alpha.adb') diff --git a/gcc/ada/mlib-tgt-specific-vms-alpha.adb b/gcc/ada/mlib-tgt-specific-vms-alpha.adb index 0c4ab953f33..c9ffa0d837e 100644 --- a/gcc/ada/mlib-tgt-specific-vms-alpha.adb +++ b/gcc/ada/mlib-tgt-specific-vms-alpha.adb @@ -196,8 +196,9 @@ package body MLib.Tgt.Specific is exception when Constraint_Error => - Fail ("illegal version """, Lib_Version, - """ (on VMS version must be a positive number)"); + Fail ("illegal version """ + & Lib_Version + & """ (on VMS version must be a positive number)"); return ""; end; end if; @@ -239,7 +240,7 @@ package body MLib.Tgt.Specific is Gnatsym_Path := Locate_Exec_On_Path (Gnatsym_Name); if Gnatsym_Path = null then - Fail (Gnatsym_Name, " not found in path"); + Fail (Gnatsym_Name & " not found in path"); end if; end if; @@ -313,8 +314,9 @@ package body MLib.Tgt.Specific is end if; if not OK then - Fail ("creation of auto-init assembly file """, - Macro_File_Name, """ failed"); + Fail ("creation of auto-init assembly file """ + & Macro_File_Name + & """ failed"); end if; end; @@ -330,8 +332,9 @@ package body MLib.Tgt.Specific is mode (mode'First)'Address); if Popen_Result = Null_Address then - Fail ("assembly of auto-init assembly file """, - Macro_File_Name, """ failed"); + Fail ("assembly of auto-init assembly file """ + & Macro_File_Name + & """ failed"); end if; -- Wait for the end of execution of the macro-assembler @@ -339,8 +342,9 @@ package body MLib.Tgt.Specific is Pclose_Result := pclose (Popen_Result); if Pclose_Result < 0 then - Fail ("assembly of auto init assembly file """, - Macro_File_Name, """ failed"); + Fail ("assembly of auto init assembly file """ + & Macro_File_Name + & """ failed"); end if; -- Add the generated object file to the list of objects to be @@ -432,8 +436,9 @@ package body MLib.Tgt.Specific is Success => Success); if not Success then - Fail ("unable to create symbol file for library """, - Lib_Filename, """"); + Fail ("unable to create symbol file for library """ + & Lib_Filename + & """"); end if; Free (Arguments); -- cgit v1.2.1