r275847 - in /trunk/gcc: ada/ChangeLog ada/libg...

[pmderodat@gcc.gnu.org]

Author: pmderodat
Date: Wed Sep 18 08:32:14 2019
New Revision: 275847

URL: https://gcc.gnu.org/viewcvs?rev=275847&root=gcc&view=rev
Log:
[Ada] Raise exception on call to Expect for a dead process

Call to Expect for a dead process results in SIGBUS signal on Linux
systems. Process_Died exception is raised in this case now.

2019-09-18  Vadim Godunko  <godunko@adacore.com>

gcc/ada/

	* libgnat/g-expect.adb (Expect_Internal): Don't include invalid
	file descriptors into the set of file descriptors for Poll.
	Raise Process_Died exception when computed set of file
	descriptors to monitor is empty.

gcc/testsuite/

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

Added:
    trunk/gcc/testsuite/gnat.dg/expect4.adb
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/libgnat/g-expect.adb
    trunk/gcc/testsuite/ChangeLog