diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-05-06 11:29:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-05-06 11:29:35 +0200 |
| commit | 69a0c1741e5727e98cb037dffbc98d82e60dc474 (patch) | |
| tree | 1030629a237c775cfc1245c850a629994e35ccdd /gcc/ada/g-socthi-vms.adb | |
| parent | 4e0d20ca84575c7e202a444e24291b888b86920e (diff) | |
| download | gcc-69a0c1741e5727e98cb037dffbc98d82e60dc474.zip gcc-69a0c1741e5727e98cb037dffbc98d82e60dc474.tar.gz gcc-69a0c1741e5727e98cb037dffbc98d82e60dc474.tar.bz2 | |
[multiple changes]
2009-05-06 Gary Dismukes <dismukes@adacore.com>
* gnat_ugn.texi: Fix typo.
2009-05-06 Thomas Quinot <quinot@adacore.com>
* g-debuti.adb: Minor reformatting
* exp_attr.adb: Minor reformatting
2009-05-06 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb: Minor reformatting.
* g-socthi-vms.adb: Minor reformatting
2009-05-06 Bob Duff <duff@adacore.com>
* g-table.ads, g-table.adb, g-dyntab.ads, g-dyntab.adb:
(Append_All): Add Append_All to g-table and g-dyntab, similar to table.
From-SVN: r147162
Diffstat (limited to 'gcc/ada/g-socthi-vms.adb')
| -rw-r--r-- | gcc/ada/g-socthi-vms.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/g-socthi-vms.adb b/gcc/ada/g-socthi-vms.adb index 20855c0..6384598f 100644 --- a/gcc/ada/g-socthi-vms.adb +++ b/gcc/ada/g-socthi-vms.adb @@ -51,7 +51,7 @@ package body GNAT.Sockets.Thin is -- when a thread wants to perform a blocking IO operation. But the user can -- also set a socket in non-blocking mode by purpose. In order to make a -- difference between these two situations, we track the origin of - -- non-blocking mode in Non_Blocking_Sockets. If S is in + -- non-blocking mode in Non_Blocking_Sockets. Note that if S is in -- Non_Blocking_Sockets, it has been set in non-blocking mode by the user. Quantum : constant Duration := 0.2; @@ -215,7 +215,6 @@ package body GNAT.Sockets.Thin is if Res = Failure and then Errno = SOSC.EISCONN then return Thin_Common.Success; - else return Res; end if; @@ -310,6 +309,7 @@ package body GNAT.Sockets.Thin is pragma Import (Ada, GNAT_Msg); VMS_Msg : aliased VMS_Msghdr := VMS_Msghdr (GNAT_Msg); + begin loop Res := Syscall_Recvmsg (S, VMS_Msg'Address, Flags); @@ -319,6 +319,7 @@ package body GNAT.Sockets.Thin is or else Errno /= SOSC.EWOULDBLOCK; delay Quantum; end loop; + GNAT_Msg := Msghdr (VMS_Msg); return ssize_t (Res); @@ -350,6 +351,7 @@ package body GNAT.Sockets.Thin is or else Errno /= SOSC.EWOULDBLOCK; delay Quantum; end loop; + GNAT_Msg := Msghdr (VMS_Msg); return ssize_t (Res); |