diff options
Diffstat (limited to 'gcc/ada/mlib-tgt-specific-vms-ia64.adb')
| -rw-r--r-- | gcc/ada/mlib-tgt-specific-vms-ia64.adb | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/gcc/ada/mlib-tgt-specific-vms-ia64.adb b/gcc/ada/mlib-tgt-specific-vms-ia64.adb index c133ef0d4b5..247b2eb304b 100644 --- a/gcc/ada/mlib-tgt-specific-vms-ia64.adb +++ b/gcc/ada/mlib-tgt-specific-vms-ia64.adb @@ -195,8 +195,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; @@ -221,7 +222,7 @@ package body MLib.Tgt.Specific is then For_Linker_Opt := new String'("--for-linker=" & Opt_File_Name); else - Fail ("Options File """, Opt_File_Name, """ must end with .opt"); + Fail ("Options File """ & Opt_File_Name & """ must end with .opt"); end if; VMS_Options (VMS_Options'First) := For_Linker_Opt; @@ -236,7 +237,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; @@ -316,8 +317,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; @@ -333,8 +335,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 @@ -342,8 +345,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 @@ -434,8 +438,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); |