expect.c (__gnat_kill): Implement the SIGINT signal on Windows.

2007-12-06  Pascal Obry  <obry@adacore.com>

	* expect.c (__gnat_kill) [WIN32]: Implement the SIGINT signal on
	Windows. This signal is used by gnatmake to kill child processes for
	example.

From-SVN: r130836

diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c
index a9092328281ee55832c5109c098b6219aa27fb25..aa18a3394818c7db8602c48f87dfdd11c70ec4d0 100644 (file)
--- 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