diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-24 13:04:40 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-24 13:04:40 +0000 |
| commit | f0813d7103b927965df5d457bda1352d81ab229f (patch) | |
| tree | d41774edc5e71ca4dd9eb0d1a97fbbbe701d2d1e /gcc/ada/g-socket.adb | |
| parent | 346450208f068bea4383c64595666f56f5f3fb19 (diff) | |
| download | gcc-f0813d7103b927965df5d457bda1352d81ab229f.tar.gz | |
2013-04-24 Robert Dewar <dewar@adacore.com>
* exp_ch13.adb, sem_prag.adb: Update comments.
* sem_ch3.adb, exp_ch9.adb, g-socket.adb, sem_ch13.adb: Minor
reformatting.
2013-04-24 Doug Rupp <rupp@adacore.com>
* vms_data.ads (/{NO}INHIBIT-EXEC): Document new default behavior.
2013-04-24 Yannick Moy <moy@adacore.com>
* sinfo.ads: Minor correction of typo.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@198223 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 04a4b86c692..87493d2f60b 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -2221,10 +2221,8 @@ package body GNAT.Sockets is Status : out Boolean) is function C_Set_Close_On_Exec - (Socket : Socket_Type; Close_On_Exec : C.int) - return C.int; + (Socket : Socket_Type; Close_On_Exec : C.int) return C.int; pragma Import (C, C_Set_Close_On_Exec, "__gnat_set_close_on_exec"); - begin Status := C_Set_Close_On_Exec (Socket, Boolean'Pos (Close_On_Exec)) = 0; end Set_Close_On_Exec; |