diff options
| author | Pascal Obry <obry@adacore.com> | 2015-10-26 11:59:42 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-26 12:59:42 +0100 |
| commit | 3fee081aa9efc529c87f812e1b04d691d8c13c88 (patch) | |
| tree | 9b6414d9e4fe15812e6151984b8b7a6a6b800af5 /gcc/ada/make.adb | |
| parent | fbf90e543f27ac7ea77df9044ede3e3541f06a18 (diff) | |
| download | gcc-3fee081aa9efc529c87f812e1b04d691d8c13c88.zip gcc-3fee081aa9efc529c87f812e1b04d691d8c13c88.tar.gz gcc-3fee081aa9efc529c87f812e1b04d691d8c13c88.tar.bz2 | |
s-os_lib.ads, [...] (Kill): New routine.
2015-10-26 Pascal Obry <obry@adacore.com>
* s-os_lib.ads, s-os_lib.adb (Kill): New routine. This routine
makes visible support for killing processes in expect.c.
* expect.c (__gnat_kill): Removed from here.
* adaint.c (__gnat_kill): Added here to be usable in the compiler
(System.OS_Lib).
* make.adb (Sigint_Intercepted): Use the Kill routine from
System.OS_Lib.
From-SVN: r229348
Diffstat (limited to 'gcc/ada/make.adb')
| -rw-r--r-- | gcc/ada/make.adb | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/gcc/ada/make.adb b/gcc/ada/make.adb index 90eb0ed..f4bd63c 100644 --- a/gcc/ada/make.adb +++ b/gcc/ada/make.adb @@ -87,10 +87,6 @@ package body Make is -- Every program depends on this package, that must then be checked, -- especially when -f and -a are used. - procedure Kill (Pid : Process_Id; Sig_Num : Integer; Close : Integer); - pragma Import (C, Kill, "__gnat_kill"); - -- Called by Sigint_Intercepted to kill all spawned compilation processes - type Sigint_Handler is access procedure; pragma Convention (C, Sigint_Handler); @@ -7306,8 +7302,6 @@ package body Make is ------------------------ procedure Sigint_Intercepted is - SIGINT : constant := 2; - begin Set_Standard_Error; Write_Line ("*** Interrupted ***"); @@ -7315,7 +7309,7 @@ package body Make is -- Send SIGINT to all outstanding compilation processes spawned for J in 1 .. Outstanding_Compiles loop - Kill (Running_Compile (J).Pid, SIGINT, 1); + Kill (Running_Compile (J).Pid, Hard_Kill => False); end loop; Finish_Program (Project_Tree, E_No_Compile); |