mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-23 00:40:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Unnesting: do not emit warnings for access to subprograms

Browse Source 
2018-08-21  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* freeze.adb: Remove warnings for access to subprograms when
	unnesting is active.

From-SVN: r263720
This commit is contained in:
Ed Schonberg 2018-08-21 14:46:54 +00:00 committed by Pierre-Marie de Rodat
parent d2a60e5911
commit c7fafef974
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2018-08-21 Ed Schonberg <schonberg@adacore.com>
* freeze.adb: Remove warnings for access to subprograms when
unnesting is active.
2018-08-21 Ed Schonberg <schonberg@adacore.com>
* exp_aggr.adb (Expand_Array_Aggregate): If the component type

6
gcc/ada/freeze.adb
View File

@ -3611,10 +3611,14 @@ package body Freeze is
Error_Msg_Qual_Level := 1;
-- Check suspicious use of fat C pointer
-- Check suspicious use of fat C pointer, but do not emit
-- a warning on an access to subprogram when unnesting is
-- active.
if Is_Access_Type (F_Type)
and then Esize (F_Type) > Ttypes.System_Address_Size
and then (not Unnest_Subprogram_Mode
or else not Is_Access_Subprogram_Type (F_Type))
then
Error_Msg_N
("?x?type of & does not correspond to C pointer!", Formal);