[Ada] Crash on protected type entry family
authorJavier Miranda <miranda@adacore.com>
Mon, 11 Jun 2018 09:18:33 +0000 (09:18 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Mon, 11 Jun 2018 09:18:33 +0000 (09:18 +0000)
commit09adaa8d122955d9661b01d2fe005975e1331f46
treeb13a157d215eb69677fbf63564fe950eb9337751
parent3e6845df1eb61c3c8d779e5590811ed1cbd04270
[Ada] Crash on protected type entry family

The compiler may blow up compiling a the body of a protected type that has a
family entry whose entry index specification contains a call to a function.

2018-06-11  Javier Miranda  <miranda@adacore.com>

gcc/ada/

* exp_ch9.adb (Expand_N_Protected_Body): Add missing handling of
N_Call_Marker nodes.

gcc/testsuite/

* gnat.dg/prot4.adb: New testcase.

From-SVN: r261417
gcc/ada/ChangeLog
gcc/ada/exp_ch9.adb
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/prot4.adb [new file with mode: 0644]