diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-04 13:27:43 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-04 13:27:43 +0000 |
| commit | 02fe24464b3abecbd620d02106b9792e634a00e2 (patch) | |
| tree | 57f6cd3f5dd0a284b7b210cd135226b39aaa9d60 /gcc | |
| parent | 9eb397d874bd4263ab9a5af38a25764fe8c35cc6 (diff) | |
| download | ppe42-gcc-02fe24464b3abecbd620d02106b9792e634a00e2.tar.gz ppe42-gcc-02fe24464b3abecbd620d02106b9792e634a00e2.zip | |
2005-07-04 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb (Build_TypeCode_Call): Remove incorrect processing for
Itypes. Itypes are really unexpected there.
(Build_TypeCode_Function): Generalise special processing for Itypes to
handle the case of numeric implicit base types as well as enumerated
ones.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101578 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index f1dfd342c92..b3801f61d88 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -9638,11 +9638,6 @@ package body Exp_Dist is U_Type := Base_Type (U_Type); end if; - if Is_Itype (U_Type) then - return Build_TypeCode_Call - (Loc, Associated_Node_For_Itype (U_Type), Decls); - end if; - if U_Type = Standard_Boolean then Lib_RE := RE_TC_B; @@ -10105,18 +10100,12 @@ package body Exp_Dist is and then not Is_Tagged_Type (Typ) then declare - D_Node : constant Node_Id := Declaration_Node (Typ); Parent_Type : Entity_Id := Etype (Typ); begin - if Is_Enumeration_Type (Typ) - and then Nkind (D_Node) = N_Subtype_Declaration - and then Nkind (Original_Node (D_Node)) - /= N_Subtype_Declaration - then + if Is_Itype (Parent_Type) then - -- Parent_Type is the implicit intermediate base type - -- created by Build_Derived_Enumeration_Type. + -- Skip implicit base type Parent_Type := Etype (Parent_Type); end if; |
