[Ada] Up-level addressing problems with private tasks and selective accept procs
authorGary Dismukes <dismukes@adacore.com>
Fri, 13 Dec 2019 09:03:40 +0000 (09:03 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Fri, 13 Dec 2019 09:03:40 +0000 (09:03 +0000)
commit563be3ee1db9e0fb1f37e13b02cff6651e934bee
treec6d13a2eb97f8d8e86c5b063d8978f691af6cb18
parent9ea2a24d506d0d45231ac9c783336a8309b6dd20
[Ada] Up-level addressing problems with private tasks and selective accept procs

2019-12-13  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

* sem_util.adb (Scope_Within): For the case of checking for a
task type procedure, check the Implementation_Base_Type of Curr.
(Scope_Within_Or_Same): For the case of checking for a task type
procedure, check the Implementation_Base_Type of Curr.

From-SVN: r279344
gcc/ada/ChangeLog
gcc/ada/sem_util.adb