OSDN Git Service

2009-07-10 Ed Schonberg <schonberg@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Jul 2009 09:09:59 +0000 (09:09 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 10 Jul 2009 09:09:59 +0000 (09:09 +0000)
commit54b358df4c76cbf2f0553360aca63292c421af98
treeb0c1ad066b60cf2b06a334ed1befc1564b740d90
parentaf5f5e793d0f7301e5e864931a9c91fb9736387f
2009-07-10  Ed Schonberg  <schonberg@adacore.com>

* sem_prag.adb (Analyze pragma, case Task_Name): Analyze argument of
pragma, to capture global references if the context is generic.

* exp_ch2.adb (Expand_Discriminant): If a task type discriminant
appears within the initialization procedure for the corresponding
record, replace it with the proper discriminal.

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