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/errutil.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/errutil.adb')
| -rw-r--r-- | gcc/ada/errutil.adb | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/gcc/ada/errutil.adb b/gcc/ada/errutil.adb index b6d6b92..e63ebc0 100644 --- a/gcc/ada/errutil.adb +++ b/gcc/ada/errutil.adb @@ -772,14 +772,8 @@ 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; + Set_Msg_Str (Error_Msg_String (1 .. Error_Msg_Strlen)); -- Normal character with no special treatment |