diff options
Diffstat (limited to 'gcc/ada/exp_ch7.ads')
-rw-r--r-- | gcc/ada/exp_ch7.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch7.ads b/gcc/ada/exp_ch7.ads index 08c3734fdd7..7a7f8746701 100644 --- a/gcc/ada/exp_ch7.ads +++ b/gcc/ada/exp_ch7.ads @@ -98,6 +98,11 @@ package Exp_Ch7 is -- applies, in which case we know that class-wide objects do not contain -- controlled parts. + function Get_Global_Pool_For_Access_Type (T : Entity_Id) return Entity_Id; + -- Return the pool id for access type T. This is generally the node + -- corresponding to System.Global_Pool.Global_Pool_Object except on + -- VMS if the access size is 32. + function Has_New_Controlled_Component (E : Entity_Id) return Boolean; -- E is a type entity. Give the same result as Has_Controlled_Component -- except for tagged extensions where the result is True only if the |