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

[Ada] Fix error message for import aspect

Browse Source 
gcc/ada/

	* sem_prag.adb (Process_Convention,
	Process_Import_Or_Interface): Fix error message.
This commit is contained in:
Ghjuvan Lacambre 2020-08-14 11:34:06 +02:00 committed by Pierre-Marie de Rodat
parent 8be08b9b67
commit 1019e23137
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gcc/ada/sem_prag.adb
View File

@ -8270,8 +8270,13 @@ package body Sem_Prag is
-- Accept Intrinsic Export on types if Relaxed_RM_Semantics
if not (Is_Type (E) and then Relaxed_RM_Semantics) then
Error_Pragma_Arg
("second argument of pragma% must be a subprogram", Arg2);
if From_Aspect_Specification (N) then
Error_Pragma_Arg
("entity for aspect% must be a subprogram", Arg2);
else
Error_Pragma_Arg
("second argument of pragma% must be a subprogram", Arg2);
end if;
end if;
-- Special checks for C_Variadic_n
@ -9543,10 +9548,17 @@ package body Sem_Prag is
Process_Import_Predefined_Type;
else
Error_Pragma_Arg
("second argument of pragma% must be object, subprogram "
& "or incomplete type",
Arg2);
if From_Aspect_Specification (N) then
Error_Pragma_Arg
("entity for aspect% must be object, subprogram "
& "or incomplete type",
Arg2);
else
Error_Pragma_Arg
("second argument of pragma% must be object, subprogram "
& "or incomplete type",
Arg2);
end if;
end if;
-- If this pragma applies to a compilation unit, then the unit, which