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/errutil.adb | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'gcc/ada/errutil.adb') 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 -- cgit v1.1