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

1 files changed, 16 insertions, 11 deletions

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);