OSDN Git Service

2005-11-14 Thomas Quinot <quinot@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 15 Nov 2005 13:58:22 +0000 (13:58 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 15 Nov 2005 13:58:22 +0000 (13:58 +0000)
commit3cd4d7efbcbc94794a1ae218440503bb9358f45d
treecdab281021e660fa90e4db3583dabce0806d6892
parente2d71f89e9d7fe267702afe7d3069e983c42d2f3
2005-11-14  Thomas Quinot  <quinot@adacore.com>
    Robert Dewar  <dewar@adacore.com>
    Ed Schonberg  <schonberg@adacore.com>

* exp_intr.adb (Expand_Unc_Deallocation): If GIGI needs an actual
subtype to compute the size of the designated object at run-time,
create such a subtype and store it in the Actual_Designated_Subtype
attribute of the N_Free_Statement.
Generate itype for classwide designated object in both cases of
user-specified storage pool: specific and class-wide, not only in the
specific case.
Raise CE when trying to set a not null access type object to null.
(Expand_Dispatching_Constructor_Call): Retrieve subprogram actual with
an explicit loop, because freeze nodes make its position variable.

* sem_intr.adb (Check_Intrinsic_Call): Given warning for freeing not
null object.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@106976 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/exp_intr.adb
gcc/ada/sem_intr.adb