r149459 - in /trunk/gcc/ada: exp_ch2.adb sem_pr...

[charlet@gcc.gnu.org]

Author: charlet
Date: Fri Jul 10 09:09:59 2009
New Revision: 149459

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=149459
Log:
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.


Modified:
    trunk/gcc/ada/exp_ch2.adb
    trunk/gcc/ada/sem_prag.adb