diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 11:38:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 11:38:40 +0200 |
| commit | 7c0c194ba4cd9a9bb779075cb977cb319882bc0b (patch) | |
| tree | 82552f904ea0b183c37c663837df398951281c18 /gcc/ada/prj-nmsc.adb | |
| parent | 1fb63e89dfeff6b42792967c764df89d0ca1d8c6 (diff) | |
| download | gcc-7c0c194ba4cd9a9bb779075cb977cb319882bc0b.zip gcc-7c0c194ba4cd9a9bb779075cb977cb319882bc0b.tar.gz gcc-7c0c194ba4cd9a9bb779075cb977cb319882bc0b.tar.bz2 | |
[multiple changes]
2014-07-31 Ed Schonberg <schonberg@adacore.com>
* 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 <celier@adacore.com>
* prj-nmsc.adb, errutil.adb: Make code similar to Errout.
2014-07-31 Gary Dismukes <dismukes@adacore.com>
* gnat_rm.texi, sem_aux.ads, einfo.ads, sem_util.ads, sem_ch6.adb,
exp_disp.adb: Minor reformatting.
From-SVN: r213326
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 14 |
1 files changed, 11 insertions, 3 deletions
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; |