sem_aggr.adb (Resolve_Record_Aggregate): In semantics-only mode treat an association...
authorEd Schonberg <schonberg@adacore.com>
Fri, 6 Apr 2007 09:21:37 +0000 (11:21 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 6 Apr 2007 09:21:37 +0000 (11:21 +0200)
commitaad93b553795dbdb0ebc03051bd6c638bfe6a785
treefdf888bff81dc3df2c7b5e364e71912e05220bf1
parentc5c7f763304968fceca1b40a7ffb9851c0df7f7c
sem_aggr.adb (Resolve_Record_Aggregate): In semantics-only mode treat an association with a box as providing a value...

2007-04-06  Ed Schonberg  <schonberg@adacore.com>
    Bob Duff  <duff@adacore.com>

* sem_aggr.adb (Resolve_Record_Aggregate): In semantics-only mode treat
an association with a box as providing a value even though the
initialization procedure for the type is not available.
(Resolve_Record_Aggregate): Check that a choice of an association with a
box corresponds to a component of the type.
(Resolve_Record_Aggregate): Split Is_Abstract flag into
Is_Abstract_Subprogram and Is_Abstract_Type.

* exp_tss.adb (Base_Init_Proc): Use Is_Type instead of Type_Kind for
assert.

* inline.adb (Add_Inlined_Body): Split Is_Abstract flag into
Is_Abstract_Subprogram and Is_Abstract_Type. Make sure these are
called only when appropriate.

From-SVN: r123569
gcc/ada/exp_tss.adb
gcc/ada/inline.adb
gcc/ada/sem_aggr.adb