OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Avoid crash on use of Ada 2020 feature

Browse Source 
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.
This commit is contained in:
Bob Duff 2020-09-21 06:26:17 -04:00 committed by Pierre-Marie de Rodat
parent 4b0fe398db
commit 10c633b7d6
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/errout.ads
View File

@ -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)

2
gcc/ada/sem_attr.adb
View File

@ -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;