OSDN Git Service

2005-03-29 Ed Schonberg <schonberg@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:21:32 +0000 (16:21 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:21:32 +0000 (16:21 +0000)
commitd1bf3f0e9645e3f05c82f59e1772e9b599b2431f
treed54b5ee5ac14be2f30051dc60ff8454a94566bcf
parent147cc8375e81008b115ba12207d260c1983f05a3
2005-03-29  Ed Schonberg  <schonberg@adacore.com>

* sem_ch6.adb (Set_Formal_Mode): If the subtype has a non_null
indicator, indicate that the formal can never be null.
(Process_Formals): If a formal has a non_null indicator, insert the
resulting subtype immediately before the enclosing subprogram decl,
and not at the beginning of the corresponding declarative part, to
prevent access before elaboration (Ada2005).

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