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

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