diff options
| author | aaronwl <aaronwl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-17 05:44:15 +0000 |
|---|---|---|
| committer | aaronwl <aaronwl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-17 05:44:15 +0000 |
| commit | 07f3488782c96746ec876636f81996ace6c1691f (patch) | |
| tree | 50a0b1a629618123a3ebf29230f5bc6399c779ce /gcc/ada/adaint.c | |
| parent | 710f8f32df09c1f0bdda41ee880a68d1aba13f83 (diff) | |
| download | gcc-07f3488782c96746ec876636f81996ace6c1691f.tar.gz | |
2008-08-17 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
* adaint.c (_gnat_set_close_on_exec) [_WIN32]: Implement.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139167 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index b7fdd08d252..48abb3e5049 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -3248,12 +3248,17 @@ __gnat_set_close_on_exec (int fd ATTRIBUTE_UNUSED, else flags &= ~FD_CLOEXEC; return fcntl (fd, F_SETFD, flags | FD_CLOEXEC); +#elif defined(_WIN32) + HANDLE h = (HANDLE) _get_osfhandle (fd); + if (h == (HANDLE) -1) + return -1; + if (close_on_exec_p) + return ! SetHandleInformation (h, HANDLE_FLAG_INHERIT, 0); + return ! SetHandleInformation (h, HANDLE_FLAG_INHERIT, + HANDLE_FLAG_INHERIT); #else + /* TODO: Unimplemented. */ return -1; - /* For the Windows case, we should use SetHandleInformation to remove - the HANDLE_INHERIT property from fd. This is not implemented yet, - but for our purposes (support of GNAT.Expect) this does not matter, - as by default handles are *not* inherited. */ #endif } |