sem_ch8.adb (Find_Type): In case of tagged types that are concurrent types use the...
authorJavier Miranda <miranda@adacore.com>
Fri, 9 Dec 2005 17:21:38 +0000 (18:21 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 9 Dec 2005 17:21:38 +0000 (18:21 +0100)
commit39edfb4572286b82d9bad3785a7ecaf8d49470a2
tree07c416f2b236d9b94721f5cc00cdceafd0083068
parentd39d6bb8a0606380752dec6301b06a2af1ed56b2
sem_ch8.adb (Find_Type): In case of tagged types that are concurrent types use the corresponding record type.

2005-12-05  Javier Miranda  <miranda@adacore.com>

* sem_ch8.adb (Find_Type): In case of tagged types that are concurrent
types use the corresponding record type. This was not needed before
the implementation of Ada 2005 synchronized types because
concurrent types were never tagged types in Ada 95.

From-SVN: r108304
gcc/ada/sem_ch8.adb