From 7c0c194ba4cd9a9bb779075cb977cb319882bc0b Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 31 Jul 2014 11:38:40 +0200 Subject: [multiple changes] 2014-07-31 Ed Schonberg * exp_ch3.adb (Expand_Freeze_Record_Type): Do not build an invariant procedure for an internally generated subtype that is created for an object of a class-wide type. 2014-07-31 Vincent Celier * prj-nmsc.adb, errutil.adb: Make code similar to Errout. 2014-07-31 Gary Dismukes * gnat_rm.texi, sem_aux.ads, einfo.ads, sem_util.ads, sem_ch6.adb, exp_disp.adb: Minor reformatting. From-SVN: r213326 --- gcc/ada/prj-nmsc.adb | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'gcc/ada/prj-nmsc.adb') diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index 9bc7e1d..19c12de 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -6212,11 +6212,19 @@ package body Prj.Nmsc is exception when Use_Error => + + -- Output message with name of directory. Note that we + -- use the ~ insertion method here in case the name + -- has special characters in it. + + Error_Msg_Strlen := Full_Path_Name'Length; + Error_Msg_String (1 .. Error_Msg_Strlen) := + Full_Path_Name.all; Error_Msg (Data.Flags, - "~could not create " & Create & - " directory " & Full_Path_Name.all, - Location, Project); + "could not create " & Create & " directory ~", + Location, + Project); end; end if; end if; -- cgit v1.1