OSDN Git Service

* lib-xref.adb (Generate_Reference): Handle properly a reference to an
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 8 Dec 2004 11:47:21 +0000 (11:47 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 8 Dec 2004 11:47:21 +0000 (11:47 +0000)
commit0fd44fe1747abfedea2e404342e4903bf60537e0
tree2dce85e50d1c540821c9ea5d07628a8f8eaca246
parentf9e78a68929408f3fd51dffe26bba92e3146bb27
* lib-xref.adb (Generate_Reference): Handle properly a reference to an
entry formal, when an accept statement has a pragma Unreferenced for it.

* sem_ch9.adb (Analyze_Accept_Statement): Reset the Is_Referenced flag
and the Has_Pragma_Unreferenced flag for each formal before analyzing
the body, to ensure that warnings are properly emitted for each accept
statement of a given task entry.

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