diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-08 11:15:24 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-08 11:15:24 +0200 |
| commit | b2c3160ca56fe11425e80fffff754f206faf9e19 (patch) | |
| tree | 7160f5b78d707ee69887ad727b9fad23c36f132b /gcc/ada/exp_ch4.adb | |
| parent | cc3a298607f8b33c06cbf5163c8eaf07f138d6c0 (diff) | |
| download | gcc-b2c3160ca56fe11425e80fffff754f206faf9e19.zip gcc-b2c3160ca56fe11425e80fffff754f206faf9e19.tar.gz gcc-b2c3160ca56fe11425e80fffff754f206faf9e19.tar.bz2 | |
[multiple changes]
2017-09-08 Bob Duff <duff@adacore.com>
* sem_ch3.adb (Build_Derived_Private_Type): Inherit
representation items from interfaces that the derived type
implements, not just from the parent type.
* sem_util.ads, sem_util.adb (Abstract_Interface_List): Change
this to return an empty list when there are no interfaces.
* einfo.ads, sem_ch13.adb: Minor comment fixes.
* sem_attr.adb: Minor comment fix.
2017-09-08 Doug Rupp <rupp@adacore.com>
* sigtramp-vxworks.c [i386]: Adjust the kernel context for
x86-vx7.
2017-09-08 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Expand_N_Allocator): Generate a
call to Allocate_Any_Controlled when the allocation does not
require any initialization.
From-SVN: r251870
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index ce87837..e2e58c9 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -4632,7 +4632,9 @@ package body Exp_Ch4 is -- No initialization required else - null; + Build_Allocate_Deallocate_Proc + (N => N, + Is_Allocate => True); end if; -- Case of initialization procedure present, must be called |