From 5904016a5c1d7df58877678583a3f65ebecc052d Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 18 Nov 2015 11:03:44 +0100 Subject: [multiple changes] 2015-11-18 Hristian Kirtchev * sem_util.adb (Has_Full_Default_Initialization): Perform the test for the presence of pragma Default_Initial_Condition prior to the specialized type checks. Add a missing case where the lack of a pragma argument yields full default initialization. 2015-11-18 Hristian Kirtchev * sem_res.adb (Resolve_Entity_Name): Do not check for elaboration issues when a variable appears as the name of an object renaming declaration as this constitutes an aliasing, not a read. 2015-11-18 Ed Schonberg * checks.adb (Overlap_Check): An actual that is an aggregate cannot overlap with another actual, and no check should be generated for it. * targparm.ads: Fix typos. 2015-11-18 Pascal Obry * adaint.c: Routine __gnat_killprocesstree only implemented on Linux and Windows. 2015-11-18 Pascal Obry * g-ctrl_c.adb: Minor style fixes. From-SVN: r230523 --- gcc/ada/adaint.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/ada/adaint.c') diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 4f162e9..5a0bdd9 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -3259,7 +3259,11 @@ void __gnat_killprocesstree (int pid, int sig_num) /* kill process */ __gnat_kill (pid, sig_num, 1); -#else + +#elif defined (__vxworks) + /* not implemented */ + +#elif defined (__linux__) DIR *dir; struct dirent *d; @@ -3308,6 +3312,8 @@ void __gnat_killprocesstree (int pid, int sig_num) /* kill process */ __gnat_kill (pid, sig_num, 1); +#else + __gnat_kill (pid, sig_num, 1); #endif /* Note on Solaris it is possible to read /proc//status. The 5th and 6th words are the pid and the 7th and 8th the ppid. -- cgit v1.1