diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-12 08:13:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-12 08:13:39 +0000 |
| commit | 542823a9b9a2a6f0a803da32eb1b1d23b993d7b1 (patch) | |
| tree | ec06da665bfd8a1db6165c99fd1245c63b16e2ca /gcc/ada/exp_disp.adb | |
| parent | 40993cdbd6bce99216628aa4e4273ad0e5265f25 (diff) | |
| download | gcc-542823a9b9a2a6f0a803da32eb1b1d23b993d7b1.tar.gz | |
2015-05-12 Robert Dewar <dewar@adacore.com>
* sem_type.adb, sem_ch10.adb, freeze.adb, sem_ch6.adb, exp_disp.adb:
Minor reformatting.
2015-05-12 Bob Duff <duff@adacore.com>
* exp_attr.adb (Size): Remove unnecessary check for types with
unknown discriminants. That was causing the compiler to build
a function call _size(T), where T is a type, not an object.
2015-05-12 Ed Schonberg <schonberg@adacore.com>
* sem_ch4.adb (Extended_Primitive_Ops): Exclude overriding
primitive operations of a type extension declared in the package
body, to prevent duplicates in extended list.
2015-05-12 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Analyze_Component_Declaration): If the component is
an unconstrained synchronized type with discriminants, create a
constrained default subtype for it, so that the enclosing record
can be given the proper size.
* sem_util.adb (Build_Default_Subtype): If the subtype is created
for a record discriminant, do not analyze the declarztion at
once because it is added to the freezing actions of the enclosing
record type.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223039 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_disp.adb')
| -rw-r--r-- | gcc/ada/exp_disp.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_disp.adb b/gcc/ada/exp_disp.adb index 68f504d0ae4..a70cf6a814d 100644 --- a/gcc/ada/exp_disp.adb +++ b/gcc/ada/exp_disp.adb @@ -1612,8 +1612,8 @@ package body Exp_Disp is Set_Scope (Anon, Current_Scope); end if; - Set_Directly_Designated_Type (Anon, - Non_Limited_View (Actual_DDT)); + Set_Directly_Designated_Type + (Anon, Non_Limited_View (Actual_DDT)); Set_Etype (Actual_Dup, Anon); end if; end if; |