diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:14:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-29 16:14:44 +0000 |
| commit | 811e256647a3b0040ad243dd4c625b9981dffebd (patch) | |
| tree | 7b11ccad15955ffe8d3565723295270842377061 /gcc/ada/exp_ch4.adb | |
| parent | 24844d6cad2aabe5065c43e85eaf62b840298b08 (diff) | |
| download | gcc-811e256647a3b0040ad243dd4c625b9981dffebd.tar.gz | |
2005-03-29 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb (Has_Unconstrained_UU_Component): Use the base type in
order to retrieve the component list of the type, before examining
individual components.
* sem_type.adb (Covers): Types are compatible if one is the base type
of the other, even though their base types might differ when private
views are involved.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97170 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 525bf67c2c3..e817156267c 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -4077,7 +4077,7 @@ package body Exp_Ch4 is (Typ : Node_Id) return Boolean is Tdef : constant Node_Id := - Type_Definition (Declaration_Node (Typ)); + Type_Definition (Declaration_Node (Base_Type (Typ))); Clist : Node_Id; Vpart : Node_Id; |