diff options
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 |