diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-07 17:10:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-07 17:10:30 +0200 |
| commit | df46b832b04ae500284492241a71854b434aec37 (patch) | |
| tree | 063c7a454bfd413f8e5ececf340c4eb35777f8dd /gcc/ada/g-sothco.ads | |
| parent | 3dd9959c810d51dac8ae52ce28212bcac2afc437 (diff) | |
| download | gcc-df46b832b04ae500284492241a71854b434aec37.tar.gz | |
[multiple changes]
2009-04-07 Robert Dewar <dewar@adacore.com>
* g-socket.adb: Minor reformatting.
* g-socthi-mingw.adb: Minor reformatting
* g-sothco.ads: Minor reformatting
* exp_ch4.adb:
(Expand_Concatenate_String): Complete rewrite to generate efficient code
inline instead of relying on external library routines.
* s-strops.ads, s-sopco5.ads, s-sopco5.adb, s-sopco4.ads, s-sopco4.adb,
s-sopco3.ads, s-sopco3.adb, s-strops.adb: Note that this unit is now
obsolescent
2009-04-07 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb:
(Eval_Attribute): for attributes of array objects that are not strings,
attributes are not static if nominal subtype of object is unconstrained.
2009-04-07 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (New_Overloaded_Entity): If two implicit homonym
operations for a type T in an instance do not override each other,
when T is derived from a formal private type, the corresponding
operations inherited by a type derived from T outside
of the instance do not override each other either.
From-SVN: r145679
Diffstat (limited to 'gcc/ada/g-sothco.ads')
| -rw-r--r-- | gcc/ada/g-sothco.ads | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/ada/g-sothco.ads b/gcc/ada/g-sothco.ads index fc8304757c6..cb0bc09b86f 100644 --- a/gcc/ada/g-sothco.ads +++ b/gcc/ada/g-sothco.ads @@ -122,7 +122,7 @@ package GNAT.Sockets.Thin_Common is Sa_Family : Sockaddr_Length_And_Family; -- Address family (and address length on some platforms) - Sa_Data : C.char_array (1 .. 14) := (others => C.nul); + Sa_Data : C.char_array (1 .. 14) := (others => C.nul); -- Family-specific data -- Note that some platforms require that all unused (reserved) bytes -- in addresses be initialized to 0 (e.g. VxWorks). @@ -169,14 +169,15 @@ package GNAT.Sockets.Thin_Common is Sin_Family : Sockaddr_Length_And_Family; -- Address family (and address length on some platforms) - Sin_Port : C.unsigned_short; + Sin_Port : C.unsigned_short; -- Port in network byte order - Sin_Addr : In_Addr; + Sin_Addr : In_Addr; -- IPv4 address - Sin_Zero : C.char_array (1 .. 8) := (others => C.nul); + Sin_Zero : C.char_array (1 .. 8) := (others => C.nul); -- Padding + -- -- Note that some platforms require that all unused (reserved) bytes -- in addresses be initialized to 0 (e.g. VxWorks). end record; @@ -272,8 +273,8 @@ package GNAT.Sockets.Thin_Common is -- value if it is, zero if it is not. procedure Last_Socket_In_Set - (Set : access Fd_Set; - Last : Int_Access); + (Set : access Fd_Set; + Last : Int_Access); -- Find the largest socket in the socket set. This is needed for select(). -- When Last_Socket_In_Set is called, parameter Last is a maximum value of -- the largest socket. This hint is used to avoid scanning very large |