2005-03-08 Javier Miranda <miranda@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-socthi-vms.adb

diff --git a/gcc/ada/g-socthi-vms.adb b/gcc/ada/g-socthi-vms.adb
index 4d4a911..94968b5 100644 (file)
--- a/gcc/ada/g-socthi-vms.adb
+++ b/gcc/ada/g-socthi-vms.adb
@@ -502,10 +502,11 @@ package body GNAT.Sockets.Thin is
 
    begin
       for J in Iovec'Range loop
-         Res := C_Read
+         Res := C_Recv
            (Fd,
             Iovec (J).Base.all'Address,
-            Interfaces.C.int (Iovec (J).Length));
+            Interfaces.C.int (Iovec (J).Length),
+            0);
 
          if Res < 0 then
             return Res;
@@ -534,10 +535,11 @@ package body GNAT.Sockets.Thin is
 
    begin
       for J in Iovec'Range loop
-         Res := C_Write
+         Res := C_Send
            (Fd,
             Iovec (J).Base.all'Address,
-            Interfaces.C.int (Iovec (J).Length));
+            Interfaces.C.int (Iovec (J).Length),
+            Constants.MSG_Forced_Flags);
 
          if Res < 0 then
             return Res;