diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-04 13:59:18 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-04 13:59:18 +0000 |
| commit | e30c7d845f307eb85ad70795b7dc68d0df73ec41 (patch) | |
| tree | c898b07342d6c0021f6b3c1addd069381f36bee7 /gcc/ada/exp_ch5.adb | |
| parent | 3bf53ccd3e8eeeb2a845216353cae31f1c6fbc2f (diff) | |
| download | gcc-e30c7d845f307eb85ad70795b7dc68d0df73ec41.tar.gz | |
2010-10-04 Robert Dewar <dewar@adacore.com>
* exp_cg.adb: Minor reformatting.
2010-10-04 Javier Miranda <miranda@adacore.com>
* exp_cg.adb (Expand_N_Assignment_Statement): Restore tag check when
the target object is an interface.
* sem_disp.adb (Propagate_Tag): If the controlling argument is an
interface type then we generate an implicit conversion to force
displacement of the pointer to the object to reference the secondary
dispatch table associated with the interface.
2010-10-04 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Analyze_Enumeration_Representation_Clause): Set
Enumeration_Rep_Expr to point to the literal, not the identifier.
(Analyze_Enumeration_Representation_Clause): Improve error message for
size too small for enum rep value
(Analyze_Enumeration_Representation_Clause): Fix size test to use proper
size (RM_Size, not Esize).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164939 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch5.adb')
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb index 18bda5d5b3f..fb1888da457 100644 --- a/gcc/ada/exp_ch5.adb +++ b/gcc/ada/exp_ch5.adb @@ -1956,12 +1956,6 @@ package body Exp_Ch5 is if Is_Class_Wide_Type (Typ) and then Is_Tagged_Type (Typ) and then Is_Tagged_Type (Underlying_Type (Etype (Rhs))) - - -- Do not generate a tag check when the target object is - -- an interface since the expression of the right hand - -- side must only cover the interface. - - and then not Is_Interface (Typ) then Append_To (L, Make_Raise_Constraint_Error (Loc, |