[Ada] Use non-internal representation for access subprograms if UC to Address
authorRichard Kenner <kenner@adacore.com>
Wed, 8 Dec 2021 22:11:26 +0000 (17:11 -0500)
committerPierre-Marie de Rodat <derodat@adacore.com>
Fri, 7 Jan 2022 16:24:06 +0000 (16:24 +0000)
commita3c3de386bfce7910745386f727fe6b5f83d2906
tree3d595eae7c0bf701942c2749e9a6da99860d62c1
parent5e5030df8f223fb800d5ad7735c419a16b37dfaf
[Ada] Use non-internal representation for access subprograms if UC to Address

gcc/ada/

* libgnat/g-spipat.ads (Boolean_Func, Natural_Func,
VString_Func): Mark as Favor_Top_Level.
* sem_ch13.adb (Validate_Unchecked_Conversion): Avoid using
internal representation if Unchecked_Conversion between
an access to subprogram and System.Address within the same unit.
gcc/ada/libgnat/g-spipat.ads
gcc/ada/sem_ch13.adb