diff options
| author | Dmitriy Anisimkov <anisimko@adacore.com> | 2021-12-21 13:49:40 +0600 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-09 09:27:28 +0000 |
| commit | 6b4c99cc92242903c81a7168d467269197955269 (patch) | |
| tree | fee457a2a69d662a2b8343cd957b90b7a1a894b3 /gcc/ada/adaint.c | |
| parent | 9a6f7575c153e7036152002bb7b58166762592f1 (diff) | |
| download | gcc-6b4c99cc92242903c81a7168d467269197955269.zip gcc-6b4c99cc92242903c81a7168d467269197955269.tar.gz gcc-6b4c99cc92242903c81a7168d467269197955269.tar.bz2 | |
[Ada] Remove unused parameter from __gnat_kill
Remove close parameter from __gnat_kill because it is not used in
implementation.
gcc/ada/
* adaint.c (__gnat_kill): Remove close parameter.
(__gnat_killprocesstree): Do not provide close parameter on call
to __gnat_kill.
* libgnat/g-expect.adb (Kill): Remove Close parameter.
(Close): Do not provide Close parameter on call to Kill.
(Send_Signal): Do not provide Close parameter on call to Kill.
* libgnat/s-os_lib.adb (Kill): Do not provide close parameter on
call to __gnat_kill.
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 591d033..2ae4ded 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -3556,7 +3556,7 @@ __gnat_get_executable_load_address (void) } void -__gnat_kill (int pid, int sig, int close ATTRIBUTE_UNUSED) +__gnat_kill (int pid, int sig) { #if defined(_WIN32) HANDLE h; @@ -3595,7 +3595,7 @@ void __gnat_killprocesstree (int pid, int sig_num) if (hSnap == INVALID_HANDLE_VALUE) { - __gnat_kill (pid, sig_num, 1); + __gnat_kill (pid, sig_num); return; } @@ -3618,7 +3618,7 @@ void __gnat_killprocesstree (int pid, int sig_num) /* kill process */ - __gnat_kill (pid, sig_num, 1); + __gnat_kill (pid, sig_num); #elif defined (__vxworks) /* not implemented */ @@ -3635,7 +3635,7 @@ void __gnat_killprocesstree (int pid, int sig_num) if (!dir) { - __gnat_kill (pid, sig_num, 1); + __gnat_kill (pid, sig_num); return; } @@ -3673,9 +3673,9 @@ void __gnat_killprocesstree (int pid, int sig_num) /* kill process */ - __gnat_kill (pid, sig_num, 1); + __gnat_kill (pid, sig_num); #else - __gnat_kill (pid, sig_num, 1); + __gnat_kill (pid, sig_num); #endif /* Note on Solaris it is possible to read /proc/<PID>/status. The 5th and 6th words are the pid and the 7th and 8th the ppid. |