diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 12:56:49 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-13 12:56:49 +0000 |
| commit | cf563f22eab8932e310581e5694d36a1b9d41cab (patch) | |
| tree | 792d33be9e463b595a73155856db2f479cde4064 /gcc/ada/exp_dist.adb | |
| parent | df3b058784e73d35c70d55a38ee2888e0b22a73d (diff) | |
| download | gcc-cf563f22eab8932e310581e5694d36a1b9d41cab.tar.gz | |
2009-07-13 Gary Dismukes <dismukes@adacore.com>
* sem_ch10.adb, sem_ch12.adb, gnat1drv.adb, exp_ch4.adb: Fix casing of
several references to CodePeer.
2009-07-13 Bob Duff <duff@adacore.com>
* exp_dist.adb (Build_From_Any_Function,Build_To_Any_Function,
Build_TypeCode_Function_All): Do not recurse if the type is the base
type.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149580 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dist.adb')
| -rw-r--r-- | gcc/ada/exp_dist.adb | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index b1e776637d3..a0ba2f0483d 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -8672,7 +8672,9 @@ package body Exp_Dist is Use_Opaque_Representation : Boolean; begin - if Is_Itype (Typ) then + -- The following test needs a comment ??? + + if Is_Itype (Typ) and then Typ /= Base_Type (Typ) then Build_From_Any_Function (Loc => Loc, Typ => Etype (Typ), @@ -9497,7 +9499,9 @@ package body Exp_Dist is -- opaque sequence of bytes. begin - if Is_Itype (Typ) then + -- The following test needs a comment ??? + + if Is_Itype (Typ) and then Typ /= Base_Type (Typ) then Build_To_Any_Function (Loc => Loc, Typ => Etype (Typ), @@ -10624,8 +10628,12 @@ package body Exp_Dist is Type_Name_Str : String_Id; Type_Repo_Id_Str : String_Id; + -- Start of processing for Build_TypeCode_Function + begin - if Is_Itype (Typ) then + -- The following test needs a comment ??? + + if Is_Itype (Typ) and then Typ /= Base_Type (Typ) then Build_TypeCode_Function (Loc => Loc, Typ => Etype (Typ), |