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-socket.adb | |
| 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-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 0112ed8b84e..d14fae8f44c 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -1830,6 +1830,7 @@ package body GNAT.Sockets is procedure Set (Item : in out Socket_Set_Type; Socket : Socket_Type) is begin if Item.Last = No_Socket then + -- Uninitialized socket set, make sure it is properly zeroed out Reset_Socket_Set (Item.Set'Access); @@ -1838,6 +1839,7 @@ package body GNAT.Sockets is elsif Item.Last < Socket then Item.Last := Socket; end if; + Insert_Socket_In_Set (Item.Set'Access, C.int (Socket)); end Set; |