From 346d5e7c9d81f4f97ac5e75552e8bd0b97d23398 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 13 Dec 2007 10:26:21 +0000 Subject: 2007-12-06 Pascal Obry * expect.c (__gnat_kill) [WIN32]: Implement the SIGINT signal on Windows. This signal is used by gnatmake to kill child processes for example. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130836 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/expect.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada') diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c index a9092328281..aa18a339481 100644 --- a/gcc/ada/expect.c +++ b/gcc/ada/expect.c @@ -93,6 +93,12 @@ __gnat_kill (int pid, int sig, int close) CloseHandle ((HANDLE)pid); } } + else if (sig == 2) + { + GenerateConsoleCtrlEvent (CTRL_C_EVENT, (HANDLE)pid); + if (close) + CloseHandle ((HANDLE)pid); + } } int -- cgit v1.2.1