diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-11-27 11:40:45 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-11-27 11:40:45 +0000 |
| commit | 37cb33b05440d81e5d5bd9a937d5bbef50350b62 (patch) | |
| tree | 900429240d553526e03379183533d6964ac0cf18 /gcc/ada/g-socket.ads | |
| parent | 20820693e5711c4feea827cf9863e509d252c062 (diff) | |
| download | gcc-37cb33b05440d81e5d5bd9a937d5bbef50350b62.tar.gz | |
2003-11-26 Thomas Quinot <quinot@act-europe.fr>
* g-socket.ads, g-socket.adb:
Clarify documentation of function Stream. Introduce a Free procedure
to release the returned Stream once it becomes unused.
* 5asystem.ads: For Alpha Tru64, enable ZCX by default.
2003-11-26 Arnaud Charlet <charlet@act-europe.fr>
(Cond_Timed_Wait): Introduce new constant Time_Out_Max,
since NT 4 cannot handle timeout values that are too large,
e.g. DWORD'Last - 1.
2003-11-26 Ed Schonberg <schonberg@gnat.com>
* exp_ch4.adb:
(Expand_N_Slice): Recognize all cases of slices that appear as actuals
in procedure calls and whose expansion must be deferred.
* exp_ch6.adb (Add_Call_By_Copy_Node): Remove previous fix. Proper fix
is in exp_ch4.
* sem_ch3.adb:
(Build_Derived_Array_Type): Create operator for unconstrained type
if ancestor is unconstrained.
2003-11-26 Vincent Celier <celier@gnat.com>
* make.adb (Project_Object_Directory): New global variable
(Change_To_Object_Directory): New procedure
(Collect_Arguments_And_Compile): Call Change_To_Object_Directory instead
of Change_Dir directly. Do not change working directory to object
directory of main project after each compilation.
(Gnatmake): Use Change_To_Object_Directory instead of Change_Dir
directly.
Change to object directory of main project before binding step.
(Initialize): Initialize Project_Object_Directory to No_Project
* mlib-prj.adb:
(Build_Library): Take into account Builder'Default_Switches ("Ada") when
binding a Stand-Alone Library.
* output.adb: Update Copyright notice
(Write_Char): Output buffer when full
2003-11-26 Robert Dewar <dewar@gnat.com>
* sem_ch13.adb: (Check_Size): Reset size if size is too small
* sem_ch13.ads:
(Check_Size): Fix documentation to include bit-packed array case
* sem_res.adb: Implement restriction No_Direct_Boolean_Operators
* s-rident.ads: Put No_Direct_Boolean_Operators in proper order
* s-rident.ads: Add new restriction No_Direct_Boolean_Operators
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@73991 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-socket.ads')
| -rw-r--r-- | gcc/ada/g-socket.ads | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 57a83743f1e..f78241c4178 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -885,15 +885,15 @@ package GNAT.Sockets is function Stream (Socket : Socket_Type) return Stream_Access; - -- Associate a stream with a stream-based socket that is already - -- connected. + -- Create a stream associated with a stream-based socket that is + -- already connected. function Stream (Socket : Socket_Type; Send_To : Sock_Addr_Type) return Stream_Access; - -- Associate a stream with a datagram-based socket that is already - -- bound. Send_To is the socket address to which messages are + -- Create a stream associated with a datagram-based socket that is + -- already bound. Send_To is the socket address to which messages are -- being sent. function Get_Address @@ -902,6 +902,11 @@ package GNAT.Sockets is -- Return the socket address from which the last message was -- received. + procedure Free (Stream : in out Stream_Access); + -- Destroy a stream created by one of the Stream functions above, and + -- release associated resources. The user is responsible for calling + -- this subprogram when the stream is not needed anymore. + type Socket_Set_Type is limited private; -- This type allows to manipulate sets of sockets. It allows to -- wait for events on multiple endpoints at one time. This is an |