From: Bob Duff Date: Mon, 21 Sep 2020 10:26:17 +0000 (-0400) Subject: [Ada] Avoid crash on use of Ada 2020 feature X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=10c633b7d6de86c64048ca50eef7a6f87e5ad95f;p=gcc.git [Ada] Avoid crash on use of Ada 2020 feature gcc/ada/ * sem_attr.adb (Check_Image_Type): Remove "|", so the compiler will not crash. * errout.ads: Improve comment. This has nothing to do with -gnatQ. --- diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index e46433fdf98..b49b9a960a1 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -381,12 +381,11 @@ package Errout is -- continuations are being gathered into a single message. -- Insertion character | (Vertical bar: non-serious error) - -- By default, error messages (other than warning messages) are - -- considered to be fatal error messages which prevent expansion or - -- generation of code in the presence of the -gnatQ switch. If the - -- insertion character | appears, the message is considered to be - -- non-serious, and does not cause Serious_Errors_Detected to be - -- incremented (so expansion is not prevented by such a msg). This + -- By default, error messages (but not warning messages) are considered + -- to be fatal error messages, which prevent expansion and generation + -- of code. If the insertion character | appears, the message is + -- considered to be nonserious, and Serious_Errors_Detected is not + -- incremented, so expansion is not prevented by such a msg. This -- insertion character is ignored in continuation messages. -- Insertion character ~ (Tilde: insert string) diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index e361601eb9c..ee651850c28 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -1460,7 +1460,7 @@ package body Sem_Attr is if Ada_Version < Ada_2020 and then not Is_Scalar_Type (Image_Type) then - Error_Msg_Ada_2020_Feature ("|nonscalar ''Image", Sloc (P)); + Error_Msg_Ada_2020_Feature ("nonscalar ''Image", Sloc (P)); Error_Attr; end if; end Check_Image_Type;