diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 17:19:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 17:19:17 +0200 |
| commit | 0be7dcbbdb4a177a2e783294a99463f8884220b1 (patch) | |
| tree | f9c18506a54883579f476056e8170bc36eb97a6b /gcc/ada/errutil.adb | |
| parent | a18e3d62790873a98c07b098647a7002a24a1690 (diff) | |
| download | gcc-0be7dcbbdb4a177a2e783294a99463f8884220b1.zip gcc-0be7dcbbdb4a177a2e783294a99463f8884220b1.tar.gz gcc-0be7dcbbdb4a177a2e783294a99463f8884220b1.tar.bz2 | |
[multiple changes]
2014-07-30 Thomas Quinot <quinot@adacore.com>
* gnat_rm.texi: Minor doc fixes.
2014-07-30 Robert Dewar <dewar@adacore.com>
* a-rbtgbo.adb, sem_ch13.adb: Minor reformatting.
2014-07-30 Vincent Celier <celier@adacore.com>
* errutil.adb (Set_Msg_Text): Process tilde ('~'): no processing
of error message.
* prj-nmsc.adb (Locate_Directory): Use a tilde ('~') in the
message to report that a directory cannot be created, to avoid
processing of the directory path that may contains special
insertion characters.
From-SVN: r213301
Diffstat (limited to 'gcc/ada/errutil.adb')
| -rw-r--r-- | gcc/ada/errutil.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/errutil.adb b/gcc/ada/errutil.adb index f15eec9..b6d6b92 100644 --- a/gcc/ada/errutil.adb +++ b/gcc/ada/errutil.adb @@ -772,6 +772,15 @@ package body Errutil is P := P - 1; Set_Msg_Insertion_Reserved_Word (Text, P); + -- Tilde: just remove '~' and do not modify the message further + + -- This is peculiar, incompatible with errout, and not documented ??? + + elsif C = '~' then + Set_Msg_Str + (Text (Text'First .. P - 2) & Text (P .. Text'Last)); + exit; + -- Normal character with no special treatment else |